1use strict; 2use warnings; 3 4use Test::More; 5use Test::FailWarnings; 6 7use Module::CPANTS::Analyse; 8use File::Basename; 9 10my $a=Module::CPANTS::Analyse->new({ 11 dist=>'D/DO/DOMM/Foo-Bar-1.05.tgz', 12}); 13 14my $td=$a->testdir; 15ok(-e $td,"testdir $td created"); 16 17$td=basename($td); 18like($a->testfile,qr/$td/,"testdir in testfile"); 19like($a->testfile,qr/Foo-Bar/,"filename in testfile"); 20 21done_testing; 22