1 files changed, 29 insertions, 0 deletions
diff --git a/t/tar.t b/t/tar.t
new file mode 100644
index 0000000..1c863cb
--- /dev/null
+++ b/t/tar.t
@@ -0,0 +1,29 @@
+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;