X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=158ac9ce0d820d6cb476c86f48e9336e45bffbd2;hb=fe87a628ea15671152fb0c8f0d20217c8a21794e;hp=bf2085e9235ac17d897a22541e03f3b2796bb761;hpb=6f5877c86265e4cbf3bf3904a287c46eb1211a32;p=clsql.git

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index bf2085e..158ac9c 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -5,7 +5,7 @@
 ;;; Test time functions (time.lisp)
 
 (in-package #:clsql-tests)
-#.(clsql-sys:locally-enable-sql-reader-syntax)
+(clsql-sys:file-enable-sql-reader-syntax)
 
 (def-view-class datetest ()
   ((testtimetz :column "testtimetz"
@@ -305,7 +305,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -319,7 +319,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -335,7 +335,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -349,7 +349,7 @@
 				  :values (list time))
 	(let ((testtime
 	       (first (clsql:select [testtime]
-				    :from [datetest] :flatp T
+				    :from [datetest] :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -364,7 +364,7 @@
 	(let ((testtime
 	       (first (clsql:select [testtime]
 				    :from [datetest]
-				    :limit 1 :flatp T
+				    :limit 1 :flatp t
 				    :where [= [testtime] time] ))))
 	  (format-time nil (parse-timestring testtime) :format :iso)
 	  )))
@@ -395,7 +395,7 @@
       (destructuring-bind (testtimetz testtime)
 	  (first (clsql:select [testtimetz] [testtime]
 			       :from [datetest]
-			       :limit 1 :flatp T
+			       :limit 1 :flatp t
 			       :where [= [testtime] time] ))
 	(values (iso-timestring (parse-timestring testtime))
 		(iso-timestring (parse-timestring testtimetz))))))
@@ -409,7 +409,7 @@
        (make-instance 'datetest :testtimetz time :testtime time))
       (let ((o (first (clsql:select
 			  'datetest
-			:limit 1 :flatp T
+			: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)
@@ -426,7 +426,7 @@
 	 (make-instance 'datetest :testtimetz time :testtime time))
 	(let ((o (first (clsql:select
 			 'datetest
-			 :limit 1 :flatp T
+			 :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)
@@ -437,7 +437,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))
+
 ))
 
 
-#.(clsql-sys:locally-disable-sql-reader-syntax)
+
+
+