PT-572 More tests fixed

t/pt-slave-delay/standard_options.t

@@ -0,0 +1,100 @@
+#!/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-slave-delay";
+
+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 slave1';
+}
+
+my $output;
+my $cmd = "$trunk/bin/pt-slave-delay -F /tmp/12346/my.sandbox.cnf h=127.1";
+my $pid_file = "/tmp/pt-slave-delay-test.$PID";
+
+# Check daemonization.  This test used to print to STDOUT, causing
+# false-positive test errors.  The output isn't needed.  The tool
+# said "Reconnected to slave" every time it did SHOW SLAVE STATUS,
+# so needlessly.  That was removed.  Now it will print stuff when
+# we kill the process, which we don't want either.
+system("$cmd --delay 1m --interval 1s --run-time 5s --daemonize --pid $pid_file >/dev/null 2>&1");
+PerconaTest::wait_for_files($pid_file);
+chomp(my $pid = `cat $pid_file`);
+$output = `ps x | grep "^[ ]*$pid"`;
+like($output, qr/$cmd/, 'It lives daemonized');
+
+# Kill it
+diag(`kill $pid`);
+wait_until(sub{!kill 0, $pid});
+ok(! -f $pid_file, 'PID file removed');
+
+# #############################################################################
+# Check that SLAVE-HOST can be given by cmd line opts.
+# #############################################################################
+$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s --host 127.1 --port 12346 -u msandbox -p msandbox`;
+sleep 1;
+like(
+   $output,
+   qr/slave running /,
+   'slave host given by cmd line opts'
+);
+
+# And check issue 248: that the slave host will inhert from --port, etc.
+$output = `$trunk/bin/pt-slave-delay --run-time 1s --interval 1s 127.1 --port 12346 -u msandbox -p msandbox`;
+sleep 1;
+like(
+   $output,
+   qr/slave running /,
+   'slave host inherits --port, etc. (issue 248)'
+);
+
+# #############################################################################
+# Check --log.
+# #############################################################################
+`$cmd --run-time 1s --interval 1s --log /tmp/mk-slave-delay.log --daemonize`;
+sleep 2;
+$output = `cat /tmp/mk-slave-delay.log`;
+`rm -f /tmp/mk-slave-delay.log`;
+like(
+   $output,
+   qr/slave running /,
+   '--log'
+);
+
+# #########################################################################
+# Issue 391: Add --pid option to all scripts
+# #########################################################################
+`touch /tmp/mk-script.pid`;
+$output = `$cmd --run-time 1s --interval 1s --use-master --pid /tmp/mk-script.pid 2>&1`;
+like(
+   $output,
+   qr{PID file /tmp/mk-script.pid already exists},
+   'Dies if PID file already exists (--pid without --daemonize) (issue 391)'
+);
+`rm -rf /tmp/mk-script.pid`;
+
+# #############################################################################
+# Done.
+# #############################################################################
+ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
+done_testing;
+exit;