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

Revert back to ok() for Sandbox::ok() so tests file don't have to be updated. Shorten verify_test_data_integrity() to verify_test_data().

Browse Source
This commit is contained in:
Daniel Nichter
2012-06-05 11:02:48 -07:00
parent 1f4d99665f
commit a44a273800
3 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/Sandbox.pm
View File

@@ -1,4 +1,4 @@
# This program is copyright 2008-2011 Percona Inc.
# This program is copyright 2008-2012 Percona Inc.
# Feedback and improvements are welcome.
#
# THIS PROGRAM IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
@@ -280,8 +280,10 @@ sub ok {
push @errors, $self->slave_is_ok('slave1', 'master');
push @errors, $self->slave_is_ok('slave2', 'slave1', 1);
push @errors, $self->leftover_servers();
push @errors, $self->verify_test_data_integrity();
return join(' ', grep { $_ ne '' } @errors);
push @errors, $self->verify_test_data();
@errors = grep { warn "ERROR: ", $_, "\n" if $_; $_; } @errors;
return !@errors;
}
sub _d {
@@ -295,7 +297,7 @@ sub _d {
# Verifies that master, slave1, and slave2 have a faithful copy of the mysql and
# sakila databases. The reference data is inserted into percona_test.checksums
# by util/checksum-test-dataset when sandbox/test-env starts the environment.
sub verify_test_data_integrity {
sub verify_test_data {
my ($self) = @_;
my $master = $self->get_dbh_for('master');
my $ref = $master->selectall_hashref(
@@ -323,7 +325,7 @@ sub verify_test_data_integrity {
}
$master->disconnect;
if ( @diffs ) {
return "Tables with differences: " . join(', ', @diffs);
return "Tables are different: " . join(', ', @diffs);
}
return '';
}

2
t/pt-table-checksum/basics.t
View File

@@ -461,5 +461,5 @@ is(
# Done.
# #############################################################################
$sb->wipe_clean($master_dbh);
is($sb->ok(), '', "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;

2
t/pt-table-sync/lock_and_rename.t
View File

@@ -62,5 +62,5 @@ like($output, qr/COMMENT='test1'/, '--lock-and-rename worked');
# Done.
# #############################################################################
$sb->wipe_clean($master_dbh);
is($sb->ok(), '', "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;