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

Change mk_tool::main() to pt_tool::main() in all tests.

Browse Source
This commit is contained in:
Daniel Nichter
2011-06-29 11:56:49 -06:00
parent fd0941534a
commit 8e11cd85b3
112 changed files with 357 additions and 357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -42,7 +42,7 @@ my $output;
ok(
no_diff(
sub {
mk_index_usage::main(@args,
pt_index_usage::main(@args,
"$trunk/$samples/slow001.txt");
},
"$samples/slow001-report.txt"),
@@ -54,7 +54,7 @@ ok(
ok(
no_diff(
sub {
mk_index_usage::main(@args, qw(--drop all),
pt_index_usage::main(@args, qw(--drop all),
"$trunk/$samples/slow001.txt");
},
"$samples/slow001-report-drop-all.txt"),
@@ -65,7 +65,7 @@ ok(
ok(
no_diff(
sub {
mk_index_usage::main(@args,
pt_index_usage::main(@args,
"$trunk/$samples/slow002.txt");
},
"$samples/slow002-report.txt"),
@@ -76,7 +76,7 @@ ok(
# look unused. The output should be blank because dropping the
# PK isn't suggested by default and there's no other unused indexes.
$output = output(
sub { mk_index_usage::main(@args, "$trunk/$samples/slow003.txt") },
sub { pt_index_usage::main(@args, "$trunk/$samples/slow003.txt") },
);
is(
$output,
@@ -89,7 +89,7 @@ is(
ok(
no_diff(
sub {
mk_index_usage::main(@args,
pt_index_usage::main(@args,
"$trunk/$samples/slow005.txt");
},
"$samples/slow005-report.txt"),
@@ -100,7 +100,7 @@ ok(
# Capture errors, and ensure that statement blacklisting works OK.
# #############################################################################
$output = output(
sub { mk_index_usage::main(@args, "$trunk/$samples/slow004.txt") },
sub { pt_index_usage::main(@args, "$trunk/$samples/slow004.txt") },
stderr => 1,
);
my @errs = $output =~ m/DBD::mysql::db selectall_arrayref failed/g;
@@ -117,7 +117,7 @@ is(
ok(
no_diff(
sub {
mk_index_usage::main(@args, qw(-D sakila),
pt_index_usage::main(@args, qw(-D sakila),
"$trunk/$samples/slow006.txt");
},
"$samples/slow006-report.txt"),
@@ -126,7 +126,7 @@ ok(
$output = output(
sub {
mk_index_usage::main(@args, qw(-q),
pt_index_usage::main(@args, qw(-q),
"$trunk/$samples/slow006.txt");
},
);

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

@@ -38,7 +38,7 @@ my $output;
$sb->wipe_clean($dbh);
mk_index_usage::main(@args, "$trunk/t/lib/samples/empty",
pt_index_usage::main(@args, "$trunk/t/lib/samples/empty",
qw(--empty-save-results --create-save-results-database --no-report),
'-t', 'sakila.actor,sakila.address');
@@ -103,7 +103,7 @@ is_deeply(
);
# Now for the real test.
mk_index_usage::main(@args, "$trunk/t/pt-index-usage/samples/slow007.txt",
pt_index_usage::main(@args, "$trunk/t/pt-index-usage/samples/slow007.txt",
qw(--empty-save-results --no-report), '-t', 'sakila.actor,sakila.address');
$rows = $dbh->selectall_arrayref("select * from mk.tables order by db, tbl");
@@ -225,7 +225,7 @@ is_deeply(
# #############################################################################
# Run again to check that cnt vals are properly updated.
# #############################################################################
mk_index_usage::main(@args, "$trunk/t/pt-index-usage/samples/slow007.txt",
pt_index_usage::main(@args, "$trunk/t/pt-index-usage/samples/slow007.txt",
qw(--no-report), '-t', 'sakila.actor,sakila.address');
$rows = $dbh->selectall_arrayref("select * from mk.tables order by db, tbl");