X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=e5b4d64befccba2ea7190fe17e99e7fc991a52e1;hp=5d2e2e580992bc2cc3a24a912ce751532ee842e0;hb=f5b49cfe271f8c467f74002eaf27e1d93409cdc5;hpb=24fade3a91cc98a4a08509de1893f21ec37f8ebe diff --git a/tests/test-time.lisp b/tests/test-time.lisp index 5d2e2e5..e5b4d64 100644 --- a/tests/test-time.lisp +++ b/tests/test-time.lisp @@ -1,26 +1,34 @@ ;;; -*- 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"))) + ((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 + :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))) @@ -69,6 +77,25 @@ (decode-time time1)) 3 32 56 14 23 1 2010 6) +(deftest :time/print-parse/1 + ;;make sure when we print and parse we get the same time. + (let* ((time (clsql-sys:make-time :year 2010 :month 1 :day 4 + :hour 14 :minute 15 :second 44)) + (string-time (iso-timestring time)) + (time2 (parse-timestring string-time))) + (decode-time time2)) + 0 44 15 14 4 1 2010 1) + +(deftest :time/print-parse/2 + ;;make sure when we print and parse we get the same time. + (let* ((time (clsql-sys:make-time :year 2010 :month 1 :day 4 + :hour 14 :minute 15 :second 44 :usec 3)) + (string-time (iso-timestring time)) + (time2 (parse-timestring string-time))) + (decode-time time2)) + 3 44 15 14 4 1 2010 1) + + ;; relations of intervals (deftest :time/1 (let* ((time-1 (clsql:parse-timestring "2002-01-01 10:00:00")) @@ -273,17 +300,6 @@ t) -(deftest :time/14-usec - ;;make sure when we print and parse we get the same time. - (let* ((time (clsql-sys:make-time :year 2010 :month 1 :day 4 - :hour 14 :minute 15 :second 44 :usec 3)) - (string-time (clsql-sys:format-time nil time :format :iso)) - (time2 (clsql-sys:parse-timestring string-time))) - (format-time nil time2 :format :iso)) - #.(format-time nil (clsql-sys:make-time :year 2010 :month 1 :day 4 - :hour 14 :minute 15 :second 44 :usec 3) - :format :iso)) - ;;; The cross platform dataset uses the 'timestamp' column type which is ;;; in sql-92, for all that means. @@ -296,7 +312,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) ))) @@ -310,12 +326,28 @@ :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) ))) #.(format-time nil (parse-timestring "2008-09-09T14:37:29-04:00") :format :iso)) +;;;This test gets at the databases that only support miliseconds, +;;; not microseconds. +(deftest :time/cross-platform/msec + (with-dataset *cross-platform-datetest* + (let ((time (parse-timestring "2008-09-09T14:37:29.423"))) + (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 "2008-09-09T14:37:29.423") :format :iso)) + (deftest :time/cross-platform/usec/no-tz (with-dataset *cross-platform-datetest* (let ((time (parse-timestring "2008-09-09T14:37:29.000213"))) @@ -324,7 +356,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) ))) @@ -339,7 +371,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) ))) @@ -365,12 +397,12 @@ (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] - :limit 1 :flatp T + :limit 1 :flatp t :where [= [testtime] time] )) (values (iso-timestring (parse-timestring testtime)) (iso-timestring (parse-timestring testtimetz)))))) @@ -381,10 +413,10 @@ (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 + :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) @@ -398,10 +430,10 @@ (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 + :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) @@ -412,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)) + )) -#.(clsql-sys:locally-disable-sql-reader-syntax) + + +