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

Test pt-table-usage with fingerprints (Percona 22175).

Browse Source
This commit is contained in:
Daniel Nichter
2012-05-25 11:23:38 -06:00
parent d2361c5a44
commit 6c02e062fd
1 changed files with 49 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

50
t/pt-table-usage/basics.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 => 16;
use PerconaTest;
require "$trunk/bin/pt-table-usage";
@@ -132,6 +132,54 @@ ok(
'Analysis for slow003.txt'
);
# #############################################################################
# Process fingerprints.
# #############################################################################
my @queries = (
# [ original query, its fingerprint ],
[
"select * from t",
"select * from t",
],
[
"select * from t1, t2 as x, t3 y, z",
"select * from t1, t2 as x, t3 y, z",
],
[
"insert into t values (1, 2, 3)",
"insert into t values(?+)",
],
[
"delete from t where id < 1000",
"delete from t where id < ?",
],
[
"select * from a as t1, b as t2 where t1.id=t2.id",
"select * from a as t1, b as t2 where t1.id=t2.id",
],
[
"replace into t set foo='bar'",
"replace into t set foo=?",
],
);
foreach my $in ( @queries ) {
my $expected = output(
sub { pt_table_usage::main(qw(--query), $in->[0]) },
stderr => 1,
);
my $got = output(
sub { pt_table_usage::main(qw(--query), $in->[1]) },
stderr => 1,
);
is(
$got,
$expected,
"Fingerprint " . (length $in->[1] > 70 ? substr($in->[1], 0, 70)
: $in->[1])
);
}
# #############################################################################
# Done.
# #############################################################################