Harmonize DBICTEST_VIA_REPLICATED detection in tests

[dbsrgits/DBIx-Class.git] / t / admin / 03data.t

diff --git a/t/admin/03data.t b/t/admin/03data.t
index 460a89e..4be2960 100644 (file)
--- a/t/admin/03data.t
+++ b/t/admin/03data.t
@@ -19,9 +19,13 @@ use DBIx::Class::Admin;
     sqlite_use_file => 1,
   );
 
+  my $storage = $schema->storage;
+  $storage = $storage->master
+    if $storage->isa('DBIx::Class::Storage::DBI::Replicated');
+
   my $admin = DBIx::Class::Admin->new(
     schema_class=> "DBICTest::Schema",
-    connect_info => $schema->storage->connect_info(),
+    connect_info => $storage->connect_info(),
     quiet  => 1,
     _confirm=>1,
   );