Author: jkeenan Date: Wed Jan 30 16:50:06 2008 New Revision: 25375 Modified: trunk/t/configure/017-revision_from_cache.t trunk/t/configure/018-revision_to_cache.t trunk/t/postconfigure/03-revision.t trunk/t/postconfigure/04-revision.t trunk/t/tools/revision/01-get_revision_numbers.t
Log: Delete files such as DEVELOPING, Revision.pm, Config.pm copied to tempdirs during testing. Modified: trunk/t/configure/017-revision_from_cache.t ============================================================================== --- trunk/t/configure/017-revision_from_cache.t (original) +++ trunk/t/configure/017-revision_from_cache.t Wed Jan 30 16:50:06 2008 @@ -39,6 +39,8 @@ is($Parrot::Revision::current, $rev, "Got expected revision number from cache"); use warnings; + unlink qq{$libdir/Parrot/Revision.pm} + or croak "Unable to delete file after testing"; ok( chdir $cwd, "Able to change back to starting directory"); } Modified: trunk/t/configure/018-revision_to_cache.t ============================================================================== --- trunk/t/configure/018-revision_to_cache.t (original) +++ trunk/t/configure/018-revision_to_cache.t Wed Jan 30 16:50:06 2008 @@ -35,6 +35,8 @@ use warnings; my $cache = q{.parrot_current_rev}; ok( ( -e $cache ), "Cache for revision number was created"); + unlink qq{$libdir/Parrot/Revision.pm} + or croak "Unable to delete file after testing"; ok( chdir $cwd, "Able to change back to starting directory"); } Modified: trunk/t/postconfigure/03-revision.t ============================================================================== --- trunk/t/postconfigure/03-revision.t (original) +++ trunk/t/postconfigure/03-revision.t Wed Jan 30 16:50:06 2008 @@ -49,6 +49,8 @@ is($mtime_before, $mtime_after, "Revision number cache file correctly untouched"); + unlink qq{$libdir/Parrot/Revision.pm} + or croak "Unable to delete file after testing"; ok( chdir $cwd, "Able to change back to starting directory"); } Modified: trunk/t/postconfigure/04-revision.t ============================================================================== --- trunk/t/postconfigure/04-revision.t (original) +++ trunk/t/postconfigure/04-revision.t Wed Jan 30 16:50:06 2008 @@ -39,6 +39,8 @@ "Got numeric value for reversion number"); use warnings; + unlink qq{$libdir/Parrot/Revision.pm} + or croak "Unable to delete file after testing"; ok( chdir $cwd, "Able to change back to starting directory"); } Modified: trunk/t/tools/revision/01-get_revision_numbers.t ============================================================================== --- trunk/t/tools/revision/01-get_revision_numbers.t (original) +++ trunk/t/tools/revision/01-get_revision_numbers.t Wed Jan 30 16:50:06 2008 @@ -63,6 +63,14 @@ is($current, $testvals[0], "Got expected value for current"); is($config, $testvals[1], "Got expected value for config"); + foreach my $f ( + q{DEVELOPING}, + qq{$libdir/Parrot/Revision.pm}, + qq{$libdir/Parrot/Config.pm}, + ) { + unlink $f + or croak "Unable to unlink $f from tempdir after testing"; + } ok( (chdir $cwd), "Able to change back to starting directory"); }