X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-time.lisp;h=b130b99d6c57d72ba538822d5a36879e74fca027;hp=d631340a36b15f816c62c547af2931ef52f1637c;hb=868477640206e55887d5c017d1e47a58ef64dc47;hpb=67a4ab3576b630b8d34a6476ec8c1e9dfa913800

diff --git a/tests/test-time.lisp b/tests/test-time.lisp
index d631340..b130b99 100644
--- a/tests/test-time.lisp
+++ b/tests/test-time.lisp
@@ -90,7 +90,17 @@
 (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)
+ 0 32 26 20 23 1 2010 6 t)
+
+(deftest :time/utc-round-trip/1
+    (let* ((time1 (parse-timestring "2010-01-23T14:56:32")))
+      (decode-time (time-to-localtime (time-to-utc time1))))
+ 0 32 56 14 23 1 2010 6 nil)
+
+(deftest :time/utc-round-trip/2
+    (let* ((time1 (parse-timestring "2010-01-23T14:56:32Z")))
+      (decode-time (time-to-utc (time-to-localtime time1))))
+  0 32 56 14 23 1 2010 6 t)
 
 (deftest :time/print-parse/1
     ;;make sure when we print and parse we get the same time.