Adding a bunch of straight parse-timestring tests.

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

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index d18bd1ec5443670c52d3acf04200c4c9e347c22a..8ea6af5bef17f57aa5073bf3f0d587978251bc59 100644 (file)
--- 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)
          )))