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

(temp commit, syncing up)

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-03-20 11:21:16 -03:00
parent 3cfb1c0af7
commit 31afeb73b5
14 changed files with 3624 additions and 852 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -23,22 +23,22 @@ use File::Temp qw( tempdir );
local $ENV{PTDEBUG} = "";
#
# --tempdir
# --save-data
#
my $dir = tempdir( CLEANUP => 1 );
`$trunk/bin/$tool --sleep 1 --tempdir $dir`;
`$trunk/bin/$tool --sleep 1 --save-data $dir`;
ok(
-e $dir,
"Using --tempdir doesn't mistakenly delete the target dir"
"Using --save-data doesn't mistakenly delete the target dir"
);
my @files = glob("$dir/*");
is(
scalar @files,
14,
13,
"And leaves all files in there"
);
@@ -48,7 +48,7 @@ undef($dir);
# --dump-schemas
#
my $out = `$trunk/bin/$tool --sleep 1 --dump-schemas mysql`;
my $out = `$trunk/bin/$tool --sleep 1 --dump-schemas mysql 2>/dev/null`;
like(
$out,