Index: /trunk/Nebulous/t/Test/Nebulous.pm
===================================================================
--- /trunk/Nebulous/t/Test/Nebulous.pm	(revision 4436)
+++ /trunk/Nebulous/t/Test/Nebulous.pm	(revision 4437)
@@ -1,5 +1,5 @@
 # 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,10 +17,7 @@
 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,5 +26,7 @@
     $self->cleanup;
 
-    mkpath([$dir1, $dir2]);
+    # create directories after cleanup
+    $dir1 = tempdir( CLEANUP => 0 );
+    $dir2 = tempdir( CLEANUP => 0 );
 
     local $/ = ';';
@@ -54,5 +53,7 @@
     $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;
 }