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

Change MaatkitTest to PerconaTest in all tool tests. Add stub tests for pt-align and pt-collect.

Browse Source
This commit is contained in:
Daniel Nichter
2011-07-12 16:56:55 -06:00
parent f49ff82b83
commit eb01431399
232 changed files with 304 additions and 254 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
t/pt-align/pt-align.t Normal file
View File

@@ -0,0 +1,25 @@
#!/usr/bin/env perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 1;
use PerconaTest;
like(
`perl -c $trunk/bin/pt-align 2>&1`,
qr/syntax OK/,
'syntax OK'
);
# #############################################################################
# Done.
# #############################################################################
exit;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/bulk_delete.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/bulk_insert.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/bulk_regular_insert.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/check_slave_lag.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/compact_col_vals.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/delete_more.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/dest.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/file.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/gt_n.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/indexes.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_1152.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_1166.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_1225.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_1229.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_131.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_524.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/issue_655.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/plugin.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/purge.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/res_fk.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-archiver/safe_auto_increment.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-archiver"; require "$trunk/bin/pt-archiver";

2
t/pt-checksum-filter/pt-checksum-filter.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 9; use Test::More tests => 9;
use MaatkitTest; use PerconaTest;
my ($output, $output2); my ($output, $output2);
my $cmd = "$trunk/bin/pt-checksum-filter"; my $cmd = "$trunk/bin/pt-checksum-filter";

25
t/pt-collect/pt-collect.t Normal file
View File

@@ -0,0 +1,25 @@
#!/usr/bin/env perl
BEGIN {
die "The PERCONA_TOOLKIT_BRANCH environment variable is not set.\n"
unless $ENV{PERCONA_TOOLKIT_BRANCH} && -d $ENV{PERCONA_TOOLKIT_BRANCH};
unshift @INC, "$ENV{PERCONA_TOOLKIT_BRANCH}/lib";
};
use strict;
use warnings FATAL => 'all';
use English qw(-no_match_vars);
use Test::More tests => 1;
use PerconaTest;
like(
`$trunk/bin/pt-collect --help`,
qr/Usage:/,
'It runs'
);
# #############################################################################
# Done.
# #############################################################################
exit;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-config-diff"; require "$trunk/bin/pt-config-diff";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
require "$trunk/bin/pt-config-diff"; require "$trunk/bin/pt-config-diff";
my $cnf = '/tmp/12345/my.sandbox.cnf'; my $cnf = '/tmp/12345/my.sandbox.cnf';

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-config-diff"; require "$trunk/bin/pt-config-diff";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-deadlock-logger"; require "$trunk/bin/pt-deadlock-logger";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-deadlock-logger"; require "$trunk/bin/pt-deadlock-logger";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-deadlock-logger"; require "$trunk/bin/pt-deadlock-logger";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 3; use Test::More tests => 3;
use MaatkitTest; use PerconaTest;
my $output; my $output;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-deadlock-logger"; require "$trunk/bin/pt-deadlock-logger";

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

@@ -10,7 +10,7 @@ use strict;
use warnings FATAL => 'all'; use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use MaatkitTest; use PerconaTest;
system("$trunk/util/test-bash-tool pt-diskstats @ARGV"); system("$trunk/util/test-bash-tool pt-diskstats @ARGV");

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-duplicate-key-checker"; require "$trunk/bin/pt-duplicate-key-checker";

2
t/pt-fifo-split/pt-fifo-split.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
use MaatkitTest; use PerconaTest;
require "$trunk/bin/pt-fifo-split"; require "$trunk/bin/pt-fifo-split";
unlink('/tmp/mk-fifo-split'); unlink('/tmp/mk-fifo-split');

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-find"; require "$trunk/bin/pt-find";

2
t/pt-fk-error-logger/basics.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-fk-error-logger"; require "$trunk/bin/pt-fk-error-logger";

2
t/pt-fk-error-logger/get_fk_error.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 10; use Test::More tests => 10;
use MaatkitTest; use PerconaTest;
require "$trunk/bin/pt-fk-error-logger"; require "$trunk/bin/pt-fk-error-logger";
# ############################################################################# # #############################################################################

