[svn:parrot] r29881 - trunk/t/steps

[chromatic]

Author: chromatic
Date: Wed Jul 30 12:23:19 2008
New Revision: 29881

Modified:
   trunk/t/steps/auto_icu-01.t

Log:
[t] Ensured that the ICU configuration tests clean up all temporary directories
(Andy Dougherty, RT #57386).

Modified: trunk/t/steps/auto_icu-01.t
==============================================================================
--- trunk/t/steps/auto_icu-01.t (original)
+++ trunk/t/steps/auto_icu-01.t Wed Jul 30 12:23:19 2008
@@ -1,5 +1,5 @@
 #! perl
-# Copyright (C) 2007, The Perl Foundation.
+# Copyright (C) 2007-2008, The Perl Foundation.
 # $Id$
 # auto_icu-01.t
 
@@ -193,7 +193,7 @@
 
 my $cwd = cwd();
 {
-    my $tdir = tempdir();
+    my $tdir = tempdir( CLEANUP => 1 );
     chdir $tdir or croak "Unable to change to temporary directory";
     my $expected_dir = q{alpha};
     my $expected_include_dir =
@@ -207,7 +207,7 @@
 }
 
 {
-    my $tdir = tempdir();
+    my $tdir = tempdir( CLEANUP => 1 );
     chdir $tdir or croak "Unable to change to temporary directory";
     my $expected_dir = q{alpha};
     my $expected_include_dir =
@@ -222,13 +222,13 @@
 }
 
 {
-    my $tdir = tempdir();
+    my $tdir = tempdir( CLEANUP => 1);
     chdir $tdir or croak "Unable to change to temporary directory";
     my $expected_dir = q{alpha};
     my $expected_include_dir =
         $expected_dir . $conf->data->get('slash') .  q{include};
     mkdir $expected_dir or croak "Unable to make testing directory";
-    mkpath($expected_include_dir, 0, 755)
+    mkpath($expected_include_dir, 0, 0755)
         or croak "Unable to make second-level testing directory";
     ($icuheaders, $without) =
         $step->_handle_icuheaders($conf, qq{$expected_dir\n}, 0);