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

(more syncing)

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-03-20 17:16:06 -03:00
parent 31afeb73b5
commit 55c7248c54
26 changed files with 2203 additions and 994 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
t/pt-mysql-summary/pt-mysql-summary.t
View File

@@ -13,11 +13,8 @@ use English qw(-no_match_vars);
use PerconaTest;
my ($tool) = $PROGRAM_NAME =~ m/([\w-]+)\.t$/;
push @ARGV, "$trunk/t/$tool/*.sh" unless @ARGV;
system("$trunk/util/test-bash-functions $trunk/bin/$tool @ARGV");
require Test::More;
Test::More->import( tests => 3 );
use Test::More tests => 3;
use File::Temp qw( tempdir );
local $ENV{PTDEBUG} = "";
@@ -38,7 +35,7 @@ my @files = glob("$dir/*");
is(
scalar @files,
13,
12,
"And leaves all files in there"
);