Tests for the previous patch (adding special time printing in postgres).

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

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 9b4b85780dacada03d4ea2b717e516036deedf28..4cf7f08cddf7330b00f266200f04b9c3102b5e87 100644 (file)
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -213,4 +213,42 @@
       (clsql:time= add-time roll-time))
   t)
 
+
+
+
+(def-view-class datetest ()
+  ((testtime :COLUMN "testtime" :TYPE
+            clsql-sys:wall-time :DB-KIND :BASE
+            :DB-CONSTRAINTS COMMON-LISP:NIL
+            :ACCESSOR testtime :INITARG
+            :testtime :INITFORM COMMON-LISP:NIL
+            :DB-TYPE "timestamptz")))
+
+
+
+(deftest :time-test-retrieving/saving/retrieving
+    (when (or (eq :postgresql *test-database-underlying-type*)
+             (eq :postgresql-socket *test-database-underlying-type*))
+      #.(clsql-sys:locally-enable-sql-reader-syntax)
+      (unless (clsql-sys:table-exists-p "datetest")
+       (clsql-sys:create-view-from-class 'datetest))
+      (clsql-sys:delete-records :from 'datetest)
+      (let ((time (parse-timestring "2008-09-09T14:37:29.622278-04:00")))
+       (clsql-sys:update-records-from-instance
+        (make-instance 'datetest :testtime time))
+       (let ((o (first (clsql:select
+                           'datetest
+                         :limit 1 :flatp T
+                         :where [= [testtime] time] ))))
+         (assert o (o) "o shouldnt be null here (we should have just inserted)")
+         (update-records-from-instance o)
+         (update-instance-from-records o)
+         (assert (time= (testtime o) time) (time o) "Time of o: ~a should be time:~a" (testtime o) time)
+         #.(clsql-sys:locally-disable-sql-reader-syntax)
+         )
+       )
+      nil
+      )
+  nil)
+
 ))