From: Aaron Trevena Date: Mon, 28 Aug 2006 14:42:07 +0000 (+0000) Subject: fixed db_colinfo wrong number of tests X-Git-Tag: 2.12~53 X-Git-Url: https://git.decadent.org.uk/gitweb/?a=commitdiff_plain;h=404332b8ba75418b239e71fd8dcd142bc2a2f90c;p=maypole.git fixed db_colinfo wrong number of tests git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@521 48953598-375a-da11-a14b-00016c27c3ee --- diff --git a/t/db_colinfo.t b/t/db_colinfo.t index 74dea75..50f885f 100755 --- a/t/db_colinfo.t +++ b/t/db_colinfo.t @@ -1,9 +1,12 @@ #!/usr/bin/perl -w use Test::More; use Data::Dumper; +use DBI; use lib 'examples'; # Where BeerDB should live BEGIN { - plan tests => 45; + my $drh = eval { DBI->install_driver("mysql"); }; + my $testcount = ($@) ? 45 : 65 ; + plan tests => $testcount; } $db = 'test';