2
t/pt-fk-error-logger/standard_options.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
require "$trunk/bin/pt-fk-error-logger"; require "$trunk/bin/pt-fk-error-logger";
# ######################################################################### # #########################################################################

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-heartbeat"; require "$trunk/bin/pt-heartbeat";

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

@@ -12,7 +12,7 @@ use English qw(-no_match_vars);
use Time::HiRes qw(sleep); use Time::HiRes qw(sleep);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-heartbeat"; require "$trunk/bin/pt-heartbeat";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-heartbeat"; require "$trunk/bin/pt-heartbeat";

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

@@ -11,9 +11,9 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
# See http://code.google.com/p/maatkit/wiki/Testing # See http://code.google.com/p/maatkit/wiki/Testing
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
require "$trunk/bin/pt-index-usage"; require "$trunk/bin/pt-index-usage";
use Sandbox; use Sandbox;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
my $cnf = '/tmp/12345/my.sandbox.cnf'; my $cnf = '/tmp/12345/my.sandbox.cnf';
my $cmd = "$trunk/bin/pt-index-usage"; my $cmd = "$trunk/bin/pt-index-usage";

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

@@ -11,9 +11,9 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
# See http://code.google.com/p/maatkit/wiki/Testing # See http://code.google.com/p/maatkit/wiki/Testing
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
require "$trunk/bin/pt-index-usage"; require "$trunk/bin/pt-index-usage";
use Sandbox; use Sandbox;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 8; use Test::More tests => 8;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 3; use Test::More tests => 3;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

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

@@ -12,7 +12,7 @@ use English qw(-no_match_vars);
use Time::HiRes qw(sleep); use Time::HiRes qw(sleep);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 14; use Test::More tests => 14;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";
my $dp = new DSNParser(opts=>$dsn_opts); my $dp = new DSNParser(opts=>$dsn_opts);

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 5; use Test::More tests => 5;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-kill"; require "$trunk/bin/pt-kill";

2
t/pt-log-player/filter.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/issue_799.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/issue_903.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/option_sanity.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/play.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/split.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 6; use Test::More tests => 6;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-log-player/split_random.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 5; use Test::More tests => 5;
use MaatkitTest; use PerconaTest;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";
my $output; my $output;

2
t/pt-log-player/standard_options.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-log-player"; require "$trunk/bin/pt-log-player";

2
t/pt-mysql-summary/pt-mysql-summary.t
View File

@@ -10,7 +10,7 @@ use strict;
use warnings FATAL => 'all'; use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use MaatkitTest; use PerconaTest;
system("$trunk/util/test-bash-tool pt-mysql-summary @ARGV"); system("$trunk/util/test-bash-tool pt-mysql-summary @ARGV");

2
t/pt-online-schema-change/alter_active_table.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
use Time::HiRes qw(usleep); use Time::HiRes qw(usleep);
use Data::Dumper; use Data::Dumper;

2
t/pt-online-schema-change/basics.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-online-schema-change"; require "$trunk/bin/pt-online-schema-change";

2
t/pt-online-schema-change/check_tables.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
require "$trunk/bin/pt-online-schema-change"; require "$trunk/bin/pt-online-schema-change";

2
t/pt-online-schema-change/option_sanity.t
View File

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
use MaatkitTest; use PerconaTest;
my $output = ""; my $output = "";
my $cmd = "$trunk/bin/pt-online-schema-change"; my $cmd = "$trunk/bin/pt-online-schema-change";

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

@@ -10,7 +10,7 @@ use strict;
use warnings FATAL => 'all'; use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use MaatkitTest; use PerconaTest;
system("$trunk/util/test-bash-tool pt-pmp @ARGV"); system("$trunk/util/test-bash-tool pt-pmp @ARGV");

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 13; use Test::More tests => 13;
use MaatkitTest; use PerconaTest;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
require "$trunk/bin/pt-query-advisor"; require "$trunk/bin/pt-query-advisor";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 3; use Test::More tests => 3;
use MaatkitTest; use PerconaTest;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
require "$trunk/bin/pt-query-advisor"; require "$trunk/bin/pt-query-advisor";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
require "$trunk/bin/pt-query-advisor"; require "$trunk/bin/pt-query-advisor";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t
require "$trunk/bin/pt-query-advisor"; require "$trunk/bin/pt-query-advisor";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
shift @INC; # These two shifts are required for tools that use base and shift @INC; # These two shifts are required for tools that use base and
shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t shift @INC; # derived classes. See mk-query-digest/t/101_slowlog_analyses.t

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/"; my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/";

