X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=39cc93061bfe5e59520480a82f6bb3022e0e3c23;hp=174ab75041811060e9d6861e1394980d931109e2;hb=26720328bdd7d8f28c3247063c477f05f3a7251e;hpb=094055ce16c61b63ff5f92814d4d1b4ecec2a9ee

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 174ab75..39cc930 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -324,6 +324,22 @@
 	  )))
   #.(format-time nil (parse-timestring "2008-09-09T14:37:29-04:00") :format :iso))
 
+;;;This test gets at the databases that only support miliseconds,
+;;; not microseconds.
+(deftest :time/cross-platform/msec
+    (with-dataset *cross-platform-datetest*
+      (let ((time (parse-timestring "2008-09-09T14:37:29.423")))
+	(clsql-sys:insert-records :into [datetest]
+				  :attributes '([testtime])
+				  :values (list time))
+	(let ((testtime
+	       (first (clsql:select [testtime]
+				    :from [datetest] :flatp T
+				    :where [= [testtime] time] ))))
+	  (format-time nil (parse-timestring testtime) :format :iso)
+	  )))
+  #.(format-time nil (parse-timestring "2008-09-09T14:37:29.423") :format :iso))
+
 (deftest :time/cross-platform/usec/no-tz
     (with-dataset *cross-platform-datetest*
       (let ((time (parse-timestring "2008-09-09T14:37:29.000213")))