X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F106dbic_carp.t;h=171e7db1f546a34e56fd21164ae837d85d43a67f;hb=HEAD;hp=241fc5d61e0ab1c8ccba74965c9de138ceae7073;hpb=5e0e5426b36b5df5f9d1394068cd9f7f1c81087a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/106dbic_carp.t b/t/106dbic_carp.t
index 241fc5d..171e7db 100644
--- a/t/106dbic_carp.t
+++ b/t/106dbic_carp.t
@@ -1,3 +1,5 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 
@@ -7,9 +9,9 @@ BEGIN { $ENV{DBIC_TRACE} = 0 }
 use Test::More;
 use Test::Warn;
 use Test::Exception;
-use DBIx::Class::Carp;
-use lib 't/lib';
+
 use DBICTest;
+use DBIx::Class::Carp;
 
 {
   sub DBICTest::DBICCarp::frobnicate {
@@ -38,7 +40,9 @@ use DBICTest;
 
     sub thrower {
       sub {
-        DBICTest->init_schema(no_deploy => 1)->throw_exception('time to die');
+        DBICTest->init_schema(no_deploy => 1)->storage->dbh_do(sub {
+          shift->throw_exception('time to die');
+        })
       }->();
     }