diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-29 12:07:44 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-29 12:07:44 +0200 |
commit | 57ca5db4c2dfceef28f0cb9f1398f4752ffaae51 (patch) | |
tree | aa79e4150f67f89d475ccca91377ec2e796ba358 /test | |
parent | a00144abba5d79e07e0f6da33ff0b880beb9ad1b (diff) | |
download | emacs-57ca5db4c2dfceef28f0cb9f1398f4752ffaae51.tar.gz |
Add support for times with time zones
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 57 |
1 files changed, 56 insertions, 1 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 8517e7dde5d..5403c8e2077 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -139,7 +139,7 @@ (should (equal (iso8601-parse-date "+19850412") '(nil nil nil 12 4 1985 nil nil nil)))) -(ert-deftest standard-test-time-of-day () +(ert-deftest standard-test-time-of-day-local-time () (should (equal (iso8601-parse-time "152746") '(46 27 15 nil nil nil nil nil nil))) (should (equal (iso8601-parse-time "15:27:46") @@ -153,4 +153,59 @@ (should (equal (iso8601-parse-time "15") '(0 0 15 nil nil nil nil nil nil)))) +(ert-deftest standard-test-time-of-day-fractions () + ;; decoded-time doesn't support sub-second times. + ;; (should (equal (iso8601-parse-time "152735,5") + ;; '(46 27 15 nil nil nil nil nil nil))) + ;; (should (equal (iso8601-parse-time "15:27:35,5") + ;; '(46 27 15 nil nil nil nil nil nil))) + ) + +(ert-deftest standard-test-time-of-day-beginning-of-day () + (should (equal (iso8601-parse-time "000000") + '(0 0 0 nil nil nil nil nil nil))) + (should (equal (iso8601-parse-time "00:00:00") + '(0 0 0 nil nil nil nil nil nil))) + + (should (equal (iso8601-parse-time "0000") + '(0 0 0 nil nil nil nil nil nil))) + (should (equal (iso8601-parse-time "00:00") + '(0 0 0 nil nil nil nil nil nil)))) + +(ert-deftest standard-test-time-of-day-utc () + (should (equal (iso8601-parse-time "232030Z") + '(30 20 23 nil nil nil nil nil 0))) + (should (equal (iso8601-parse-time "23:20:30Z") + '(30 20 23 nil nil nil nil nil 0))) + + (should (equal (iso8601-parse-time "2320Z") + '(0 20 23 nil nil nil nil nil 0))) + (should (equal (iso8601-parse-time "23:20Z") + '(0 20 23 nil nil nil nil nil 0))) + + (should (equal (iso8601-parse-time "23Z") + '(0 0 23 nil nil nil nil nil 0)))) + + +(ert-deftest standard-test-time-of-day-zone () + (should (equal (iso8601-parse-time "152746+0100") + '(46 27 15 nil nil nil nil nil 60))) + (should (equal (iso8601-parse-time "15:27:46+0100") + '(46 27 15 nil nil nil nil nil 60))) + + (should (equal (iso8601-parse-time "152746+01") + '(46 27 15 nil nil nil nil nil 60))) + (should (equal (iso8601-parse-time "15:27:46+01") + '(46 27 15 nil nil nil nil nil 60))) + + (should (equal (iso8601-parse-time "152746-0500") + '(46 27 15 nil nil nil nil nil -300))) + (should (equal (iso8601-parse-time "15:27:46-0500") + '(46 27 15 nil nil nil nil nil -300))) + + (should (equal (iso8601-parse-time "152746-05") + '(46 27 15 nil nil nil nil nil -300))) + (should (equal (iso8601-parse-time "15:27:46-05") + '(46 27 15 nil nil nil nil nil -300)))) + ;;; iso8601-tests.el ends here |