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