use strict;
use warnings;
use Test::More 0.96;
my $mod = 'Dist::Metadata::Tar';
eval "require $mod" or die $@;
my $base = 'corpus/Dist-Metadata-Test-NoMetaFile-0.1';
# test that instantiating this class directly does not negotiate type
new_ok($mod => [file => "$base.zip"]);
my $file = "$base.tar.gz";
my $tar = new_ok($mod => [file => $file]);
# file_content, and find_files tested in t/archive.t
# read_archive
isa_ok($tar->read_archive($file), 'Archive::Tar');
# tar
{
my $warning;
local $SIG{__WARN__} = sub { $warning = $_[0] };
isa_ok($tar->tar, 'Archive::Tar');
like($warning, qr/deprecated/, 'tar() works but is deprecated');
}
done_testing;