diff options
| author | Lars Ingebrigtsen | 2019-07-30 16:56:12 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-31 21:47:29 +0200 |
| commit | 46df7bbe12cce4c9af7ce4357aa9f8d36c1d8933 (patch) | |
| tree | bb2e88c7866ff6984a2398ec74c69a58bac8b7d5 /test | |
| parent | 07ce3be6aa15fdf2092bdf3c60a132d5f4b9c980 (diff) | |
| download | emacs-46df7bbe12cce4c9af7ce4357aa9f8d36c1d8933.tar.gz emacs-46df7bbe12cce4c9af7ce4357aa9f8d36c1d8933.zip | |
Add new function time-zone-format
* lisp/calendar/time-date.el (time-zone-format): New function.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calendar/time-date-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/lisp/calendar/time-date-tests.el b/test/lisp/calendar/time-date-tests.el index b46a247cd30..51250ce5e7a 100644 --- a/test/lisp/calendar/time-date-tests.el +++ b/test/lisp/calendar/time-date-tests.el | |||
| @@ -104,6 +104,12 @@ | |||
| 104 | (should (equal (decoded-time-add time (mdec :zone -7200)) | 104 | (should (equal (decoded-time-add time (mdec :zone -7200)) |
| 105 | '(12 15 14 8 7 2019 1 t 7200))))) | 105 | '(12 15 14 8 7 2019 1 t 7200))))) |
| 106 | 106 | ||
| 107 | (ert-deftest test-time-zone-format () | ||
| 108 | (should (equal (time-zone-format 3600) | ||
| 109 | "+01:00")) | ||
| 110 | (should (equal (time-zone-format -7200) | ||
| 111 | "-02:00"))) | ||
| 112 | |||
| 107 | (require 'ert) | 113 | (require 'ert) |
| 108 | 114 | ||
| 109 | ;;; time-date-tests.el ends here | 115 | ;;; time-date-tests.el ends here |