Tests for pt-archiver + PXC

This commit is contained in:
Brian Fraser
2012-11-29 07:29:24 -03:00
parent 514feb296c
commit d496fbcf11
3 changed files with 278 additions and 5 deletions

View File

@@ -329,9 +329,9 @@ sub ok {
# Dings a heartbeat on the master, and waits until the slave catches up fully.
sub wait_for_slaves {
my ($self, $slave) = @_;
my $master_dbh = $self->get_dbh_for('master');
my $slave2_dbh = $self->get_dbh_for($slave || 'slave2');
my ($self, %args) = @_;
my $master_dbh = $self->get_dbh_for($args{master} || 'master');
my $slave2_dbh = $self->get_dbh_for($args{slave} || 'slave2');
my ($ping) = $master_dbh->selectrow_array("SELECT MD5(RAND())");
$master_dbh->do("UPDATE percona_test.sentinel SET ping='$ping' WHERE id=1");
PerconaTest::wait_until(
@@ -529,6 +529,12 @@ sub port_for {
return $port_for{$server};
}
sub config_file_for {
my ($self, $server) = @_;
my $port = $self->port_for($server);
return "/tmp/$port/my.sandbox.cnf"
}
sub _d {
my ($package, undef, $line) = caller 0;
@_ = map { (my $temp = $_) =~ s/\n/\n# /g; $temp; }