diff options
Diffstat (limited to 'test/lisp')
| -rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index c2994ef8b4d..e8b155a7aa7 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -47,10 +47,14 @@ (ert-deftest test-iso8601-date-obsolete-2000 () ;; These are forms in 5.2.1.3 of the 2000 version of the standard, ;; e) and f). - (should (equal (iso8601-parse-date "--02") - '(nil nil nil nil 2 nil nil -1 nil))) + (should (equal (iso8601-parse-date "--12") + '(nil nil nil nil 12 nil nil -1 nil))) + (should (equal (iso8601-parse "--12T14") + '(0 0 14 nil 12 nil nil -1 nil))) (should (equal (iso8601-parse-date "---12") - '(nil nil nil 12 nil nil nil -1 nil)))) + '(nil nil nil 12 nil nil nil -1 nil))) + (should (equal (iso8601-parse "---12T14:10:12") + '(12 10 14 12 nil nil nil -1 nil)))) (ert-deftest test-iso8601-date-weeks () (should (equal (iso8601-parse-date "2008W39-6") |