X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=e5b4d64befccba2ea7190fe17e99e7fc991a52e1;hp=374ad9503fa9c5bac2285c86ec44b427f221087d;hb=f5b49cfe271f8c467f74002eaf27e1d93409cdc5;hpb=2645bad6c8673a32408801e7ea1f8a02a1583d7d

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 374ad95..e5b4d64 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -8,7 +8,14 @@
 (clsql-sys:file-enable-sql-reader-syntax)
 
 (def-view-class datetest ()
-  ((testtimetz :column "testtimetz"
+  ((id :column "id"
+                :type integer
+                :db-kind :key
+                :db-constraints (:not-null :unique)
+	        :accessor id :initarg :id
+                :initform nil
+	        :db-type "int4")
+   (testtimetz :column "testtimetz"
                 :type clsql-sys:wall-time
                 :db-kind :base
                 :db-constraints nil
@@ -390,8 +397,8 @@
   (with-dataset *ds-datetest*
     (let ((time (parse-timestring "2008-09-09T14:37:29.000213-04:00")))
       (clsql-sys:insert-records :into [datetest]
-				:attributes '([testtimetz] [testtime])
-				:values (list time time))
+				:attributes '([testtimetz] [testtime] [id])
+				:values (list time time 1))
       (destructuring-bind (testtimetz testtime)
 	  (first (clsql:select [testtimetz] [testtime]
 			       :from [datetest]
@@ -406,7 +413,7 @@
   (with-dataset *ds-datetest*
     (let ((time (parse-timestring "2008-09-09T14:37:29-04:00")))
       (clsql-sys:update-records-from-instance
-       (make-instance 'datetest :testtimetz time :testtime time))
+       (make-instance 'datetest :testtimetz time :testtime time :id 1))
       (let ((o (first (clsql:select
 			  'datetest
 			:limit 1 :flatp t
@@ -423,7 +430,7 @@
     (with-dataset *ds-datetest*
       (let ((time (parse-timestring "2008-09-09T14:37:29.000278-04:00")))
 	(clsql-sys:update-records-from-instance
-	 (make-instance 'datetest :testtimetz time :testtime time))
+	 (make-instance 'datetest :testtimetz time :testtime time :id 1))
 	(let ((o (first (clsql:select
 			 'datetest
 			 :limit 1 :flatp t
@@ -437,7 +444,23 @@
     #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000278-04:00"))
     #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000278-04:00")))
 
+(deftest :time/historic-datetimes
+  (with-dataset *cross-platform-datetest*
+    (let ((time (parse-timestring "1800-09-09T14:37:29")))
+      (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 "1800-09-09T14:37:29") :format :iso))
+
 ))
 
 
 
+
+