#!/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 PerconaTest;

my ($tool) = $PROGRAM_NAME =~ m/([\w-]+)\.t$/;

use Test::More tests => 3;
use File::Temp qw( tempdir );

local $ENV{PTDEBUG} = "";

#
# --save-data
#
my $dir = tempdir( CLEANUP => 1 );

`$trunk/bin/$tool --sleep 1 --save-data $dir`;

ok(
   -e $dir,
   "Using --save-data doesn't mistakenly delete the target dir"
);

my @files = glob("$dir/*");

is(
   scalar @files,
   12,
   "And leaves all files in there"
);

undef($dir);

#
# --dump-schemas
#

my $out = `$trunk/bin/$tool --sleep 1 --dump-schemas mysql 2>/dev/null`;

like(
   $out,
   qr/Database Tables Views SPs Trigs Funcs   FKs Partn\s+\Q{chosen}\E/,
   "--dump-schemas works"
);

exit;