Author: rgrjr
Date: Sat Jun 2 20:42:47 2007
New Revision: 18773
Modified:
trunk/t/configure/17-revision_no_DEVELOPING.t
trunk/t/configure/19-version.t
trunk/t/configure/20-version.t
trunk/t/configure/21-version.t
trunk/t/configure/22-version.t
trunk/t/configure/23-version.t
trunk/t/configure/24-version.t
trunk/t/configure/25-options_test.t
Log:
* t/configure/25-options_test.t:
* t/configure/17-revision_no_DEVELOPING.t:
* t/configure/20-version.t:
* t/configure/21-version.t:
* t/configure/22-version.t:
* t/configure/23-version.t:
* t/configure/24-version.t:
* t/configure/19-version.t:
+ Make tempdir clean up after itself.
Modified: trunk/t/configure/17-revision_no_DEVELOPING.t
==============================================================================
--- trunk/t/configure/17-revision_no_DEVELOPING.t (original)
+++ trunk/t/configure/17-revision_no_DEVELOPING.t Sat Jun 2 20:42:47 2007
@@ -26,7 +26,7 @@
or
( -e q{lib/Parrot/Config/Generated.pm} )
);
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/19-version.t
==============================================================================
--- trunk/t/configure/19-version.t (original)
+++ trunk/t/configure/19-version.t Sat Jun 2 20:42:47 2007
@@ -16,7 +16,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/20-version.t
==============================================================================
--- trunk/t/configure/20-version.t (original)
+++ trunk/t/configure/20-version.t Sat Jun 2 20:42:47 2007
@@ -17,7 +17,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/21-version.t
==============================================================================
--- trunk/t/configure/21-version.t (original)
+++ trunk/t/configure/21-version.t Sat Jun 2 20:42:47 2007
@@ -17,7 +17,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/22-version.t
==============================================================================
--- trunk/t/configure/22-version.t (original)
+++ trunk/t/configure/22-version.t Sat Jun 2 20:42:47 2007
@@ -17,7 +17,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/23-version.t
==============================================================================
--- trunk/t/configure/23-version.t (original)
+++ trunk/t/configure/23-version.t Sat Jun 2 20:42:47 2007
@@ -17,7 +17,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/24-version.t
==============================================================================
--- trunk/t/configure/24-version.t (original)
+++ trunk/t/configure/24-version.t Sat Jun 2 20:42:47 2007
@@ -17,7 +17,7 @@
my $cwd = cwd();
my $errstr;
{
- my $tdir = tempdir();
+ my $tdir = tempdir(CLEANUP => 1);
ok(chdir $tdir, "Changed to temporary directory for testing");
ok((mkdir "lib"), "Able to make directory lib");
ok((mkdir "lib/Parrot"), "Able to make directory lib/Parrot");
Modified: trunk/t/configure/25-options_test.t
==============================================================================
--- trunk/t/configure/25-options_test.t (original)
+++ trunk/t/configure/25-options_test.t Sat Jun 2 20:42:47 2007
@@ -50,7 +50,7 @@
TEST
{
- my $tdir = tempdir;
+ my $tdir = tempdir(CLEANUP => 1);
ok( (chdir $tdir), "Changed to temporary directory for testing");
my $test = q{testfile};
open my $T, ">", $test
