X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=5d2e2e580992bc2cc3a24a912ce751532ee842e0;hb=2d6d03a10087483843856e09f5204b1b172fbea6;hp=d18bd1ec5443670c52d3acf04200c4c9e347c22a;hpb=0c630df241d11c7d46202bdd324e4b499b7529ab;p=clsql.git diff --git a/tests/test-time.lisp b/tests/test-time.lisp index d18bd1e..5d2e2e5 100644 --- a/tests/test-time.lisp +++ b/tests/test-time.lisp @@ -8,14 +8,6 @@ (in-package #:clsql-tests) #.(clsql-sys:locally-enable-sql-reader-syntax) -(def-dataset *ds-datetest* - (:setup (lambda () (clsql-sys:create-view-from-class 'datetest))) - (:cleanup "DROP TABLE datetest")) - -(def-dataset *cross-platform-datetest* - (:setup "CREATE TABLE DATETEST (TESTTIME TIMESTAMP)") - (:cleanup "DROP TABLE DATETEST")) - (def-view-class datetest () ((testtimetz :COLUMN "testtimetz" :TYPE clsql-sys:wall-time :DB-KIND :BASE @@ -30,9 +22,53 @@ :testtime :INITFORM COMMON-LISP:NIL :DB-TYPE "timestamp without time zone"))) +(def-dataset *ds-datetest* + (:setup (lambda () (clsql-sys:create-view-from-class 'datetest))) + (:cleanup "DROP TABLE datetest")) + + +(def-dataset *cross-platform-datetest* + (:setup (lambda () (create-table [datetest] + '(([testtime] wall-time))))) + (:cleanup (lambda () + (drop-table [datetest])))) + + (setq *rt-time* '( +;; we use parse timestring a lot through here verifying other things +;; start off just checking that. +(deftest :time/iso-parse/0 + (let* ((time1 (parse-timestring "2010-01-23"))) + (decode-time time1)) + 0 0 0 0 23 1 2010 6) + +(deftest :time/iso-parse/1 + (let* ((time1 (parse-timestring "2010-01-23T14:56:32Z"))) + (decode-time time1)) + 0 32 56 14 23 1 2010 6) + +(deftest :time/iso-parse/2 + (let* ((time1 (parse-timestring "2008-02-29 12:46:32"))) + (decode-time time1)) + 0 32 46 12 29 2 2008 5) + +(deftest :time/iso-parse/3 + (let* ((time1 (parse-timestring "2010-01-23 14:56:32.44"))) + (decode-time time1)) + 440000 32 56 14 23 1 2010 6) + +(deftest :time/iso-parse/4 + (let* ((time1 (parse-timestring "2010-01-23 14:56:32.0044"))) + (decode-time time1)) + 4400 32 56 14 23 1 2010 6) + +(deftest :time/iso-parse/5 + (let* ((time1 (parse-timestring "2010-01-23 14:56:32.000003"))) + (decode-time time1)) + 3 32 56 14 23 1 2010 6) + ;; relations of intervals (deftest :time/1 (let* ((time-1 (clsql:parse-timestring "2002-01-01 10:00:00")) @@ -260,8 +296,7 @@ :values (list time)) (let ((testtime (first (clsql:select [testtime] - :from [datetest] - :limit 1 :flatp T + :from [datetest] :flatp T :where [= [testtime] time] )))) (format-time nil (parse-timestring testtime) :format :iso) ))) @@ -275,8 +310,7 @@ :values (list time)) (let ((testtime (first (clsql:select [testtime] - :from [datetest] - :limit 1 :flatp T + :from [datetest] :flatp T :where [= [testtime] time] )))) (format-time nil (parse-timestring testtime) :format :iso) ))) @@ -290,8 +324,7 @@ :values (list time)) (let ((testtime (first (clsql:select [testtime] - :from [datetest] - :limit 1 :flatp T + :from [datetest] :flatp T :where [= [testtime] time] )))) (format-time nil (parse-timestring testtime) :format :iso) ))) @@ -329,39 +362,37 @@ (deftest :time/pg/fdml/usec - (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)) - (destructuring-bind (testtimetz testtime) - (first (clsql:select [testtimetz] [testtime] - :from [datetest] - :limit 1 :flatp T - :where [= [testtime] time] )) - (assert (time= (parse-timestring testtimetz) time) (testtimetz time) - "Timetz of db: ~s should be time:~s" testtimetz time) - (assert (time= (parse-timestring testtime) time) (testtime time) - "Time of db: ~s should be time:~s" testtime time)))) - nil) + (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)) + (destructuring-bind (testtimetz testtime) + (first (clsql:select [testtimetz] [testtime] + :from [datetest] + :limit 1 :flatp T + :where [= [testtime] time] )) + (values (iso-timestring (parse-timestring testtime)) + (iso-timestring (parse-timestring testtimetz)))))) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000213-04:00")) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000213-04:00"))) (deftest :time/pg/oodml/no-usec - (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)) - (let ((o (first (clsql:select - 'datetest - :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) - (update-instance-from-records o) - (assert (time= (testtime o) time) (time o) - "Time of o: ~s should be time:~s" (testtime o) time) - (assert (time= (testtimetz o) time) (time o) - "Timetz of o: ~s should be time:~s" (testtime o) time)))) - nil) + (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)) + (let ((o (first (clsql:select + 'datetest + :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) + (update-instance-from-records o) + (values (iso-timestring (testtime o)) + (iso-timestring (testtimetz o)))))) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29-04:00")) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29-04:00"))) (deftest :time/pg/oodml/usec (with-dataset *ds-datetest* @@ -375,12 +406,11 @@ (assert o (o) "o shouldnt be null here (we should have just inserted)") (update-records-from-instance o) (update-instance-from-records o) - (assert (time= (testtime o) time) (time o) - "Time of o: ~s should be time:~s" (testtime o) time) - (assert (time= (testtimetz o) time) (time o) - "Timetz of o: ~s should be time:~s" (testtime o) time) + (values (iso-timestring (testtime o)) + (iso-timestring (testtimetz o))) ))) - nil) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000278-04:00")) + #.(iso-timestring (parse-timestring "2008-09-09T14:37:29.000278-04:00"))) ))