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 $conn_idx (0..$#info) {
36 my ($dsn, $user, $pass) = @{ $info[$conn_idx] };
40 $schema = DBICTest::Schema->connect($dsn, $user, $pass, {
41 on_connect_call => [ 'datetime_setup' ],
44 my $sg = Scope::Guard->new(\&cleanup);
46 eval { $schema->storage->dbh->do("DROP TABLE event") };
47 $schema->storage->dbh->do(<<"SQL");
53 my $now = DateTime->now;
54 $now->set_nanosecond(555600000);
56 ok( $row = $schema->resultset('Event')->create({
60 ok( $row = $schema->resultset('Event')
61 ->search({ id => 1 }, { select => ['created_on'] })
64 is $row->created_on, $now, 'DateTime roundtrip';
66 if ($conn_idx == 0) { # skip for ODBC
67 cmp_ok $row->created_on->nanosecond, '==', 555600000,
68 'fractional part of a second survived';
78 $schema->storage->disconnect; # to avoid object FOO is in use errors
79 $dbh = $schema->storage->dbh;
83 eval { $dbh->do("DROP TABLE $_") } for qw/event/;