t/lib/MasterSlave.t: Check that recurse_to_slaves gets all three slaves, or give a diagnostic

This commit is contained in:
Brian Fraser
2012-07-23 12:28:25 -03:00
parent b6e4202cfa
commit a1f1168ab4

View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 51;
use Test::More tests => 52;
use MasterSlave;
use DSNParser;
@@ -288,6 +288,12 @@ $ms->recurse_to_slaves(
skip_callback => $skip_callback,
});
is(
scalar(@slaves),
3,
"recurse to slaves finds all three slaves"
) or diag(Dumper(\@slaves));
is_deeply(
$ms->get_master_dsn( $slaves[0], undef, $dp ),
{ h => '127.0.0.1',