X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=158ac9ce0d820d6cb476c86f48e9336e45bffbd2;hb=85508ad5c4abbd8e3f7549c8c13210e7f6642af5;hp=050e07fd380d3e9263c8f47f0795bac233ba720d;hpb=b6c281d8fc5a6cd531572f1b4c45fbabba2200f9;p=clsql.git diff --git a/tests/test-time.lisp b/tests/test-time.lisp index 050e07f..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" @@ -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) + + +