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