[svn:DBD-Pg] r14535 - DBD-Pg/trunk/t

[turnstep]

Author: turnstep
Date: Sat Nov 20 20:46:41 2010
New Revision: 14535

Modified:
   DBD-Pg/trunk/t/01connect.t

Log:
Make sure case doesn't matter in DBI: connection. This is a DBI job: simply 
here as a sanity check.


Modified: DBD-Pg/trunk/t/01connect.t
==============================================================================
--- DBD-Pg/trunk/t/01connect.t  (original)
+++ DBD-Pg/trunk/t/01connect.t  Sat Nov 20 20:46:41 2010
@@ -24,7 +24,7 @@
 if (! defined $dbh or $connerror) {
        plan skip_all => 'Connection to database failed, cannot continue 
testing';
 }
-plan tests => 13;
+plan tests => 15;
 
 pass ('Established a connection to the database');
 
@@ -86,6 +86,22 @@
                is ($err, '', $t);
        }
 
+       $t=q{Connect with forced uppercase 'DBI:' works};
+       my 
($testdsn,$testuser,$helpconnect,$su,$uid,$testdir,$pg_ctl,$initdb,$error,$version)
+               = get_test_settings();
+       $testdsn =~ s/^dbi/DBI/i;
+       my $ldbh = DBI->connect($testdsn, $testuser, $ENV{DBI_PASS},
+        {RaiseError => 1, PrintError => 0, AutoCommit => 0});
+       ok (ref $ldbh, $t);
+       $ldbh->disconnect();
+
+       $t=q{Connect with mixed case 'DbI:' works};
+       $testdsn =~ s/^dbi/DbI/i;
+       $ldbh = DBI->connect($testdsn, $testuser, $ENV{DBI_PASS},
+        {RaiseError => 1, PrintError => 0, AutoCommit => 0});
+       ok (ref $ldbh, $t);
+       $ldbh->disconnect();
+
        if ($ENV{DBI_DSN} =~ /$alias\s*=\s*\"/) {
                skip ('DBI_DSN already contains quoted database, no need for 
explicit test', 1);
        }