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

Call Sandbox::box() in all tests that use Sandbox.

Browse Source
This commit is contained in:
Daniel Nichter
2012-06-03 12:59:56 -04:00
parent d9a786d8f3
commit 7e880b0808
170 changed files with 341 additions and 170 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
t/pt-kill/basics.t
View File

@@ -25,7 +25,7 @@ if ( !$master_dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 4;
}
my $output;
@@ -84,4 +84,5 @@ like(
# Done.
# #############################################################################
$sb->wipe_clean($master_dbh);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;

3
t/pt-kill/execute_command.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 8;
use Test::More tests => 9;
use PerconaTest;
use Sandbox;
@@ -118,4 +118,5 @@ SKIP: {
# #############################################################################
diag(`rm $out 2>/dev/null`);
$sb->wipe_clean($master_dbh) if $master_dbh;
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;

3
t/pt-kill/kill.t
View File

@@ -29,7 +29,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 7;
plan tests => 8;
}
my $output;
@@ -120,4 +120,5 @@ is(
# Done.
# #############################################################################
$sb->wipe_clean($dbh);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;

3
t/pt-kill/match.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 14;
use Test::More tests => 15;
use PerconaTest;
use Sandbox;
@@ -173,4 +173,5 @@ SKIP: {
# #############################################################################
# Done.
# #############################################################################
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;

3
t/pt-kill/standard_options.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 5;
use Test::More tests => 6;
use PerconaTest;
use Sandbox;
@@ -73,4 +73,5 @@ like(
# Done.
# #############################################################################
$sb->wipe_clean($master_dbh) if $master_dbh;
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
exit;