From 4fda143536c3b2c0fcae39c8307d9c88f8774429 Mon Sep 17 00:00:00 2001
From: Greg Sabino Mullane <greg@endpoint.com>
Date: Wed, 22 Apr 2009 16:33:04 -0400
Subject: [PATCH] Ue self->{dbname} if available.

---
 t/CP_Testing.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/CP_Testing.pm b/t/CP_Testing.pm
index e387220c7..d617796b2 100644
--- a/t/CP_Testing.pm
+++ b/t/CP_Testing.pm
@@ -34,7 +34,7 @@ sub test_database_handle {
 
 	my $self = shift;
 	my $arg = shift || {};
-	$arg->{dbname} ||= 'postgres';
+	$arg->{dbname} ||= $self->{dbname} || 'postgres';
 
 	ref $arg eq 'HASH' or die qq{Must pass a hashref (or nothing) to test_database_handle\n};
 
-- 
2.39.5