From a66b15b87d06d087e4d82c226dd5f18a3c478af0 Mon Sep 17 00:00:00 2001 From: Max Nikulin Date: Thu, 5 May 2022 21:54:03 +0700 Subject: [PATCH 7/7] test-org.el: Add some tests for `org-test-with-timezone' * testing/lisp/test-org.el (test-org/org-time-string-to-time): Check that no daylight saving time value is forced for `org-parse-time-string' and `org-encode-time' calls. --- testing/lisp/test-org.el | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 6e5be2299..f79d00c88 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -250,6 +250,26 @@ "%F %T" (org-encode-time 8 30 23 31 3 2022)))))) +(ert-deftest test-org/org-time-string-to-time () + "Test `org-time-string-to-time' around DST transition." + (org-test-with-timezone "UTC" + (should (string-equal + "2022-03-31 23:31:00" + (format-time-string + "%F %T" + (org-time-string-to-time "2022-03-31 23:31"))))) + (org-test-with-timezone "Europe/Madrid" + (should (string-equal + "2022-03-24 23:32:00 +0100 CET" + (format-time-string + "%F %T %z %Z" + (org-time-string-to-time "2022-03-24 23:32")))) + (should (string-equal + "2022-03-31 23:33:00 +0200 CEST" + (format-time-string + "%F %T %z %Z" + (org-time-string-to-time "2022-03-31 23:33")))))) + (ert-deftest test-org/org-read-date () "Test `org-read-date' specifications." ;; Parse ISO date with abbreviated year and month. -- 2.25.1