diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-01-30 03:02:48 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-01-30 03:02:48 +0100 |
| commit | 1ed7cd41dba444da0b66427eb48852e896ca3742 (patch) | |
| tree | e83a624096cabea9f483412788d41b2b1763ec19 /test/lisp/calendar | |
| parent | 7c7b91b9fe156b6af4643ca4aa8f4a5c4aeb915f (diff) | |
| download | emacs-1ed7cd41dba444da0b66427eb48852e896ca3742.tar.gz emacs-1ed7cd41dba444da0b66427eb48852e896ca3742.tar.bz2 emacs-1ed7cd41dba444da0b66427eb48852e896ca3742.zip | |
Give fuller support for obsolete ---12 dates in iso8601
* lisp/calendar/iso8601.el
(iso8601--outdated-reduced-precision-date-match): New constant.
(iso8601--date-match): Use it.
Diffstat (limited to 'test/lisp/calendar')
| -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") |