ext/Archive-Tar/t/01_use.t

   1 use Test::More tests => 2;
   2 use strict;
   3
   4 use_ok('Archive::Tar') or diag 'Archive::Tar not found -- exit' && die;
   5
   6 my $tar = new Archive::Tar;
   7 isa_ok( $tar, 'Archive::Tar', 'Object created' );