aoeuaou

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@502 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/t/db_colinfo.t b/t/db_colinfo.t
index ed54fd7de3f94c3f8d5c4810c7a093f11e5132c0..0c19556b6c732ad360a58556e82722a06051bb1b 100755 (executable)
--- a/t/db_colinfo.t
+++ b/t/db_colinfo.t
@@ -92,18 +92,20 @@ package main;
 
 $DB_Class = 'BeerDB::BeerTestsqlite';
 
+$err = undef;
 #unlink "t/test.db";
 if ( !-e "t/test.db" ) {
        eval {make_sqlite_db($sql)};
        $err = $@;
        if ($err) { print "Skipping sql tests because couldnt make sqlite test db
-               because of error $err"; exit; };
+               because of error: $err";};
+}
+unless ($err) {
+       my $driver = sqlite_driver();
+       eval { $DB_Class->connection("dbi:$driver:dbname='t/test.db'");};
+       $err = $@;
 }
 
-my $driver = sqlite_driver();
-eval { $DB_Class->connection("dbi:$driver:dbname='t/test.db'");};
-$err = $@;
-if ($err) { die "CDBI connection error: $err"; }
 $skip_msg = "Could not connect to SQLite database 't/test.db'";
 $skip_howmany = 13;