Permalink
Browse files

unlink t/tmp/log4perltest prior to DBI connection

This appears to be interacting weirdly with the latest SQL::Statement and
DBD::CSV, so let's get rid of it before getting into our tests.
  • Loading branch information...
1 parent 505e533 commit 85fb935093dfd684ad13165ba81f2da61e7e4fef @RsrchBoy committed Oct 31, 2012
Showing with 3 additions and 2 deletions.
  1. +3 −2 t/034DBI.t
View
@@ -214,9 +214,10 @@ $dbh->disconnect;
# might as well give it a thorough check
Log::Log4perl->reset;
-$dbh = DBI->connect('DBI:CSV:f_dir=t/tmp','testuser','testpw',{ PrintError => 1 });
+unlink 't/tmp/log4perltest'
+ if -e 't/tmp/log4perltest';
-$dbh->do('DROP TABLE log4perltest') if -e 't/tmp/log4perltest';
+$dbh = DBI->connect('DBI:CSV:f_dir=t/tmp','testuser','testpw',{ PrintError => 1 });
$stmt = <<EOL;
CREATE TABLE log4perltest (

0 comments on commit 85fb935

Please sign in to comment.