Add a get_subname to _Util

[dbsrgits/DBIx-Class.git] / t / 35exception_inaction.t

diff --git a/t/35exception_inaction.t b/t/35exception_inaction.t
index ffbabc5..0f775f4 100644 (file)
--- a/t/35exception_inaction.t
+++ b/t/35exception_inaction.t
@@ -12,6 +12,7 @@ BEGIN {
   }
 }
 
+use DBICTest::Util 'tmpdir';
 use File::Temp ();
 use DBIx::Class::_Util 'scope_guard';
 use DBIx::Class::Schema;
@@ -49,7 +50,7 @@ $schema->connection('dbi:SQLite::memory:');
 # demonstrate utter breakage of the reconnection/retry logic
 #
 open(my $stderr_copy, '>&', *STDERR) or die "Unable to dup STDERR: $!";
-my $tf = File::Temp->new( UNLINK => 1 );
+my $tf = File::Temp->new( UNLINK => 1, DIR => tmpdir() );
 
 my $output;
 
@@ -71,6 +72,7 @@ ESCAPE:
   $schema->storage->ensure_connected;
   $schema->storage->_dbh->disconnect;
 
+  # silences "exitting sub via last"
   local $SIG{__WARN__} = sub {};
 
   $schema->exception_action(sub {