From 2aa2176fdd89a6695f575a9dcd1405e62abb617a Mon Sep 17 00:00:00 2001
From: Daniel Nichter <daniel@percona.com>
Date: Mon, 11 Mar 2013 10:05:04 -0600
Subject: [PATCH] Make tests start up host2.

---
 t/pt-upgrade/compare_hosts.t   |  8 ++++----
 t/pt-upgrade/compare_results.t |  8 ++++----
 t/pt-upgrade/save_results.t    | 12 ++++++++++--
 3 files changed, 18 insertions(+), 10 deletions(-)

diff --git a/t/pt-upgrade/compare_hosts.t b/t/pt-upgrade/compare_hosts.t
index 9ff07b61..1dcffff9 100644
--- a/t/pt-upgrade/compare_hosts.t
+++ b/t/pt-upgrade/compare_hosts.t
@@ -19,7 +19,7 @@ use Sandbox;
 require "$trunk/bin/pt-upgrade";
 
 # This runs immediately if the server is already running, else it starts it.
-# diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
+diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
 
 my $dp = new DSNParser(opts=>$dsn_opts);
 my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
@@ -107,7 +107,7 @@ close $dh;
 # Done.
 # #############################################################################
 #$sb->wipe_clean($dbh2);
-#$sb->wipe_clean($dbh1);
-#diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
-#ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
+$sb->wipe_clean($dbh1);
+diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
+ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
 done_testing;
diff --git a/t/pt-upgrade/compare_results.t b/t/pt-upgrade/compare_results.t
index 4995dbe6..0eaa6316 100644
--- a/t/pt-upgrade/compare_results.t
+++ b/t/pt-upgrade/compare_results.t
@@ -20,7 +20,7 @@ use Sandbox;
 require "$trunk/bin/pt-upgrade";
 
 # This runs immediately if the server is already running, else it starts it.
-# diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
+diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
 
 my $dp = new DSNParser(opts=>$dsn_opts);
 my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
@@ -127,7 +127,7 @@ close $dh;
 # Done.
 # #############################################################################
 #$sb->wipe_clean($dbh2);
-#$sb->wipe_clean($dbh1);
-#diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
-#ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
+$sb->wipe_clean($dbh1);
+diag(`$trunk/sandbox/stop-sandbox 12348 >/dev/null`);
+ok($sb->ok(), "Sandbox servers") or BAIL_OUT(__FILE__ . " broke the sandbox");
 done_testing;
diff --git a/t/pt-upgrade/save_results.t b/t/pt-upgrade/save_results.t
index 00774744..5b29e1e7 100644
--- a/t/pt-upgrade/save_results.t
+++ b/t/pt-upgrade/save_results.t
@@ -20,15 +20,23 @@ use PerconaTest;
 use Sandbox;
 require "$trunk/bin/pt-upgrade";
 
-my $dp   = new DSNParser(opts=>$dsn_opts);
-my $sb   = new Sandbox(basedir => '/tmp', DSNParser => $dp);
+# This runs immediately if the server is already running, else it starts it.
+diag(`$trunk/sandbox/start-sandbox master 12348 >/dev/null`);
+
+my $dp = new DSNParser(opts=>$dsn_opts);
+my $sb = new Sandbox(basedir => '/tmp', DSNParser => $dp);
 my $dbh1 = $sb->get_dbh_for('host1');
+my $dbh2 = $sb->get_dbh_for('host2');
 
 if ( !$dbh1 ) {
    plan skip_all => 'Cannot connect to sandbox host1'; 
 }
+elsif ( !$dbh2 ) {
+   plan skip_all => 'Cannot connect to sandbox host2';
+}
 
 my $host1_dsn = $sb->dsn_for('host1');
+my $host2_dsn = $sb->dsn_for('host2');
 
 my $tmpdir = tempdir("/tmp/pt-upgrade.$PID.XXXXXX", CLEANUP => 1);