4
t/pt-query-digest/binlog_analyses.t
View File

@@ -11,11 +11,11 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
# See 101_slowlog_analyses.t or http://code.google.com/p/maatkit/wiki/Testing # See 101_slowlog_analyses.t or http://code.google.com/p/maatkit/wiki/Testing
shift @INC; # our unshift (above) shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
require "$trunk/bin/pt-query-digest"; require "$trunk/bin/pt-query-digest";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
use DSNParser; use DSNParser;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
my $output; my $output;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 6; use Test::More tests => 6;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
use DSNParser; use DSNParser;

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

@@ -12,11 +12,11 @@ use English qw(-no_match_vars);
use Test::More; use Test::More;
use Sandbox; use Sandbox;
use MaatkitTest; use PerconaTest;
use VersionParser; use VersionParser;
# See 101_slowlog_analyses.t for why we shift. # See 101_slowlog_analyses.t for why we shift.
shift @INC; # our unshift (above) shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
shift @INC; # Sandbox shift @INC; # Sandbox
require "$trunk/bin/pt-query-digest"; require "$trunk/bin/pt-query-digest";

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

@@ -12,11 +12,11 @@ use English qw(-no_match_vars);
use Test::More; use Test::More;
use Sandbox; use Sandbox;
use MaatkitTest; use PerconaTest;
use VersionParser; use VersionParser;
# See 101_slowlog_analyses.t for why we shift. # See 101_slowlog_analyses.t for why we shift.
shift @INC; # our unshift (above) shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
shift @INC; # Sandbox shift @INC; # Sandbox
require "$trunk/bin/pt-query-digest"; require "$trunk/bin/pt-query-digest";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use DSNParser; use DSNParser;
use VersionParser; use VersionParser;
use Sandbox; use Sandbox;

4
t/pt-query-digest/genlog_analyses.t
View File

@@ -11,11 +11,11 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 4; use Test::More tests => 4;
use MaatkitTest; use PerconaTest;
# See 101_slowlog_analyses.t or http://code.google.com/p/maatkit/wiki/Testing # See 101_slowlog_analyses.t or http://code.google.com/p/maatkit/wiki/Testing
shift @INC; # our unshift (above) shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
require "$trunk/bin/pt-query-digest"; require "$trunk/bin/pt-query-digest";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 3; use Test::More tests => 3;
use MaatkitTest; use PerconaTest;
my $output; my $output;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --type http --limit 10 $trunk/t/lib/samples/http/"; my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --type http --limit 10 $trunk/t/lib/samples/http/";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use Sandbox; use Sandbox;
use DSNParser; use DSNParser;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/"; my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/slowlogs/";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use DSNParser; use DSNParser;
use Sandbox; use Sandbox;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/"; my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/";
my $cmd; my $cmd;

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
# ############################################################################# # #############################################################################
# Issue 565: mk-query-digest isn't compiling filter correctly # Issue 565: mk-query-digest isn't compiling filter correctly

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 2; use Test::More tests => 2;
use MaatkitTest; use PerconaTest;
# ############################################################################# # #############################################################################
# Issue 687: Test segfaults on old version of Perl # Issue 687: Test segfaults on old version of Perl

4
t/pt-query-digest/issue_736.t
View File

@@ -11,9 +11,9 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 1; use Test::More tests => 1;
use MaatkitTest; use PerconaTest;
shift @INC; # our unshift (above) shift @INC; # our unshift (above)
shift @INC; # MaatkitTest's unshift shift @INC; # PerconaTest's unshift
require "$trunk/bin/pt-query-digest"; require "$trunk/bin/pt-query-digest";
# ############################################################################# # #############################################################################

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More tests => 11; use Test::More tests => 11;
use MaatkitTest; use PerconaTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/memcached/"; my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/memcached/";

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

@@ -11,7 +11,7 @@ use warnings FATAL => 'all';
use English qw(-no_match_vars); use English qw(-no_match_vars);
use Test::More; use Test::More;
use MaatkitTest; use PerconaTest;
use DSNParser; use DSNParser;
use Sandbox; use Sandbox;

Some files were not shown because too many files have changed in this diff Show More