From 9afbe090b709ab03aa02e7404a77d06135cb0c80 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane
Date: Tue, 22 May 2012 23:32:56 -0400
Subject: Bail out early if the test server is completely unreachable

---
 t/02_autovac_freeze.t | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/t/02_autovac_freeze.t b/t/02_autovac_freeze.t
index 4fd585d3f..5ab0d7e31 100644
--- a/t/02_autovac_freeze.t
+++ b/t/02_autovac_freeze.t
@@ -27,8 +27,15 @@ SKIP:
 {
     $ver < 80200 and skip 'Cannot test autovac_freeze on old Postgres versions', 8;
 
-$t = qq{$S self-identifies correctly};
 $result = $cp->run(q{-w 0%});
+
+## As this is the first alphabetic test, let's make an emergency bailout if
+## the server is not reachable at all!
+if ($result =~ /ERROR.+cptesting_socket/s) {
+	BAIL_OUT 'Could not connect to the testing database server!';
+}
+
+$t = qq{$S self-identifies correctly};
 like ($result, qr{^$label}, $t);
 
 $t = qq{$S identifies host};
-- 
cgit v1.2.3