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

Add pt-fingerprint.

Browse Source
This commit is contained in:
Daniel Nichter
2012-03-26 10:06:10 -06:00
parent f4c978c957
commit 240062f847
2 changed files with 2132 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2101
bin/pt-fingerprint Executable file
View File

File diff suppressed because it is too large Load Diff

31
t/pt-fingerprint/basics.t Normal file
View File

@@ -0,0 +1,31 @@
#!/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;
require "$trunk/bin/pt-fingerprint";
my @args = qw(--report-format=query_report --limit 10);
my $sample = "$trunk/t/lib/samples/slowlogs/";
my $output;
$output = `$trunk/bin/pt-fingerprint --help`;
like(
$output,
qr/--help/,
"It runs"
);
# #############################################################################
# Done.
# #############################################################################
exit;