From 404332b8ba75418b239e71fd8dcd142bc2a2f90c Mon Sep 17 00:00:00 2001 From: Aaron Trevena Date: Mon, 28 Aug 2006 14:42:07 +0000 Subject: [PATCH] fixed db_colinfo wrong number of tests git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@521 48953598-375a-da11-a14b-00016c27c3ee --- t/db_colinfo.t | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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'; -- 2.39.5