The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;
use Test::More;
use Test::FailWarnings;

use Module::CPANTS::Analyse;

my $a=Module::CPANTS::Analyse->new({dist => 'dummy'});
my $td=$a->testdir;

ok(-e $td,"testdir $td created");

my $td2=$a->testdir;
is($td,$td2,"still the same testdir");

done_testing;