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

[turnstep]

Author: turnstep
Date: Sat Nov 20 20:56:31 2010
New Revision: 14537

Modified:
   DBD-Pg/trunk/t/04misc.t

Log:
Tests for the modified data_sources()


Modified: DBD-Pg/trunk/t/04misc.t
==============================================================================
--- DBD-Pg/trunk/t/04misc.t     (original)
+++ DBD-Pg/trunk/t/04misc.t     Sat Nov 20 20:56:31 2010
@@ -18,7 +18,7 @@
 if (! $dbh) {
        plan skip_all => 'Connection to database failed, cannot continue 
testing';
 }
-plan tests => 54;
+plan tests => 56;
 
 isnt ($dbh, undef, 'Connect to database for miscellaneous tests');
 
@@ -291,6 +291,29 @@
 @result = DBI->data_sources('Pg',"port=$port");
 isnt ($result[0], undef, $t);
 
+SKIP: {
+
+       $t=q{The "data_sources" method returns information when 'dbi:Pg' is 
uppercased};
+
+       if (! exists $ENV{DBI_DSN} or $ENV{DBI_DSN} !~ /pg/i) {
+               skip 'Cannot test data_sources() DBI_DSN munging unless DBI_DSN 
is set', 2;
+       }
+
+       my $orig = $ENV{DBI_DSN};
+       $ENV{DBI_DSN} =~ s/DBI:PG/DBI:PG/i;
+       @result = DBI->data_sources('Pg');
+       like ((join '' => @result), qr{template0}, $t);
+
+       $t=q{The "data_sources" method returns information when 'DBI:' is mixed 
case};
+
+       $ENV{DBI_DSN} =~ s/DBI:PG/dBi:pg/i;
+       @result = DBI->data_sources('Pg');
+       like ((join '' => @result), qr{template0}, $t);
+
+       $ENV{DBI_DSN} = $orig;
+
+}
+
 #
 # Test the use of $DBDPG_DEFAULT
 #