(push (cons test "Postgres specific test.")
skip-tests))
((and (member *test-database-underlying-type* '(:mysql))
+ (clsql-sys:in test :time/cross-platform/msec
+ :time/cross-platform/usec/no-tz :time/cross-platform/usec/tz))
+ (push (cons test "MySQL doesn't support fractional seconds on timestamp columns (http://forge.mysql.com/worklog/task.php?id=946).")
+ skip-tests))
+ ((and (member *test-database-underlying-type* '(:mssql))
(clsql-sys:in test :time/cross-platform/usec/no-tz :time/cross-platform/usec/tz))
- (push (cons test "MySQL does not support fractional seconds on timestamp columns (http://forge.mysql.com/worklog/task.php?id=946).")
+ (push (cons test "MSSQL doesn't support micro-seconds on datetime columns.")
skip-tests))
-
(t
(push test-form test-forms)))))
(values (nreverse test-forms) (nreverse skip-tests))))
)))
#.(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")))