From: Nathan Bird <nathan@acceleration.net>
Date: Tue, 2 Feb 2010 20:10:05 +0000 (-0500)
Subject: Adding a bunch of straight parse-timestring tests.
X-Git-Tag: v5.0.0~29
X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=9e77eb99b28518bca1f46f617f62040efbc11b34

Adding a bunch of straight parse-timestring tests.
---

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index 9a9136f..8ea6af5 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -37,6 +37,38 @@
 (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"))