From 2a0564f48a17a688c114fac6384bb2a4dd34865b Mon Sep 17 00:00:00 2001 From: biopete Date: Mon, 3 Jul 2006 19:16:37 +0000 Subject: [PATCH] aoeuaou git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@502 48953598-375a-da11-a14b-00016c27c3ee --- t/db_colinfo.t | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) 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; -- 2.39.5