;;; -*- Mode: Lisp -*-
-;;; $Id$
;;;
;;; Copyright (c) 2000, 2001 onShore Development, Inc.
;;;
;;; 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" :TYPE
- clsql-sys:wall-time :DB-KIND :BASE
- :DB-CONSTRAINTS COMMON-LISP:NIL
- :ACCESSOR testtimetz :INITARG
- :testtimetz :INITFORM COMMON-LISP:NIL
- :DB-TYPE "timestamp with time zone")
- (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 "timestamp without time zone")))
+ ((testtimetz :column "testtimetz"
+ :type clsql-sys:wall-time
+ :db-kind :base
+ :db-constraints nil
+ :accessor testtimetz :initarg :testtimetz
+ :initform nil
+ :db-type "timestamp with time zone")
+ (testtime :column "testtime"
+ :type clsql-sys:wall-time
+ :db-kind :base
+ :db-constraints nil
+ :accessor testtime :initarg :testtime
+ :initform nil
+ :db-type "timestamp without time zone")))
(def-dataset *ds-datetest*
(:setup (lambda () (clsql-sys:create-view-from-class 'datetest)))
: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)
)))
: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)
)))
: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)
)))
: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)
)))
(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)
)))
(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))))))
(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)
(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)
#.(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)
+
+
+