use strict;
use warnings;
use Test::More tests => 4;
use Test::NoWarnings;
use Module::CPANTS::Analyse;
use File::Basename;
my $a=Module::CPANTS::Analyse->new({
dist=>'D/DO/DOMM/Foo-Bar-1.05.tgz',
});
my $td=$a->testdir;
ok(-e $td,"testdir $td created");
$td=basename($td);
like($a->testfile,qr/$td/,"testdir in testfile");
like($a->testfile,qr/Foo-Bar/,"filename in testfile");