From: biopete <biopete@invalid>
Date: Mon, 3 Jul 2006 19:16:37 +0000 (+0000)
Subject: aoeuaou
X-Git-Tag: 2.11~18
X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=2a0564f48a17a688c114fac6384bb2a4dd34865b;p=maypole.git

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 ed54fd7..0c19556 100755
--- 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;