X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fdbh_do.t;h=07453eaf9bcf33778191465ce58c99fa00042220;hb=50841788d03e2342a00470eb2f458e717922615b;hp=727c245ef76b92ca4d88a817c72de3c727ad9e7a;hpb=8b60b9211a085572446bbfd19e879d00ae03658a;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/dbh_do.t b/t/storage/dbh_do.t
index 727c245..07453ea 100644
--- a/t/storage/dbh_do.t
+++ b/t/storage/dbh_do.t
@@ -1,17 +1,17 @@
+BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
+
 use strict;
 use warnings;
 
 use Test::More;
-use lib qw(t/lib);
+
 use DBICTest;
 
 
 my $schema = DBICTest->init_schema();
 my $storage = $schema->storage;
-
 $storage = $storage->master
-  if $ENV{DBICTEST_VIA_REPLICATED};
-
+  if $storage->isa('DBIx::Class::Storage::DBI::Replicated');
 
 # test (re)connection
 for my $disconnect (0, 1) {