[svn:dbi] rev 592 - in dbi/trunk: . lib/DBD t

[timbo]

Author: timbo
Date: Thu Nov 25 06:32:33 2004
New Revision: 592

Modified:
   dbi/trunk/Changes
   dbi/trunk/lib/DBD/Proxy.pm
   dbi/trunk/t/07kids.t
   dbi/trunk/t/30subclass.t
Log:
Fixed some tests to work with older Test::More versions.
Changed DBD::Proxy to treat Username as a local attribute
so recent DBI version can be used with old DBI::ProxyServer.


Modified: dbi/trunk/Changes
==============================================================================
--- dbi/trunk/Changes   (original)
+++ dbi/trunk/Changes   Thu Nov 25 06:32:33 2004
@@ -4,6 +4,12 @@
 
 =cut
 
+=head2 Changes in DBI 1.47 (svn rev XXX),    XXth November 2004
+
+  Fixed some tests to work with older Test::More versions.
+  Changed DBD::Proxy to treat Username as a local attribute
+    so recent DBI version can be used with old DBI::ProxyServer.
+
 =head2 Changes in DBI 1.46 (svn rev 584),    16th November 2004
 
   Fixed parsing bugs in DBI::SQL::Nano thanks to Jeff Zucker.

Modified: dbi/trunk/lib/DBD/Proxy.pm
==============================================================================
--- dbi/trunk/lib/DBD/Proxy.pm  (original)
+++ dbi/trunk/lib/DBD/Proxy.pm  Thu Nov 25 06:32:33 2004
@@ -222,6 +222,7 @@
     Statement => 'local',
     Driver => 'local',
     dbi_connect_closure => 'local',
+    Username => 'local',
 );
 
 sub AUTOLOAD {

Modified: dbi/trunk/t/07kids.t
==============================================================================
--- dbi/trunk/t/07kids.t        (original)
+++ dbi/trunk/t/07kids.t        Thu Nov 25 06:32:33 2004
@@ -4,10 +4,11 @@
 
 use Test::More;
 
-if ($DBI::PurePerl) {
-       plan skip_all => '$h->{Kids} attribute not supported for DBI::PurePerl';
-}
-else {
+use DBI;
+
+BEGIN {
+       plan skip_all => '$h->{Kids} attribute not supported for DBI::PurePerl'
+               if $DBI::PurePerl && $DBI::PurePerl; # doubled to avoid typo 
warning
        plan tests => 20;
 }
 
@@ -29,11 +30,6 @@
 #   - after destruction of database handle
 ## ----------------------------------------------------------------------------
 
-## load DBI
-
-BEGIN {
-       use_ok('DBI');
-}
 
 # Connect to the example driver and create a database handle
 my $dbh = DBI->connect('dbi:ExampleP:dummy', '', '',

Modified: dbi/trunk/t/30subclass.t
==============================================================================
--- dbi/trunk/t/30subclass.t    (original)
+++ dbi/trunk/t/30subclass.t    Thu Nov 25 06:32:33 2004
@@ -121,8 +121,9 @@
 
 is($DBI::err, undef);
 $row = eval { $sth->fetch };
+my $eval_err = $@;
 is(!defined $row, 1);
-is(substr($@,0,50), "DBD::Sponge::st fetch failed: Don't be so negative");
+is(substr($eval_err,0,50), "DBD::Sponge::st fetch failed: Don't be so 
negative");
 
 #$sth->trace(5);
 #$sth->{PrintError} = 1;