X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F93storage_replication.t;h=b72405bdc84779f20b46ece655da21bedab301d0;hb=5432c6ae1a31569775574edd42cb3e3f6f79cfff;hp=ab2ffe481a00db64bdf9908a89545dcfa4834fcd;hpb=f6ace68909db2a277f2eebece48a149b4e3da293;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/93storage_replication.t b/t/93storage_replication.t index ab2ffe4..b72405b 100644 --- a/t/93storage_replication.t +++ b/t/93storage_replication.t @@ -249,6 +249,7 @@ $replicated $replicated->replicate; $replicated->schema->storage->replicants->{$replicant_names[0]}->active(1); $replicated->schema->storage->replicants->{$replicant_names[1]}->active(1); +$replicated->schema->storage->pool->validate_replicants; ## Make sure we can read the data. @@ -311,7 +312,7 @@ is $artist3->name, "Dead On Arrival" => 'Found expected name for first result'; is $replicated->schema->storage->pool->connected_replicants => 1 - => "One replicant reconnected to handle the job"; + => "At Least One replicant reconnected to handle the job"; ## What happens when we try to select something that doesn't exist? @@ -355,6 +356,7 @@ ok $replicated->schema->resultset('Artist')->find(2) $replicated->schema->storage->replicants->{$replicant_names[0]}->active(1); $replicated->schema->storage->replicants->{$replicant_names[1]}->active(1); +$replicated->schema->storage->pool->validate_replicants; ok $replicated->schema->resultset('Artist')->find(2) => 'Returned to replicates'; @@ -576,6 +578,9 @@ ok $replicated->schema->resultset('Artist')->find(1) ## Delete the old database files $replicated->cleanup; +use Data::Dump qw/dump/; +#warn dump $replicated->schema->storage->read_handler; +