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

Fix test counts.

Browse Source
This commit is contained in:
Daniel Nichter
2012-06-03 15:14:30 -04:00
parent 275ae93084
commit a64bf961e8
46 changed files with 46 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
t/lib/Cxn.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 17;
use Test::More tests => 19;
use Sandbox;
use OptionParser;

2
t/pt-config-diff/basics.t
View File

@@ -27,7 +27,7 @@ elsif ( !$slave_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave';
}
else {
plan tests => 14;
plan tests => 13;
}
my $cnf = '/tmp/12345/my.sandbox.cnf';

2
t/pt-config-diff/reports.t
View File

@@ -27,7 +27,7 @@ elsif ( !$slave_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave';
}
else {
plan tests => 4;
plan tests => 3;
}
my $cnf = '/tmp/12345/my.sandbox.cnf';

2
t/pt-deadlock-logger/basics.t
View File

@@ -24,7 +24,7 @@ if ( !$dbh1 || !$dbh2 ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 11;
plan tests => 10;
}
my $output;

2
t/pt-deadlock-logger/clear_deadlocks.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh1 ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 5;
plan tests => 4;
}
my $output;

2
t/pt-duplicate-key-checker/basics.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 11;
plan tests => 10;
}
my $output;

2
t/pt-duplicate-key-checker/clustered_keys.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $cnf = "/tmp/12345/my.sandbox.cnf";

2
t/pt-duplicate-key-checker/issue_1192.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $output;

2
t/pt-duplicate-key-checker/issue_298.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $output;

2
t/pt-duplicate-key-checker/issue_331.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $cnf = "/tmp/12345/my.sandbox.cnf";

2
t/pt-duplicate-key-checker/issue_663.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $output;

2
t/pt-find/pt-find.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 22;
plan tests => 21;
}
my $output;

2
t/pt-heartbeat/basics.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 19;
plan tests => 18;
}
$sb->create_dbs($dbh, ['test']);

2
t/pt-heartbeat/multi_update_mode.t
View File

@@ -34,7 +34,7 @@ elsif ( !$slave2_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave2';
}
else {
plan tests => 30;
plan tests => 29;
}
$sb->create_dbs($master_dbh, ['test']);

2
t/pt-heartbeat/standard_options.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
$sb->create_dbs($dbh, [qw(test)]);

2
t/pt-index-usage/basics.t
View File

@@ -28,7 +28,7 @@ if ( !@{ $dbh->selectall_arrayref('show databases like "sakila"') } ) {
plan skip_all => "Sakila database is not loaded";
}
else {
plan tests => 10;
plan tests => 9;
}
my $cnf = '/tmp/12345/my.sandbox.cnf';

2
t/pt-index-usage/save_results.t
View File

@@ -28,7 +28,7 @@ if ( !@{ $dbh->selectall_arrayref('show databases like "sakila"') } ) {
plan skip_all => "Sakila database is not loaded";
}
else {
plan tests => 19;
plan tests => 18;
}
my $cnf = '/tmp/12345/my.sandbox.cnf';

2
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 => 5;
plan tests => 4;
}
my $output;

2
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 => 10;
use Test::More tests => 9;
use PerconaTest;
use Sandbox;

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

@@ -29,7 +29,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 9;
plan tests => 8;
}
my $output;

2
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 => 16;
use Test::More tests => 15;
use PerconaTest;
use Sandbox;

2
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 => 7;
use Test::More tests => 6;
use PerconaTest;
use Sandbox;

2
t/pt-query-advisor/get_create_table.t
View File

@@ -26,7 +26,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 5;
plan tests => 4;
}
my $output = "";

2
t/pt-query-advisor/review.t
View File

@@ -26,7 +26,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 6;
plan tests => 5;
}
my $output = "";

2
t/pt-query-digest/collect_and_report_cycles.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 5;
plan tests => 4;
}
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/";

2
t/pt-query-digest/daemon.t
View File

@@ -10,7 +10,7 @@ use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Time::HiRes qw(sleep);
use Test::More tests => 8;
use Test::More tests => 7;
use PerconaTest;
use Sandbox;

2
t/pt-query-digest/execute.t
View File

@@ -30,7 +30,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 7;
plan tests => 6;
}
my $output = '';

2
t/pt-query-digest/explain.t
View File

