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
|
# $Id$
#
use strict;
use warnings;
use Test::More;
use DateTime::Format::DBI;
eval "use DBI;";
plan skip_all => "DBI required for real database test" if $@;
eval "use DBD::SQLite;";
plan skip_all => "DBD::SQLite required for real database test" if $@;
eval "use DateTime::Format::SQLite;";
plan skip_all => "DateTime::Format::SQLite required for real SQLite test" if $@;
plan tests => 1;
my $file = "sql$$.tmp";
my $dbh = DBI->connect("dbi:SQLite:dbname=$file","","");
isa_ok(DateTime::Format::DBI->new($dbh), 'DateTime::Format::SQLite');
unlink $file;
|
