#!/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';