pt-mysql-summary 2.0

This commit is contained in:
Brian Fraser fraserb@gmail.com
2012-02-22 08:45:26 -03:00
parent 4d5d4da4b7
commit 3cfb1c0af7
27 changed files with 3650 additions and 474 deletions

View File

@@ -16,4 +16,44 @@ 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 File::Temp qw( tempdir );
local $ENV{PTDEBUG} = "";
#
# --tempdir
#
my $dir = tempdir( CLEANUP => 1 );
`$trunk/bin/$tool --sleep 1 --tempdir $dir`;
ok(
-e $dir,
"Using --tempdir doesn't mistakenly delete the target dir"
);
my @files = glob("$dir/*");
is(
scalar @files,
14,
"And leaves all files in there"
);
undef($dir);
#
# --dump-schemas
#
my $out = `$trunk/bin/$tool --sleep 1 --dump-schemas mysql`;
like(
$out,
qr/Database Tables Views SPs Trigs Funcs FKs Partn\s+\Q{chosen}\E/,
"--dump-schemas works"
);
exit;