From 773e84f52a57e3d1d2d4c98c6f49925b7c47b4ac Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Sat, 11 Mar 2000 02:57:24 +0000 Subject: [PATCH] Update perl5's self-test for changed spelling of connection failure error message. --- src/interfaces/perl5/test.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl index 8f0a572c24..c9e0cf6c5e 100644 --- a/src/interfaces/perl5/test.pl +++ b/src/interfaces/perl5/test.pl @@ -1,6 +1,6 @@ #!/usr/local/bin/perl -w -# $Id: test.pl,v 1.11 1999/10/08 17:14:45 momjian Exp $ +# $Id: test.pl,v 1.12 2000/03/11 02:57:24 tgl Exp $ # Before `make install' is performed this script should be runnable with # `make test'. After `make install' it should work as `perl test.pl' @@ -114,7 +114,7 @@ $result = $conn->exec("CREATE DATABASE $dbname"); or die "\$conn->exec ............. not ok: ", $conn->errorMessage; $conn = Pg::connectdb("dbname=rumpumpel"); -( $conn->errorMessage =~ 'Database rumpumpel does not exist' ) +( $conn->errorMessage =~ 'Database "rumpumpel" does not exist' ) and print "\$conn->errorMessage ..... ok\n" or die "\$conn->errorMessage ..... not ok: ", $conn->errorMessage;