10 # XXX we're only testing TIMESTAMP here
12 my ($dsn, $user, $pass) = @ENV{map { "DBICTEST_FIREBIRD_${_}" } qw/DSN USER PASS/};
13 my ($dsn2, $user2, $pass2) = @ENV{map { "DBICTEST_FIREBIRD_ODBC_${_}" } qw/DSN USER PASS/};
15 if (not ($dsn || $dsn2)) {
16 plan skip_all => <<'EOF';
17 Set $ENV{DBICTEST_FIREBIRD_DSN} and/or $ENV{DBICTEST_FIREBIRD_ODBC_DSN}
18 _USER and _PASS to run this test'.
19 Warning: This test drops and creates a table called 'event'";
22 eval "use DateTime; use DateTime::Format::Strptime;";
24 plan skip_all => 'needs DateTime and DateTime::Format::Strptime for testing';
29 [ $dsn, $user, $pass ],
30 [ $dsn2, $user2, $pass2 ],
35 foreach my $info (@info) {
36 my ($dsn, $user, $pass) = @$info;
40 $schema = DBICTest::Schema->clone;
42 $schema->connection($dsn, $user, $pass, {
43 on_connect_call => [ 'datetime_setup' ],
46 my $sg = Scope::Guard->new(\&cleanup);
48 eval { $schema->storage->dbh->do("DROP TABLE event") };
49 $schema->storage->dbh->do(<<"SQL");
55 my $now = DateTime->now;
57 ok( $row = $schema->resultset('Event')->create({
61 ok( $row = $schema->resultset('Event')
62 ->search({ id => 1 }, { select => ['created_on'] })
65 is( $row->created_on, $now, 'DateTime roundtrip' );
74 $schema->storage->disconnect; # to avoid object FOO is in use errors
75 $dbh = $schema->storage->dbh;
79 eval { $dbh->do("DROP TABLE $_") } for qw/event/;