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

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

View File

@@ -0,0 +1,39 @@
#!/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 => 2;
use MaatkitTest;
shift @INC; # These shifts are required for tools that use base and derived
shift @INC; # classes. See mk-query-digest/t/101_slowlog_analyses.t
require "$trunk/bin/pt-variable-advisor";
my $cmd = "$trunk/bin/pt-variable-advisor";
my $output;
$output = `$cmd --source-of-variables=/tmp/foozy-fazzle-bad-file 2>&1`;
like(
$output,
qr/--source-of-variables file \S+ does not exist/,
"--source-of-variables file doesn't exit"
);
$output = `$cmd --source-of-variables mysql 2>&1`;
like(
$output,
qr/DSN must be specified/,
"--source-of-variablels=mysql requires DSN"
);
# #############################################################################
# Done.
# #############################################################################
exit;