use DBIC::SqlMakerTest;
use Path::Class qw/file/;
-BEGIN { delete @ENV{qw(DBIC_TRACE_PROFILE DBICTEST_SQLITE_USE_FILE)} }
+BEGIN { delete @ENV{qw(DBIC_TRACE DBIC_TRACE_PROFILE DBICTEST_SQLITE_USE_FILE)} }
my $schema = DBICTest->init_schema();
-my $lfn = file('t/var/sql.log');
+my $lfn = file("t/var/sql-$$.log");
unlink $lfn or die $!
if -e $lfn;
$schema->storage->debugobj->debugfh(undef)
}
+END {
+ unlink $lfn;
+}
+
open(STDERRCOPY, '>&STDERR');
close(STDERR);
dies_ok {