Changeset 155

Timestamp:

02/09/09 18:25:39 (10 months ago)

Author:

swistow

Message:

Don't throw exceptions in the test suite if we can't connect to the database

Some of the tests pass "duff" parameters to test failing dbh connections

Files:

• branches/use-existing-dbh/t/lib/db-common.pl (modified) (2 diffs)

branches/use-existing-dbh/t/lib/db-common.pl

@@ -55 +55 @@
     if ($ENV{USE_DBH_FOR_TEST}) {
         my @tmp;
-        for (@$dbs) {
+        for (@$dbs) { eval {
             my $dsn    = dsn_for($_);  
             my $dbh    = DBI->connect( $dsn, "root", "", {
@@ -64 +64 @@
             my $driver =  Data::ObjectDriver::Driver::DBI->new( dbh => $dbh); 
             push @tmp, { driver => $driver, prefix => $pfx };
-        }
+        } }
         return TheSchwartz->new(databases => [@tmp]); 
     } else {