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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
use strict; use warnings;
use Test::More;
use File::Find;
use File::Spec::Functions qw(catdir splitdir);
BEGIN { # compat shim for old Test::More
defined &BAIL_OUT or *BAIL_OUT = sub {
my $t = Test::Builder->new;
$t->no_ending(1); # needed before Test::Builder 0.61
$t->BAILOUT(@_); # added in Test::Builder 0.40
};
}
my $CLASS = 'DBIx::Connector';
my @drivers = "$CLASS\::Driver";
find {
no_chdir => 1,
wanted => sub {
s/[.]pm$// or return;
my (undef, @path_segment) = splitdir $_; # throw away initial lib/ segment
push @drivers, join '::', @path_segment;
}
}, catdir qw(lib DBIx Connector Driver);
plan tests => 2 + 3 * @drivers;
# Test the main class.
use_ok $CLASS or BAIL_OUT "Could not load $CLASS";
can_ok $CLASS, qw(
new
dbh
connect
connected
disconnect
DESTROY
);
# Test the drivers.
for my $driver (@drivers) {
use_ok $driver or $driver ne "$CLASS\::Driver" or BAIL_OUT "Could not load $driver";
ok eval { $driver->isa( $_ ) }, "'$driver' isa '$_'" for "$CLASS\::Driver";
can_ok $driver, qw(
new
ping
begin_work
commit
rollback
savepoint
release
rollback_to
);
}
|
