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
|
# $Id$
#
use strict;
use warnings;
use Test::More;
use DateTime::Format::DBI;
eval "use Test::Database;";
plan skip_all => "Test::Database required for real database test" if $@;
my @dbkeys = sort keys %DateTime::Format::DBI::db_to_parser;
my @handles = Test::Database->handles;
plan tests => $#dbkeys + 1;
my(@done,@skip);
foreach my $dbkey ( @dbkeys )
{
my($handle,) = grep { lc($_->dbd) eq $dbkey } @handles;
subtest "with $dbkey" => sub {
if($handle) {
push @done, $dbkey;
plan tests => 3;
} else {
push @skip, $dbkey;
plan skip_all => "Test::Database not configured for $dbkey";
}
my $dbd = $handle->dbd;
my $parser = eval { DateTime::Format::DBI->new($handle->dbh); };
ok(defined $parser, "generate parser for DBD::$dbd");
isa_ok($parser, $DateTime::Format::DBI::db_to_parser{lc $dbd},
"correct parser class for DBD::$dbd");
isnt($parser->format_datetime(DateTime->now), '',
"working parser for DBD::$dbd");
}
}
my @mess;
push @mess, "tested: @done" if @done;
push @mess, "skipped: @skip" if @skip;
diag join ", ", @mess;
|
