diff options
| -rw-r--r-- | src/interfaces/perl5/test.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/perl5/test.pl b/src/interfaces/perl5/test.pl index 8f0a572c242..c9e0cf6c5e4 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; |