percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-21 11:30:24 +00:00
Code Issues Packages Projects Releases Wiki Activity

Moved the PXC-dealing parts of Cxn.pm into Percona::XtraDB::Cluster

Browse Source
This commit is contained in:
Brian Fraser
2012-11-07 04:06:50 -03:00
parent e8cfb37341
commit aa79c9df57
7 changed files with 111 additions and 373 deletions
Download Patch File Download Diff File Expand all files Collapse all files

143
t/lib/Cxn.t
View File

@@ -248,149 +248,6 @@ is_deeply(
"Default cxn inherits default connection options"
);
@ARGV = ();
$o->get_opts();
diag("Starting master1");
$sb->start_sandbox("master", "master1");
$cxn = make_cxn( dsn_string => $sb->dsn_for("master1") );
$cxn->connect();
ok(
!$cxn->is_cluster_node(),
"is_cluster_node works correctly for non-nodes"
);
my $db_flavor = VersionParser->new($master_dbh)->flavor();
SKIP: {
skip "PXC-only test", 17
unless $db_flavor =~ /XtraDB Cluster/;
diag("Starting a 1-node PXC");
my ($node) = $sb->start_cluster(cluster_size => 1);
my $cxn1 = make_cxn( dsn_string => $sb->dsn_for($node) );
$cxn1->connect();
ok(
$cxn1->is_cluster_node(),
"is_cluster_node works correctly for cluster nodes"
);
ok(
!$cxn->is_master_of($cxn1),
"->is_master_of works correctly for a server unrelated to a cluster"
);
diag("Setting node as a slave of master1");
$sb->set_as_slave($node, "master1");
ok(
$cxn->is_master_of($cxn1),
"->is_master_of works correctly for master -> cluster"
);
ok(
!$cxn1->is_master_of($cxn),
"...and the inverse returns the expected result"
);
ok(
!$cxn->same_cluster($cxn1),
"->same_cluster works for master -> cluster"
);
diag("Restarting the cluster");
diag($sb->stop_sandbox($node));
($node) = $sb->start_cluster(cluster_size => 1);
$cxn1 = make_cxn( dsn_string => $sb->dsn_for($node) );
$cxn1->connect();
diag("Setting master1 as a slave of the node");
$sb->set_as_slave("master1", $node);
ok(
$cxn1->is_master_of($cxn),
"->is_master_of works correctly for cluster -> master"
);
ok(
!$cxn->is_master_of($cxn1),
"...and the inverse returns the expected result"
);
ok(
!$cxn1->same_cluster($cxn),
"->same_cluster works for cluster -> master"
);
diag("Starting a 2-node PXC");
my ($node2, $node3) = $sb->start_cluster(cluster_size => 2);
my $cxn2 = make_cxn( dsn_string => $sb->dsn_for($node2) );
$cxn2->connect();
my $cxn3 = make_cxn( dsn_string => $sb->dsn_for($node3) );
$cxn3->connect();
ok(
$cxn2->is_cluster_node(),
"is_cluster_node correctly finds that this node is part of a cluster"
);
ok(
!$cxn1->same_cluster($cxn2),
"and same_cluster correctly finds that they don't belong to the same cluster, even when they have the same cluster name"
);
ok(
$cxn2->same_cluster($cxn3),
"...but does find that they are in the same cluster, even if one is node1"
);
TODO: {
local $::TODO = "Should detected that (cluster1.node1) (cluster2.node2) come from different clusters, but doesn't";
ok(
!$cxn1->same_cluster($cxn3),
"...same_cluster works correctly when they have the same cluster names"
);
}
diag("Making the second cluster a slave of the first");
$sb->set_as_slave($node2, $node);
ok($cxn1->is_master_of($cxn2), "is_master_of works");
ok(
!$cxn1->same_cluster($cxn2),
"...same_cluster works correctly when they are cluster1.node1.master -> cluster2.node1.slave"
);
diag($sb->stop_sandbox($node2, $node3));
diag("Starting a 3-node cluster");
my $node4;
($node2, $node3, $node4)
= $sb->start_cluster(
cluster_size => 3,
cluster_name => "pt_cxn_test",
);
$cxn2 = make_cxn( dsn_string => $sb->dsn_for($node2) );
$cxn2->connect();
$cxn3 = make_cxn( dsn_string => $sb->dsn_for($node3) );
$cxn3->connect();
my $cxn4 = make_cxn( dsn_string => $sb->dsn_for($node4) );
$cxn4->connect();
ok(
!$cxn1->same_cluster($cxn2),
"...same_cluster works correctly when they have different cluster names & the are both gcomm"
);
ok(
!$cxn1->same_cluster($cxn3),
"same_cluster detects that (cluster1.node1) (cluster2.node2) come from different clusters if they have different cluster_names"
);
ok(
$cxn2->same_cluster($cxn3),
"sanity check: but still finds that nodes in the same cluster belong together"
);
diag($sb->stop_sandbox($node, $node2, $node3, $node4));
}
diag($sb->stop_sandbox("master1"));
# #############################################################################
# Done.
# #############################################################################