diff options
| author | Tom Lane <tgl@sss.pgh.pa.us> | 2000-03-11 02:57:24 +0000 |
|---|---|---|
| committer | Tom Lane <tgl@sss.pgh.pa.us> | 2000-03-11 02:57:24 +0000 |
| commit | 773e84f52a57e3d1d2d4c98c6f49925b7c47b4ac (patch) | |
| tree | d8cd0b5af0c83b2a20468bbee5d0eb268f786e57 /src | |
| parent | 0f17e3faab6bcc5321ac65691a00316b194239f2 (diff) | |
| download | postgresql-773e84f52a57e3d1d2d4c98c6f49925b7c47b4ac.tar.gz postgresql-773e84f52a57e3d1d2d4c98c6f49925b7c47b4ac.zip | |
Update perl5's self-test for changed spelling of connection failure
error message.
Diffstat (limited to 'src')
| -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; |