Ensure ExtUtils::CBuilder's 04-base.t cleans up its temporary directories.
authorNicholas Clark <nick@ccl4.org>
Sat, 1 Jan 2011 15:33:18 +0000 (15:33 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 1 Jan 2011 15:37:11 +0000 (15:37 +0000)
The tempdir() function has the rather confusing default of *not* cleaning up
("because of issues with backwards compatibility") so one needs the CLEANUP
flag. (The analogous newdir() method in the OO interface doesn't suffer this
gotcha.)

dist/ExtUtils-CBuilder/t/04-base.t

index 338ed4a..702e50e 100644 (file)
@@ -85,7 +85,7 @@ SKIP:
 
 {
     $cwd = cwd();
-    my $tdir = tempdir();
+    my $tdir = tempdir(CLEANUP => 1);
     chdir $tdir;
     $base = ExtUtils::CBuilder::Base->new();
     ok( $base, "ExtUtils::CBuilder::Base->new() returned true value" );
@@ -297,7 +297,7 @@ is_deeply( \%split_seen, \%exp,
 
 {
     $cwd = cwd();
-    my $tdir = tempdir();
+    my $tdir = tempdir(CLEANUP => 1);
     my $subdir = File::Spec->catdir(
         $tdir, qw| alpha beta gamma delta epsilon 
             zeta eta theta iota kappa lambda |