[svn:parrot] r25374 - in trunk/t: manifest steps

[jkeenan]

Author: jkeenan
Date: Wed Jan 30 16:35:59 2008
New Revision: 25374

Modified:
   trunk/t/manifest/02-regenerate_file.t
   trunk/t/manifest/03-regenerate_skip.t
   trunk/t/steps/init_headers-01.t
   trunk/t/steps/init_manifest-02.t

Log:
Delete copies of MANIFEST in tempdirs after testing.


Modified: trunk/t/manifest/02-regenerate_file.t
==============================================================================
--- trunk/t/manifest/02-regenerate_file.t       (original)
+++ trunk/t/manifest/02-regenerate_file.t       Wed Jan 30 16:35:59 2008
@@ -40,6 +40,7 @@
     ok( !$need_for_file, "No need to regenerate $f" );
     chdir $cwd
         or croak "Unable to change back from temporary directory after 
testing";
+    unlink qq{$tdir/$f} or croak "Unable to delete file from tempdir";
 }
 
 # 2:  Copy the real MANIFEST to the tempdir but mangle it there.
@@ -69,6 +70,7 @@
     ok( $need_for_file,                             "Need to regenerate $f" );
     ok( $mani->print_manifest($manifest_lines_ref), "print_manifest() returned 
true" );
     ok( -f $f,                                      "$f has been created in 
tempdir" );
+    unlink qq{$tdir/$f} or croak "Unable to delete file from tempdir";
     chdir $cwd
         or croak "Unable to change back from temporary directory after 
testing";
 }

Modified: trunk/t/manifest/03-regenerate_skip.t
==============================================================================
--- trunk/t/manifest/03-regenerate_skip.t       (original)
+++ trunk/t/manifest/03-regenerate_skip.t       Wed Jan 30 16:35:59 2008
@@ -37,6 +37,7 @@
     ok( -f $sk, "$sk found in tempdir" );
     my $need_for_skip = $mani->determine_need_for_manifest_skip($print_str);
     ok( !$need_for_skip, "No need to regenerate $sk" );
+    unlink qq{$tdir/$sk} or croak "Unable to delete file from tempdir";
     chdir $cwd
         or croak "Unable to change back from temporary directory after 
testing";
 }
@@ -65,6 +66,7 @@
     ok( $need_for_skip,                         "Need to regenerate $sk" );
     ok( $mani->print_manifest_skip($print_str), "print_manifest_skip() 
returned true" );
     ok( -f $sk,                                 "$sk has been created in 
tempdir" );
+    unlink qq{$tdir/$sk} or croak "Unable to delete file from tempdir";
     chdir $cwd
         or croak "Unable to change back from temporary directory after 
testing";
 }

Modified: trunk/t/steps/init_headers-01.t
==============================================================================
--- trunk/t/steps/init_headers-01.t     (original)
+++ trunk/t/steps/init_headers-01.t     Wed Jan 30 16:35:59 2008
@@ -53,6 +53,8 @@
 qq{Header added to MANIFEST for testing purposes correctly detected in 
Parrot::Configure object data structure}
     );
 
+    unlink qq{$tdir/MANIFEST}
+        or croak "Unable to delete file after testing";
     chdir $cwd
         or croak "Unable to change back to starting directory after testing";
 }

Modified: trunk/t/steps/init_manifest-02.t
==============================================================================
--- trunk/t/steps/init_manifest-02.t    (original)
+++ trunk/t/steps/init_manifest-02.t    Wed Jan 30 16:35:59 2008
@@ -54,6 +54,8 @@
         );
         is( $rv, undef, "$step_name runstep returned undef" );
     }
+    unlink qq{$tdir/MANIFEST}
+        or croak "Unable to delete file after testing";
     chdir $cwd or croak "Unable to change back";
 }