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.

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")