procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Test format-time-string with zone arg

Browse source 
* test/src/editfns-tests.el (format-time-string-with-zone)
(format-time-string-with-outlandish-zone): New tests.
This commit is contained in:
Paul Eggert 2017-04-27 15:22:49 -07:00
parent abd769131d
commit 085c7f6086
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
test/src/editfns-tests.el
View file

@ -136,4 +136,25 @@
(ert-deftest format-c-float ()
(should-error (format "%c" 0.5)))
;;; Check format-time-string with various TZ settings.
;;; Use only POSIX-compatible TZ values, since the tests should work
;;; even if tzdb is not in use.
(ert-deftest format-time-string-with-zone ()
(should (string-equal
(format-time-string "%Y-%m-%d %H:%M:%S %z" '(0 0 0 0) t)
"1970-01-01 00:00:00 +0000"))
(should (string-equal
(format-time-string "%Y-%m-%d %H:%M:%S %z (%Z)" '(0 0 0 0) "PST8")
"1969-12-31 16:00:00 -0800 (PST)"))
(should (string-equal
(format-time-string "%Y-%m-%d %H:%M:%S %z (%Z)" '(0 0 0 0)
"NZST-12NZDT,M9.5.0,M4.1.0/3")
"1970-01-01 13:00:00 +1300 (NZDT)")))
;;; This should not dump core.
(ert-deftest format-time-string-with-outlandish-zone ()
(should (stringp
(format-time-string "%Y-%m-%d %H:%M:%S %z" '(0 0 0 0)
(concat (make-string 2048 ?X) "0")))))
;;; editfns-tests.el ends here