[svn:dbi] r14057 - dbi/trunk/t

Author: hmbrand
Date: Wed May 26 03:04:17 2010
New Revision: 14057

Modified:
   dbi/trunk/t/50dbm_simple.t
   dbi/trunk/t/85gofer.t

Log:
test cleanup issues

Modified: dbi/trunk/t/50dbm_simple.t
==============================================================================
--- dbi/trunk/t/50dbm_simple.t	(original)
+++ dbi/trunk/t/50dbm_simple.t	Wed May 26 03:04:17 2010
@@ -76,7 +76,7 @@
 
 my $dir = File::Spec->catdir(getcwd(),'test_output');
 
-rmtree $dir;
+rmtree $dir; END { rmtree $dir }
 mkpath $dir;
 
 my %tests_statement_results = (
@@ -169,7 +169,6 @@
             or warn $@;
     }
 }
-rmtree $dir;
 
 sub do_test {
     my ($dtype, $mldbm, $columns) = @_;

Modified: dbi/trunk/t/85gofer.t
==============================================================================
--- dbi/trunk/t/85gofer.t	(original)
+++ dbi/trunk/t/85gofer.t	Wed May 26 03:04:17 2010
@@ -155,6 +155,7 @@
         ? $driver_dsn
         : $remote_driver_dsn;
 
+    END { unlink glob "fruit.???" }
     ok $dbh->do("DROP TABLE IF EXISTS fruit");
     ok $dbh->do("CREATE TABLE fruit (dKey INT, dVal VARCHAR(10))");
     die "$test_run_tag aborted\n" if $DBI::err;