Add is_cluster_mode() to lib/Sandbox.pm.

This commit is contained in:
Daniel Nichter
2012-11-30 18:13:04 +00:00
parent 065e0a8c5e
commit 72a129bce1

View File

@@ -409,19 +409,24 @@ sub clear_genlogs {
return;
}
sub is_cluster_mode {
my ($self) = @_;
return 0 unless $self->is_cluster_node('node1');
return 0 unless $self->is_cluster_node('node2');
return 0 unless $self->is_cluster_node('node3');
return 1;
}
sub is_cluster_node {
my ($self, $server) = @_;
my $sql = "SHOW VARIABLES LIKE 'wsrep_on'";
PTDEBUG && _d($sql);
my $row = $self->use($server, qq{-ss -e "$sql"});
PTDEBUG && _d($row);
$row = [split " ", $row];
return $row && $row->[1]
? ($row->[1] eq 'ON' || $row->[1] eq '1')
: 0;
return $row && $row->[1] && ($row->[1] eq 'ON' || $row->[1] eq '1');
}
sub can_load_data {