X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fstorage%2Fdbh_do.t;fp=t%2Fstorage%2Fdbh_do.t;h=727c245ef76b92ca4d88a817c72de3c727ad9e7a;hb=fd2c6658f74eda2831017727d3890dffd0eff06c;hp=952fa1c9d3b294c95144aca853bb58e9c406a906;hpb=da4a8fe752719362c6f6b1be5b42593fc4509ad6;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/storage/dbh_do.t b/t/storage/dbh_do.t
index 952fa1c..727c245 100644
--- a/t/storage/dbh_do.t
+++ b/t/storage/dbh_do.t
@@ -9,6 +9,10 @@ use DBICTest;
 my $schema = DBICTest->init_schema();
 my $storage = $schema->storage;
 
+$storage = $storage->master
+  if $ENV{DBICTEST_VIA_REPLICATED};
+
+
 # test (re)connection
 for my $disconnect (0, 1) {
   $schema->storage->_dbh->disconnect if $disconnect;