r10077: * multiple: Apply patch from Joerg Hoehle with multiple

[clsql.git] / tests / test-ooddl.lisp

diff --git a/tests/test-ooddl.lisp b/tests/test-ooddl.lisp
index 0339179ba145f977e4f817d51acab6af273f80bb..d2b73f48278208f4feafab93c0697ebb9ae5ae1d 100644 (file)
--- a/tests/test-ooddl.lisp
+++ b/tests/test-ooddl.lisp
@@ -89,6 +89,18 @@
       fail-index)
   -1)
 
+(deftest :ooddl/time/3
+    (progn
+      (when (member *test-database-underlying-type* '(:postgresql :postgresql-socket))
+       (clsql:execute-command "set datestyle to 'iso'"))
+      (let ((dbobj (car (clsql:select 'employee :where [= [emplid] 10]
+                                     :flatp t))))
+       (list
+        (eql *test-start-utime* (slot-value dbobj 'bd-utime))
+        (clsql:time= (slot-value dbobj 'birthday)
+                     (clsql:utime->time (slot-value dbobj 'bd-utime))))))
+  (t t))
+
 ))
 
 #.(clsql:restore-sql-reader-syntax-state)