X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=dbsrgits%2FDBIx-Class.git;a=blobdiff_plain;f=t%2F93storage_replication.t;h=f6d2be67d9189cae50eb57335cc2a008e69b91e0;hp=422a44517421ed1e6ea85e8b7f568a84fa656454;hb=6412a5927691e6b8e3370edeb06ed3ef79c757b3;hpb=9901aad73ff9dc45b426534fe406c102fb9fb77c

diff --git a/t/93storage_replication.t b/t/93storage_replication.t
index 422a445..f6d2be6 100644
--- a/t/93storage_replication.t
+++ b/t/93storage_replication.t
@@ -10,7 +10,7 @@ BEGIN {
     eval "use DBIx::Class::Storage::DBI::Replicated; use Test::Moose";
     plan $@
         ? ( skip_all => "Deps not installed: $@" )
-        : ( tests => 79 );
+        : ( tests => 82 );
 }
 
 use_ok 'DBIx::Class::Storage::DBI::Replicated::Pool';
@@ -223,6 +223,15 @@ ok my @replicant_connects = $replicated->generate_replicant_connect_info
 
 ok my @replicated_storages = $replicated->schema->storage->connect_replicants(@replicant_connects)
     => 'Created some storages suitable for replicants';
+
+ok my @all_storages = $replicated->schema->storage->all_storages
+    => '->all_storages';
+
+ok @all_storages == 3
+    => 'correct number of ->all_storages';
+
+ok ((grep $_->isa('DBIx::Class::Storage::DBI'), @all_storages) == 3
+    => '->all_storages are correct type');
  
 my @replicant_names = keys %{ $replicated->schema->storage->replicants };