0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:37:52 +00:00

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.
This commit is contained in:
Max Nikulin 2022-05-05 21:54:03 +07:00 committed by Ihor Radchenko
parent ae1db7df39
commit e08ce5b27d
No known key found for this signature in database
GPG key ID: 6470762A7DA11D8B

View file

@ -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.