1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
use strict;
use warnings;
use Test::More tests => 6;
#
# Include lib.pl
#
use lib 't', '.';
require 'lib.pl';
# Base DBD Driver Test
BEGIN {
use_ok('DBI') or BAIL_OUT "Unable to load DBI";
use_ok('DBD::mysql') or BAIL_OUT "Unable to load DBD::mysql";
}
my $switch = DBI->internal;
cmp_ok ref $switch, 'eq', 'DBI::dr', 'Internal set';
# This is a special case. install_driver should not normally be used.
my $drh= DBI->install_driver('mysql');
ok $drh, 'Install driver';
cmp_ok ref $drh, 'eq', 'DBI::dr', 'DBI::dr set';
ok $drh->{Version}, "Version $drh->{Version}";
diag "Driver version is ", $drh->{Version}, "\n";
|
