[Bast-commits] r8649 - DBIx-Class/0.08/trunk/t/inflate

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2010-02-11 11:40:07 +0000 (Thu, 11 Feb 2010)
New Revision: 8649

Modified:
   DBIx-Class/0.08/trunk/t/inflate/datetime_sybase_asa.t
Log:
test nanosecond precision for SQLAnywhere

Modified: DBIx-Class/0.08/trunk/t/inflate/datetime_sybase_asa.t
===================================================================
--- DBIx-Class/0.08/trunk/t/inflate/datetime_sybase_asa.t	2010-02-11 11:40:03 UTC (rev 8648)
+++ DBIx-Class/0.08/trunk/t/inflate/datetime_sybase_asa.t	2010-02-11 11:40:07 UTC (rev 8649)
@@ -44,7 +44,7 @@
 
 # coltype, col, date
   my @dt_types = (
-    ['TIMESTAMP', 'last_updated_at', '2004-08-21 14:36:48.080444'],
+    ['TIMESTAMP', 'last_updated_at', '2004-08-21 14:36:48.080445'],
 # date only (but minute precision according to ASA docs)
     ['DATE', 'small_dt', '2004-08-21 00:00:00.000000'],
   );
@@ -73,6 +73,9 @@
       ->first
     );
     is( $row->$col, $dt, 'DateTime roundtrip' );
+
+    is $row->$col->nanosecond, $dt->nanosecond,
+        'nanoseconds survived' if 0+$dt->nanosecond;
   }
 }