convered orphan sql-ident-table test function to use RT and run with

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

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 050e07fd380d3e9263c8f47f0795bac233ba720d..158ac9ce0d820d6cb476c86f48e9336e45bffbd2 100644 (file)
--- 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"
@@ -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)
+
+
+