diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-08 20:38:06 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-08 20:38:06 +0200 |
commit | 53f7e58a838f766d844a37c10a69d10e758872a6 (patch) | |
tree | 85b06e66ee1a391195ac0e26d8ac6aad3cfd6b2c /test | |
parent | b3cb5b76afc91ce05bdd9d389118fe47b9b9030a (diff) | |
download | emacs-53f7e58a838f766d844a37c10a69d10e758872a6.tar.gz |
Start implementing the ISO test corpus
Diffstat (limited to 'test')
-rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 37 |
1 files changed, 36 insertions, 1 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 29f599bc338..88d656290aa 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -26,7 +26,7 @@ (should (equal (iso8601-parse-date "1985") '(0 0 0 1 1 1985 nil nil nil))) (should (equal (iso8601-parse-date "-0003") - '(0 0 0 1 1 2 nil nil nil))) + '(0 0 0 1 1 -4 nil nil nil))) (should (equal (iso8601-parse-date "+1985") '(0 0 0 1 1 1985 nil nil nil)))) @@ -107,4 +107,39 @@ (0 30 15 11 5 2008 nil nil 0) (0 30 2 10 2 1 nil nil nil))))) +(ert-deftest standard-test-dates () + (should (equal (iso8601-parse-date "19850412") + '(0 0 0 12 4 1985 nil nil nil))) + (should (equal (iso8601-parse-date "1985-04-12") + '(0 0 0 12 4 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "1985102") + '(0 0 0 12 4 1985 nil nil nil))) + (should (equal (iso8601-parse-date "1985-102") + '(0 0 0 12 4 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "1985W155") + '(0 0 0 12 4 1985 nil nil nil))) + (should (equal (iso8601-parse-date "1985-W15-5") + '(0 0 0 12 4 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "1985W15") + '(0 0 0 7 4 1985 nil nil nil))) + (should (equal (iso8601-parse-date "1985-W15") + '(0 0 0 7 4 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "1985-04") + '(0 0 0 1 4 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "1985") + '(0 0 0 1 1 1985 nil nil nil))) + + (should (equal (iso8601-parse-date "+1985-04-12") + '(0 0 0 12 4 1985 nil nil nil))) + (should (equal (iso8601-parse-date "+19850412") + '(0 0 0 12 4 1985 nil nil nil))) + + ) + + ;;; iso8601-tests.el ends here |