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"; }