+ 3 32 56 14 23 1 2010 6 nil)
+
+(deftest :time/iso-parse/6
+ (let* ((time1 (parse-timestring "2010-01-23T14:56:32-05")))
+ (decode-time time1))
+ 0 32 56 19 23 1 2010 6 t)
+
+(deftest :time/iso-parse/7
+ (let* ((time1 (parse-timestring "2010-01-23T14:56:32-05")))
+ (decode-time time1))
+ 0 32 56 19 23 1 2010 6 t)
+
+(deftest :time/iso-parse/8
+ (let* ((time1 (parse-timestring "2010-01-23T14:56:32-05:30")))
+ (decode-time time1))
+ 0 32 26 20 23 1 2010 6 t)
+
+(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 nil)
+
+(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 nil)
+