diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:26:40 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-02 19:28:44 +0200 |
| commit | 712654d4c023a2ab13190c6905d313e0ba897965 (patch) | |
| tree | b8505b420d6621022fa6a46271340071d8881322 /tests/unit/datetime/tz.scm | |
| parent | Made displayln into a library export. (diff) | |
| download | calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.gz calp-712654d4c023a2ab13190c6905d313e0ba897965.tar.xz | |
Rewrite test running system.
Diffstat (limited to '')
| -rw-r--r-- | tests/unit/datetime/tz.scm (renamed from tests/test/tz.scm) | 13 |
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)) |