Changeset 4437

Timestamp:

Jun 29, 2005, 3:41:40 PM (21 years ago)

Author:

jhoblitt

Message:

create testing dirs with File::Temp::tempdir()

File:

• trunk/Nebulous/t/Test/Nebulous.pm (modified) (4 diffs)

trunk/Nebulous/t/Test/Nebulous.pm

@@ -1 +1 @@
 # Copyright (C) 2004  Joshua Hoblitt
 #
-# $Id: Nebulous.pm,v 1.2 2005-01-15 04:02:12 jhoblitt Exp $
+# $Id: Nebulous.pm,v 1.3 2005-06-30 01:41:40 jhoblitt Exp $
 
 package Test::IData;
@@ -17 +17 @@
 my $dbh = DBI->connect( $dsn, $user, $passwd );
 
-#my $dir1 = tempdir( CLEANUP => 0 );
-#my $dir2 = tempdir( CLEANUP => 0 );
-
-my $dir1 = "/tmp/foo1";
-my $dir2 = "/tmp/foo1";
-
+# suppress uninitalized warnings
+my $dir1 = "";
+my $dir2 = "";
 
 sub setup {
@@ -29 +26 @@
     $self->cleanup;
 
-    mkpath([$dir1, $dir2]);
+    # create directories after cleanup
+    $dir1 = tempdir( CLEANUP => 0 );
+    $dir2 = tempdir( CLEANUP => 0 );
 
     local $/ = ';';
@@ -54 +53 @@
     $dbh->do( "DROP TABLE IF EXISTS class" );
 
-    rmtree([$dir1, $dir2], 0, 1);
+    # on the first call to setup the $dir[12] will be ""
+    rmtree([$dir1], 0, 1) if -e $dir1;
+    rmtree([$dir2], 0, 1) if -e $dir2;
 }