From f852c30bcef530d18a474ab6ab8350a3ef93d563 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 30 Jan 2020 22:51:45 +0100 Subject: Once again compiles. --- tests/time.scm | 58 ---------------------------------------------------------- 1 file changed, 58 deletions(-) delete mode 100644 tests/time.scm (limited to 'tests/time.scm') diff --git a/tests/time.scm b/tests/time.scm deleted file mode 100644 index 65edfcbd..00000000 --- a/tests/time.scm +++ /dev/null @@ -1,58 +0,0 @@ -(((srfi srfi-19 util) - date day-stream normalize-date - drop-time normalize-date/tz - ) - ((util) set let-env) - ((srfi srfi-19) date-day) - ) - -(test-equal "Trivial normalize case" - (date year: 2020 month: 1 day: 1 tz: 0) - (normalize-date (date year: 2020 month: 1 day: 1 tz: 0))) - -(test-equal "Trivial case, with timezone" - (date year: 2020 month: 1 day: 1 tz: 3600) - (normalize-date (date year: 2020 month: 1 day: 1 tz: 3600))) - -;;; summer time begins 02:00 (becomes 03:00) during the night -;;; between the 28 and 29 of mars 2020, for Europe/Stockholm. -;;; (CET → CEST alt. UTC+1 → UTC+2) - -(test-equal "Time zone spill over" - (date year: 2020 month: 3 day: 29 tz: 3600) - (normalize-date (set (date-day (date year: 2020 month: 3 day: 28 tz: 3600)) - = (+ 1)))) - -;;; TODO normalize-date* - - - -;;; !!! TODO !!! - -(test-assert "normalize-date/tz" - (not (unspecified? (normalize-date/tz (date))))) - -(test-equal "Trivial normalize case" - (date year: 2020 month: 1 day: 1 hour: 1 tz: 3600) - (normalize-date/tz (date year: 2020 month: 1 day: 1 tz: 0) - "Europe/Stockholm")) - -(test-equal "Trivial case, with timezone" - (date year: 2020 month: 1 day: 1 tz: 3600) - (normalize-date/tz (date year: 2020 month: 1 day: 1 tz: 3600) - "Europe/Stockholm")) - -(test-equal "Time zone spill over" - (date year: 2020 month: 3 day: 30 hour: 1 tz: 7200) - (normalize-date/tz (set (date-day (date year: 2020 month: 3 day: 29 tz: 3600)) - = (+ 1)) - "Europe/Stockholm")) - - - - -(test-equal "drop time" - (date) - (drop-time (date hour: 10 minute: 70 second: 100))) - - -- cgit v1.2.3