percona-toolkit/t/pt-config-diff/basics.t

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

require VersionParser;
my $dp = new DSNParser(opts=>$dsn_opts);
my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
my $source_dbh = $sb->get_dbh_for('source');
my $replica_dbh  = $sb->get_dbh_for('replica1');

if ( !$source_dbh ) {
   plan skip_all => 'Cannot connect to sandbox source';
}
elsif ( !$replica_dbh ) {
   plan skip_all => 'Cannot connect to sandbox replica';
}

my $cnf = '/tmp/12345/my.sandbox.cnf';
my $samples = "$trunk/t/pt-config-diff/samples/";
my $output;
my $retval;

# ############################################################################
# Compare active configs.
# ############################################################################

$output = output(
   sub { $retval = pt_config_diff::main(
      'h=127.1,P=12345,u=msandbox,p=msandbox', 'h=127.1')
   },
   stderr => 1,
);

is(
   $retval,
   0,
   "Server active config doesn't differ with itself"
);

is(
   $output,
   "",
   "No output when no diff"
);

# Diff source to replica1.  There should be several differences.
$output = output(
   sub { $retval = pt_config_diff::main(
      'h=127.1,P=12345,u=msandbox,p=msandbox', 'P=12346')
   },
   stderr => 1,
);

is(
   $retval,
   1,
   "Exit 1 when diffs found"
);

like(
   $output,
   qr{datadir\s+/tmp/12345/data/\s+/tmp/12346/data/},
   "Diff output"
);


# ############################################################################
# Compare opt file and active config.
# ############################################################################

$output = output(
   sub { $retval = pt_config_diff::main(
      $cnf, 'h=127.1,P=12345,u=msandbox,p=msandbox')
   },
   stderr => 1,
);

is(
   $retval,
   0,
   "my.sandbox.cnf doesn't differ with active config"
);

is(
   $output,
   "",
   "No output"
);

# Compare source config to replica active/SHOW VARS
$output = output(
   sub { $retval = pt_config_diff::main(
      $cnf, 'h=127.1,P=12346,u=msandbox,p=msandbox')
   },
   stderr => 1,
);

is(
   $retval,
   1,
   "Source my.sandbox.cnf differs from replica active config"
);

like(
   $output,
   qr{server_id\s+12345\s+12346},
   "Config diff output"
);

# ############################################################################
# Compare option file configs.
# ############################################################################

$output = output(
   sub { $retval = pt_config_diff::main($cnf, $cnf) },
   stderr => 1,
);

is(
   $retval,
   0,
   "Server option file config doesn't differ with itself"
);

is(
   $output,
   "",
   "No output"
);

$output = output(
   sub { $retval = pt_config_diff::main(
      '/tmp/12345/my.sandbox.cnf',
      '/tmp/12346/my.sandbox.cnf',
   ) },
   stderr => 1,
);

is(
   $retval,
   1,
   "Source and replica option files differ"
);

like(
   $output,
   qr{port\s+12345\s+12346},
   "Config diff output"
);

# #############################################################################
# Case insensitivity
# #############################################################################

use File::Spec;

$output = output(
   sub { $retval = pt_config_diff::main(
      File::Spec->catfile($samples, "case1.cnf"),
      File::Spec->catfile($samples, "case2.cnf"),
   ) },
   stderr => 1,
);

is(
   $output,
   "",
   "Case-insensitive by default, finds no diffs"
);

$output = output(
   sub { $retval = pt_config_diff::main(
      File::Spec->catfile($samples, "case1.cnf"),
      File::Spec->catfile($samples, "case2.cnf"),
      '--no-ignore-case',
   ) },
   stderr => 1,
);

like(
   $output,
   qr/binlog_format\s+genlog\s+GENLOG/,
   "With case-insensitivity turned off, finds one diff"
);

# #############################################################################
# Done.
# #############################################################################
ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");

done_testing;