X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Finflate%2Fdatetime_sybase_asa.t;h=d027c47131c1c4099623a7a798e3d22bbd6ec2e2;hb=2b0076be05baf00b0b4928a237ab43f377233fd4;hp=387b17945427129da58ef7222c0825af9e509ba2;hpb=db8f81cfaadcb0be86af0998fcfd68710e015e82;p=dbsrgits%2FDBIx-Class-Historic.git

diff --git a/t/inflate/datetime_sybase_asa.t b/t/inflate/datetime_sybase_asa.t
index 387b179..d027c47 100644
--- a/t/inflate/datetime_sybase_asa.t
+++ b/t/inflate/datetime_sybase_asa.t
@@ -13,9 +13,9 @@ if (not $dsn) {
     'Set $ENV{DBICTEST_SYBASE_ASA_DSN}, _USER and _PASS to run this test' .
     "\nWarning: This test drops and creates a table called 'track'";
 } else {
-  eval "use DateTime; use DateTime::Format::Sybase;";
+  eval "use DateTime; use DateTime::Format::Strptime;";
   if ($@) {
-    plan skip_all => 'needs DateTime and DateTime::Format::Sybase for testing';
+    plan skip_all => 'needs DateTime and DateTime::Format::Strptime for testing';
   }
 }
 
@@ -24,15 +24,14 @@ my $schema;
 $schema = DBICTest::Schema->clone;
 
 $schema->connection($dsn, $user, $pass, {
-  AutoCommit => 1,
   on_connect_call => [ 'datetime_setup' ],
 });
 
 # coltype, col, date
 my @dt_types = (
-  ['DATETIME', 'last_updated_at', '2004-08-21T14:36:48.080Z'],
-# minute precision
-  ['SMALLDATETIME', 'small_dt', '2004-08-21T14:36:00.000Z'],
+  ['TIMESTAMP', 'last_updated_at', '2004-08-21 14:36:48.080444'],
+# date only (but minute precision according to ASA docs)
+  ['DATE', 'small_dt', '2004-08-21 00:00:00.000000'],
 );
 
 for my $dt_type (@dt_types) {
@@ -47,7 +46,7 @@ CREATE TABLE track (
   $col $type,
 )
 SQL
-  ok(my $dt = DateTime::Format::Sybase->parse_datetime($sample_dt));
+  ok(my $dt = $schema->storage->datetime_parser->parse_datetime($sample_dt));
 
   my $row;
   ok( $row = $schema->resultset('Track')->create({