diff options
Diffstat (limited to 'tests/unit/datetime/tz.scm')
-rw-r--r-- | tests/unit/datetime/tz.scm | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/tests/unit/datetime/tz.scm b/tests/unit/datetime/tz.scm new file mode 100644 index 00000000..d335ced3 --- /dev/null +++ b/tests/unit/datetime/tz.scm @@ -0,0 +1,88 @@ +;;; Commentary: +;; Tests that datetime->unix-time correctly converts between Olssen +;; timezone definitions (e.g. Europe/Stockholm), into correct times +;; and offsets (in unix time). +;; Also indirectly tests the Zone Info Compiler (datetime zic), since +;; the zoneinfo comes from there. +;;; Code: + +(define-module (test tz) + :use-module (srfi srfi-64) + :use-module (srfi srfi-88) + :use-module ((datetime) + :select (parse-ics-datetime + datetime + date + time + datetime->unix-time + unix-time->datetime + get-datetime)) + :use-module ((hnh util env) :select (let-env))) + +;; London alternates between +0000 and +0100 +(let-env + ((TZ "Europe/London")) + (test-equal + "London winter" + (datetime year: 2020 month: 01 day: 12 hour: 13 minute: 30 second: 00) + (get-datetime + (parse-ics-datetime "20200112T133000Z"))) + (test-equal + "London summer" + (datetime year: 2020 month: 06 day: 12 hour: 14 minute: 30 second: 00) + (get-datetime + (parse-ics-datetime "20200612T133000Z")))) + +;; Stockholm alternates between +0100 and +0200 +(let-env + ((TZ "Europe/Stockholm")) + (test-equal + "Stockholm winter" + (datetime year: 2020 month: 01 day: 12 hour: 14 minute: 30 second: 00) + (get-datetime + (parse-ics-datetime "20200112T133000Z"))) + (test-equal + "Stockholm summer" + (datetime year: 2020 month: 06 day: 12 hour: 15 minute: 30 second: 00) + (get-datetime + (parse-ics-datetime "20200612T133000Z")))) + +(test-equal + -10800 + (datetime->unix-time + (parse-ics-datetime + "19700101T000000" + "Europe/Tallinn"))) + +(test-equal + -3600 + (datetime->unix-time + (parse-ics-datetime + "19700101T000000" + "Europe/Stockholm"))) + +(test-equal + 0 + (datetime->unix-time + (parse-ics-datetime "19700101T000000Z"))) + +;; yes, really +(test-equal + -3600 + (datetime->unix-time + (parse-ics-datetime + "19700101T000000" + "Europe/London"))) + +(test-equal + (datetime + date: + (date year: 1970 month: 01 day: 01) + time: + (time hour: 00 minute: 00 second: 00) + tz: + "UTC") + (unix-time->datetime 0)) + + +'((datetime)) |