From 9e77eb99b28518bca1f46f617f62040efbc11b34 Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Tue, 2 Feb 2010 15:10:05 -0500 Subject: [PATCH] Adding a bunch of straight parse-timestring tests. --- tests/test-time.lisp | 32 ++++++++++++++++++++++++++++++++ 1 file changed, 32 insertions(+) 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")) -- 2.34.1