percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-12-22 03:00:29 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update replication_filters.t and resume.t.

Browse Source
This commit is contained in:
Daniel Nichter
2011-10-15 15:03:25 -06:00
parent 4ad88ddd93
commit 23e9b91d78
7 changed files with 492 additions and 124 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/PerconaTest.pm
View File

@@ -593,6 +593,24 @@ sub count_checksum_results {
return $total;
}
sub normalize_checksum_results {
my ($output) = @_;
my $tmp_file = "/tmp/test-checksum-results-output";
open my $fh, ">", $tmp_file or die "Cannot open $tmp_file: $OS_ERROR";
printf $fh $output;
close $fh;
my $normal_output = `cat $tmp_file | awk '/^[0-9 ]/ {print \$2 " " \$3 " " \$4 " " \$5 " " \$6 " " \$8} /^[A-Z]/ {print \$0}'`;
`rm $tmp_file >/dev/null`;
return $normal_output;
}
sub get_master_binlog_pos {
my ($dbh) = @_;
my $sql = "SHOW MASTER STATUS";
my $ms = $dbh->selectrow_hashref($sql);
return $ms->{position};
}
1;
}
# ###########################################################################