t/icdt/engine_specific/firebird.t

   1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
   2 use DBIx::Class::Optional::Dependencies -skip_all_without => qw( ic_dt _rdbms_firebird_common );
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More;
   8 use DBIx::Class::_Util 'scope_guard';
   9
  10 use DBICTest;
  11
  12 my $env2optdep = {
  13   DBICTEST_FIREBIRD => 'test_rdbms_firebird',
  14   DBICTEST_FIREBIRD_INTERBASE => 'test_rdbms_firebird_interbase',
  15   DBICTEST_FIREBIRD_ODBC => 'test_rdbms_firebird_odbc',
  16 };
  17
  18 my @tdeps = values %$env2optdep;
  19 plan skip_all => 'Test needs  ' . (join '  OR  ', map
  20   { "[ @{[ DBIx::Class::Optional::Dependencies->req_missing_for( $_ ) ]} ]" }
  21   @tdeps
  22 ) unless scalar grep
  23   { DBIx::Class::Optional::Dependencies->req_ok_for( $_ ) }
  24   @tdeps
  25 ;
  26
  27 my $schema;
  28
  29 for my $prefix (keys %$env2optdep) { SKIP: {
  30
  31   my ($dsn, $user, $pass) = map { $ENV{"${prefix}_$_"} } qw/DSN USER PASS/;
  32
  33   next unless $dsn;
  34
  35   note "Testing with ${prefix}_DSN";
  36
  37   skip ("Testing with ${prefix}_DSN needs " . DBIx::Class::Optional::Dependencies->req_missing_for( $env2optdep->{$prefix} ), 1)
  38     unless  DBIx::Class::Optional::Dependencies->req_ok_for($env2optdep->{$prefix});
  39
  40   $schema = DBICTest::Schema->connect($dsn, $user, $pass, {
  41     quote_char => '"',
  42     name_sep   => '.',
  43     on_connect_call => [ 'datetime_setup' ],
  44   });
  45
  46   my $sg = scope_guard { cleanup($schema) };
  47
  48   eval { $schema->storage->dbh->do('DROP TABLE "event"') };
  49   $schema->storage->dbh->do(<<'SQL');
  50   CREATE TABLE "event" (
  51     "id" INT PRIMARY KEY,
  52     "starts_at" DATE,
  53     "created_on" TIMESTAMP
  54   )
  55 SQL
  56   my $rs = $schema->resultset('Event');
  57
  58   my $dt = DateTime->now;
  59   $dt->set_nanosecond(555600000);
  60
  61   my $date_only = DateTime->new(
  62     year => $dt->year, month => $dt->month, day => $dt->day
  63   );
  64
  65   my $row;
  66   ok( $row = $rs->create({
  67     id => 1,
  68     starts_at => $date_only,
  69     created_on => $dt,
  70   }));
  71   ok( $row = $rs->search({ id => 1 }, { select => [qw/starts_at created_on/] })
  72     ->first
  73   );
  74   is $row->created_on, $dt, 'TIMESTAMP as DateTime roundtrip';
  75
  76   cmp_ok $row->created_on->nanosecond, '==', $dt->nanosecond,
  77     'fractional part of a second survived';
  78
  79   is $row->starts_at, $date_only, 'DATE as DateTime roundtrip';
  80 } }
  81
  82 done_testing;
  83
  84 # clean up our mess
  85 sub cleanup {
  86   my $schema = shift;
  87   my $dbh;
  88   eval {
  89     $schema->storage->disconnect; # to avoid object FOO is in use errors
  90     $dbh = $schema->storage->dbh;
  91   };
  92   return unless $dbh;
  93
  94   eval { $dbh->do(qq{DROP TABLE "$_"}) } for qw/event/;
  95 }