diff options
| author | Lars Ingebrigtsen | 2020-01-30 02:11:09 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2020-01-30 02:11:15 +0100 |
| commit | 7c7b91b9fe156b6af4643ca4aa8f4a5c4aeb915f (patch) | |
| tree | 5b939400040405df08d6946620793b1a3a2237e9 /test | |
| parent | 5db3324a7e11280437e69e27fe364dfd80b66ca2 (diff) | |
| download | emacs-7c7b91b9fe156b6af4643ca4aa8f4a5c4aeb915f.tar.gz emacs-7c7b91b9fe156b6af4643ca4aa8f4a5c4aeb915f.zip | |
Make iso8601.el understand two obsolete forms
* lisp/calendar/iso8601.el (iso8601-parse-date): Understand some
obsolete formats to provide compatibility with the vCard RFC
(bug#39347).
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 6e7a4724a6b..c2994ef8b4d 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el | |||
| @@ -44,6 +44,14 @@ | |||
| 44 | (should (equal (iso8601-parse-date "--0201") | 44 | (should (equal (iso8601-parse-date "--0201") |
| 45 | '(nil nil nil 1 2 nil nil -1 nil)))) | 45 | '(nil nil nil 1 2 nil nil -1 nil)))) |
| 46 | 46 | ||
| 47 | (ert-deftest test-iso8601-date-obsolete-2000 () | ||
| 48 | ;; These are forms in 5.2.1.3 of the 2000 version of the standard, | ||
| 49 | ;; e) and f). | ||
| 50 | (should (equal (iso8601-parse-date "--02") | ||
| 51 | '(nil nil nil nil 2 nil nil -1 nil))) | ||
| 52 | (should (equal (iso8601-parse-date "---12") | ||
| 53 | '(nil nil nil 12 nil nil nil -1 nil)))) | ||
| 54 | |||
| 47 | (ert-deftest test-iso8601-date-weeks () | 55 | (ert-deftest test-iso8601-date-weeks () |
| 48 | (should (equal (iso8601-parse-date "2008W39-6") | 56 | (should (equal (iso8601-parse-date "2008W39-6") |
| 49 | '(nil nil nil 27 9 2008 nil -1 nil))) | 57 | '(nil nil nil 27 9 2008 nil -1 nil))) |