1 files changed, 7 insertions, 6 deletions
diff --git a/tests/test/tz.scm b/tests/unit/datetime/tz.scm
index 00a611b3..d335ced3 100644
--- a/tests/test/tz.scm
+++ b/tests/unit/datetime/tz.scm
@@ -24,12 +24,12 @@
   ((TZ "Europe/London"))
   (test-equal
     "London winter"
-    #2020-01-12T13:30:00
+    (datetime year: 2020 month: 01 day: 12 hour: 13 minute: 30 second: 00)
     (get-datetime
       (parse-ics-datetime "20200112T133000Z")))
   (test-equal
     "London summer"
-    #2020-06-12T14:30:00
+    (datetime year: 2020 month: 06 day: 12 hour: 14 minute: 30 second: 00)
     (get-datetime
       (parse-ics-datetime "20200612T133000Z"))))
 
@@ -38,12 +38,12 @@
   ((TZ "Europe/Stockholm"))
   (test-equal
     "Stockholm winter"
-    #2020-01-12T14:30:00
+    (datetime year: 2020 month: 01 day: 12 hour: 14 minute: 30 second: 00)
     (get-datetime
       (parse-ics-datetime "20200112T133000Z")))
   (test-equal
     "Stockholm summer"
-    #2020-06-12T15:30:00
+    (datetime year: 2020 month: 06 day: 12 hour: 15 minute: 30 second: 00)
     (get-datetime
       (parse-ics-datetime "20200612T133000Z"))))
 
@@ -77,11 +77,12 @@
 (test-equal
   (datetime
     date:
-    #1970-01-01
+    (date year: 1970 month: 01 day: 01)
     time:
-    #00:00:00
+    (time hour: 00 minute: 00 second: 00)
     tz:
     "UTC")
   (unix-time->datetime 0))
 
 
+'((datetime))