Re: ANNOUNCE: DBI 1.54 RC4 - including cool new DBD::Gofer stateless proxy

[Tim Bunce]

On Fri, Feb 16, 2007 at 08:26:57PM -0800, Darren Duncan wrote:
> At 12:44 AM +0000 2/17/07, Tim Bunce wrote:
> >You can download it from:
> >
> >    http://homepage.mac.com/tim.bunce/.Public/perl/DBI-1.54-RC4.tar.gz
> >
> >I'd be grateful for any testing, and especially for feedback on DBD::Gofer.
> >Some testing on strange platforms, like Windows, would be helpful as I'm
> >sure they'll be portability issues with some gofer transports.
> 
> A simple 'make test' fails on my machine (Perl 5.8.8 no threads, Mac 
> OS X 10.4.8 PPC, GCC 4.0.1) citing various problems with Gofer.

> t/85gofer.................
> #   Failed test 'should connect'
> #   in t/85gofer.t at line 92.
> #   Failed test 'Testing pipeone transport with pedantic policy aborted
> # '
> #   in t/85gofer.t at line 52.

This won't fix the underlying problem but at least we'll get to see the error:

--- t/85gofer.t (revision 9118)
+++ t/85gofer.t (working copy)
@@ -88,7 +88,7 @@
     $dsn = $remote_dsn if $transport eq 'no';
     print " $dsn\n";
 
-    my $dbh = DBI->connect($dsn, undef, undef, { HandleError => sub { print 
$_[0]; 1 } } );
+    my $dbh = DBI->connect($dsn, undef, undef, { } );
     ok $dbh, 'should connect';
     die "$test_run_tag aborted\n" unless $dbh;
 
@@ -100,8 +100,10 @@
     ok $dbh->do("CREATE TABLE fruit (dKey INT, dVal VARCHAR(10))");
     die "$test_run_tag aborted\n" if $DBI::err;
 
-    my $sth;
-    $sth = $dbh->prepare("complete non-sql gibberish");
+    my $sth = do {
+        local $dbh->{PrintError} = 0;
+        $dbh->prepare("complete non-sql gibberish");
+    };
     ($policy->skip_prepare_check)
         ? isa_ok $sth, 'DBI::st'
         : is $sth, undef, 'should detect prepare failure';

Let me know what it says when you run it with that patch applied.

Thanks Darren.

Tim.