@@ -30,7 +30,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 7;
plan tests => 6;
}
my $sample = "t/pt-query-digest/samples/";

2
t/pt-query-digest/explain_partitions.t
View File

@@ -28,7 +28,7 @@ elsif ( !$vp->version_ge($dbh, '5.1.0') ) {
plan skip_all => 'Sandbox master version not >= 5.1';
}
else {
plan tests => 3;
plan tests => 2;
}
# #############################################################################

2
t/pt-query-digest/issue_1186.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 4;
plan tests => 3;
}
# #############################################################################

2
t/pt-query-digest/issue_360.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 4;
plan tests => 3;
}
$sb->create_dbs($dbh, ['test']);

2
t/pt-query-digest/processlist.t
View File

@@ -31,7 +31,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 4;
plan tests => 3;
}
my @args = qw(-F /tmp/12345/my.sandbox.cnf --processlist h=127.1 --report-format query_report);

2
t/pt-query-digest/review.t
View File

@@ -26,7 +26,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 19;
plan tests => 18;
}
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/";

2
t/pt-query-digest/run_time.t
View File

@@ -27,7 +27,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 12;
plan tests => 11;
}
my @args;

2
t/pt-query-digest/since_until.t
View File

@@ -9,7 +9,7 @@ BEGIN {
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 11;
use Test::More tests => 10;
use PerconaTest;
use Sandbox;

2
t/pt-query-digest/standard_options.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $output;

2
t/pt-show-grants/all_grants.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 4;
plan tests => 3;
}
$sb->wipe_clean($dbh);

2
t/pt-show-grants/basics.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 12;
plan tests => 11;
}
$sb->wipe_clean($dbh);

2
t/pt-show-grants/issue_445.t
View File

@@ -23,7 +23,7 @@ if ( !$dbh ) {
plan skip_all => 'Cannot connect to sandbox master';
}
else {
plan tests => 6;
plan tests => 5;
}
$sb->wipe_clean($dbh);

2
t/pt-slave-find/pt-slave-find.t
View File

@@ -33,7 +33,7 @@ elsif ( !$slave_2_dbh ) {
plan skip_all => 'Cannot connect to second sandbox slave';
}
else {
plan tests => 7;
plan tests => 6;
}
my @args = ('h=127.0.0.1,P=12345,u=msandbox,p=msandbox');

2
t/pt-slave-restart/pt-slave-restart.t
View File

@@ -27,7 +27,7 @@ elsif ( !$slave_dbh ) {
plan skip_all => 'Cannot connect to sandbox slave';
}
else {
plan tests => 16;
plan tests => 15;
}
$sb->create_dbs($master_dbh, ['test']);

2
t/pt-upgrade/daemon.t
View File

@@ -30,7 +30,7 @@ elsif ( !$dbh2 ) {
plan skip_all => 'Cannot connect to second sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
my $cmd = "$trunk/bin/pt-upgrade h=127.1,P=12345,u=msandbox,p=msandbox P=12348 --compare results,warnings --zero-query-times";

2
t/pt-upgrade/rewrite_non_select.t
View File

@@ -30,7 +30,7 @@ elsif ( !$dbh2 ) {
plan skip_all => 'Cannot connect to second sandbox master';
}
else {
plan tests => 6;
plan tests => 5;
}
$sb->load_file('master', 't/pt-upgrade/samples/001/tables.sql');

2
t/pt-upgrade/skip_non_select.t
View File

@@ -30,7 +30,7 @@ elsif ( !$dbh2 ) {
plan skip_all => 'Cannot connect to second sandbox master';
}
else {
plan tests => 3;
plan tests => 2;
}
$sb->load_file('master', 't/pt-upgrade/samples/001/tables.sql');

2
t/pt-upgrade/warnings.t
View File

@@ -30,7 +30,7 @@ elsif ( !$dbh2 ) {
plan skip_all => 'Cannot connect to second sandbox master';
}
else {
plan tests => 7;
plan tests => 6;
}
$sb->load_file('master', 't/pt-upgrade/samples/001/tables.sql');

2
t/pt-variable-advisor/show_variables_online.t
View File

@@ -26,7 +26,7 @@ if ( !$dbh ) {
plan skip_all => "Cannot connect to sandbox master";
}
else {
plan tests => 4;
plan tests => 3;
}
# #############################################################################