use DBI;
use lib 'examples'; # Where BeerDB should live
BEGIN {
- my $drh = eval { DBI->install_driver("mysql"); };
+ my $drh = eval {
+ DBI->install_driver("mysql");
+ my @databases = DBI->data_sources("mysql");
+ die "couldn't connect to mysql" unless (@databases);
+ };
+ warn "error : $@ \n" if ($@);
my $testcount = ($@) ? 45 : 65 ;
plan tests => $testcount;
}