If we fail to get a database handle for testing, BAIL_OUT right away

turnstep · turnstep · commit 686a234fb91c · 2019-11-29T22:44:12.000Z
diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
@@ -66,6 +66,18 @@ sub cleanup {
 }
 
 sub test_database_handle {
+    my $self = shift;
+    my $dbh;
+    eval { $dbh = $self->_test_database_handle(@ARGV) };
+    if (!defined $dbh) {
+        Test::More::diag $@;
+        Test::More::BAIL_OUT 'Cannot continue without a test database';
+        return undef;
+    }
+    return $dbh;
+}
+
+sub _test_database_handle {
 
     ## Request for a database handle: create and startup DB as needed
 
