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

Failing test for --database bug 1028614.

Browse Source
This commit is contained in:
Daniel Nichter
2012-07-28 14:17:28 -06:00
parent 2f3025c05d
commit 41c8aa001d
1 changed files with 15 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -27,9 +27,6 @@ if ( !$dbh ) {
if ( !@{ $dbh->selectall_arrayref("show databases like 'sakila'") } ) { if ( !@{ $dbh->selectall_arrayref("show databases like 'sakila'") } ) {
plan skip_all => "Sakila database is not loaded"; plan skip_all => "Sakila database is not loaded";
} }
else {
plan tests => 9;
}
my $cnf = '/tmp/12345/my.sandbox.cnf'; my $cnf = '/tmp/12345/my.sandbox.cnf';
my @args = ('-F', $cnf); my @args = ('-F', $cnf);
@@ -136,8 +133,23 @@ is(
'No output without default db' 'No output without default db'
); );
# https://bugs.launchpad.net/percona-toolkit/+bug/1028614
$dbh->do("CREATE DATABASE IF NOT EXISTS z");
$dbh->do("CREATE TABLE z.t (id int)");
ok(
no_diff(
sub { pt_index_usage::main(@args, qw(-D sakila),
"$trunk/$samples/slow006.txt") },
"$samples/slow006-report.txt"
),
'--database is kept (bug 1028614)'
);
# ############################################################################# # #############################################################################
# Done. # Done.
# ############################################################################# # #############################################################################
$sb->wipe_clean($dbh);
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox"); ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
done_testing;
exit; exit;