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

Add forked Maatkit tools in bin/ and their tests in t/.

Browse Source
This commit is contained in:
Daniel Nichter
2011-06-24 16:02:05 -06:00
parent 6c501128e6
commit b4b6376be1
679 changed files with 177876 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
t/pt-query-digest/memcached_analyses.t Normal file
View File

@@ -0,0 +1,90 @@
#!/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 => 11;
use MaatkitTest;
my $run_with = "$trunk/bin/pt-query-digest --report-format=query_report --limit 10 $trunk/t/lib/samples/memcached/";
# #############################################################################
# Issue 525: Add memcached support to mk-query-digest
# #############################################################################
ok(
no_diff($run_with.'memc_tcpdump001.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump001.txt"),
'Analysis for memc_tcpdump001.txt'
);
ok(
no_diff($run_with.'memc_tcpdump002.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump002.txt"),
'Analysis for memc_tcpdump002.txt'
);
ok(
no_diff($run_with.'memc_tcpdump003.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump003.txt"),
'Analysis for memc_tcpdump003.txt'
);
ok(
no_diff($run_with.'memc_tcpdump003.txt --type memcached --group-by key_print',
"t/pt-query-digest/samples/memc_tcpdump003_report_key_print.txt"),
'Analysis for memc_tcpdump003.txt --group-by key_print'
);
ok(
no_diff($run_with.'memc_tcpdump004.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump004.txt"),
'Analysis for memc_tcpdump004.txt'
);
ok(
no_diff($run_with.'memc_tcpdump005.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump005.txt"),
'Analysis for memc_tcpdump005.txt'
);
ok(
no_diff($run_with.'memc_tcpdump006.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump006.txt"),
'Analysis for memc_tcpdump006.txt'
);
ok(
no_diff($run_with.'memc_tcpdump007.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump007.txt"),
'Analysis for memc_tcpdump007.txt'
);
ok(
no_diff($run_with.'memc_tcpdump008.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump008.txt"),
'Analysis for memc_tcpdump008.txt'
);
ok(
no_diff($run_with.'memc_tcpdump009.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump009.txt"),
'Analysis for memc_tcpdump009.txt'
);
ok(
no_diff($run_with.'memc_tcpdump010.txt --type memcached',
"t/pt-query-digest/samples/memc_tcpdump010.txt"),
'Analysis for memc_tcpdump010.txt'
);
# #############################################################################
# Done.
# #############################################################################
exit;