From: Rafael Kitover <rkitover@cpan.org>
Date: Thu, 11 Feb 2010 11:40:07 +0000 (+0000)
Subject: test nanosecond precision for SQLAnywhere
X-Git-Tag: v0.08119~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=51b1115faef9175029be549c017f8b7040312459;p=dbsrgits%2FDBIx-Class.git

test nanosecond precision for SQLAnywhere
---

diff --git a/t/inflate/datetime_sybase_asa.t b/t/inflate/datetime_sybase_asa.t
index 5a20da0..761234d 100644
--- a/t/inflate/datetime_sybase_asa.t
+++ b/t/inflate/datetime_sybase_asa.t
@@ -44,7 +44,7 @@ foreach my $info (@info) {
 
 # 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 @@ SQL
       ->first
     );
     is( $row->$col, $dt, 'DateTime roundtrip' );
+
+    is $row->$col->nanosecond, $dt->nanosecond,
+        'nanoseconds survived' if 0+$dt->nanosecond;
   }
 }