1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
use Test::More tests => 2; use Test::Manifest qw(make_test_manifest); my $test_manifest = File::Spec->catfile( qw(t test_manifest) ); if($^O eq 'VMS') # http://perldoc.perl.org/perlvms.html#unlink-LIST { 1 while ( unlink $test_manifest ); } else { unlink $test_manifest; } ok( ! -e $test_manifest, 'test_manifest does not exit' ); make_test_manifest(); ok( -e $test_manifest, 'test_manifest exists' ); |