~percona-toolkit-dev/percona-toolkit/fix-password-comma-bug-886077

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

 

use PerconaTest;

use Sandbox;

require "$trunk/bin/pt-table-checksum";

 

my $dp = new DSNParser(opts=>$dsn_opts);

my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);

my $master_dbh = $sb->get_dbh_for('master');

my $slave_dbh  = $sb->get_dbh_for('slave1');

 

if ( !$master_dbh ) {

   plan skip_all => 'Cannot connect to sandbox master';

}

elsif ( !$slave_dbh ) {

   plan skip_all => 'Cannot connect to sandbox slave';

}

else {

   plan tests => 1;

}

 

my $output;

my $res;

my $cnf='/tmp/12345/my.sandbox.cnf';

my $cmd = "$trunk/bin/pt-table-checksum -F $cnf 127.1";

 

# #############################################################################

# Issue 1319: mk-table-checksum -w causes perl error

# #############################################################################

$output = `$trunk/bin/pt-table-checksum h=127.1,P=12345,u=msandbox,p=msandbox P=12346 -d mysql -t user --slave-lag -w 60 2>&1`;

 

unlike(

   $output,

   qr/Odd number of elements/,

   "--wait doesn't cause error (issue 1319)"

);

 

# #############################################################################

# Done.

# #############################################################################

exit;