diff options
| author | Lars Ingebrigtsen | 2019-09-29 21:22:29 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-29 21:22:36 +0200 |
| commit | 0df01e3aa5f8372995bdc39be36c444c54a52f7e (patch) | |
| tree | 7b26486c46b31fae0cbbc19dbca78a476235c5ed /test | |
| parent | 53ebec24c871c5e6adb6aed088199d1b15e0198a (diff) | |
| download | emacs-0df01e3aa5f8372995bdc39be36c444c54a52f7e.tar.gz emacs-0df01e3aa5f8372995bdc39be36c444c54a52f7e.zip | |
Add support for sub-second ISO8601 strings
* lisp/calendar/iso8601.el (iso8601--decimalize): New function.
(iso8601-parse-time): Support sub-second ISO8601 times.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 38 |
1 files changed, 19 insertions, 19 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 8d2aec3de5a..1d44e947a77 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el | |||
| @@ -153,25 +153,25 @@ | |||
| 153 | (should (equal (iso8601-parse-time "15") | 153 | (should (equal (iso8601-parse-time "15") |
| 154 | '(0 0 15 nil nil nil nil nil nil)))) | 154 | '(0 0 15 nil nil nil nil nil nil)))) |
| 155 | 155 | ||
| 156 | ;; Not implemented yet. | 156 | (ert-deftest standard-test-time-of-day-fractions () |
| 157 | 157 | (should (equal (iso8601-parse-time "152735,5") | |
| 158 | ;; (ert-deftest standard-test-time-of-day-fractions () | 158 | '((355 . 10) 27 15 nil nil nil nil nil nil))) |
| 159 | ;; (should (equal (iso8601-parse-time "152735,5") | 159 | (should (equal (iso8601-parse-time "15:27:35,5") |
| 160 | ;; '(46 27 15 nil nil nil nil nil nil))) | 160 | '((355 . 10) 27 15 nil nil nil nil nil nil))) |
| 161 | ;; (should (equal (iso8601-parse-time "15:27:35,5") | 161 | |
| 162 | ;; '(46 27 15 nil nil nil nil nil nil))) | 162 | (should (equal (iso8601-parse-time "2320,5") |
| 163 | 163 | '(30 20 23 nil nil nil nil nil nil))) | |
| 164 | ;; (should (equal (iso8601-parse-time "2320,8") | 164 | (should (equal (iso8601-parse-time "23:20,8") |
| 165 | ;; '(46 27 15 nil nil nil nil nil nil))) | 165 | '(48 20 23 nil nil nil nil nil nil))) |
| 166 | ;; (should (equal (iso8601-parse-time "23:20,8") | 166 | |
| 167 | ;; '(46 27 15 nil nil nil nil nil nil))) | 167 | (should (equal (iso8601-parse-time "23,3") |
| 168 | 168 | '(0 18 23 nil nil nil nil nil nil)))) | |
| 169 | ;; (should (equal (iso8601-parse-time "23,3") | 169 | |
| 170 | ;; '(46 27 15 nil nil nil nil nil nil)))) | 170 | (ert-deftest nonstandard-test-time-of-day-decimals () |
| 171 | 171 | (should (equal (iso8601-parse-time "15:27:35.123") | |
| 172 | ;; (ert-deftest nonstandard-test-time-of-day-decimals () | 172 | '((35123 . 1000) 27 15 nil nil nil nil nil nil))) |
| 173 | ;; (should (equal (iso8601-parse-time "15:27:35.123") | 173 | (should (equal (iso8601-parse-time "15:27:35.123456789") |
| 174 | ;; '(46 27 15 nil nil nil nil nil nil)))) | 174 | '((35123456789 . 1000000000) 27 15 nil nil nil nil nil nil)))) |
| 175 | 175 | ||
| 176 | (ert-deftest standard-test-time-of-day-beginning-of-day () | 176 | (ert-deftest standard-test-time-of-day-beginning-of-day () |
| 177 | (should (equal (iso8601-parse-time "000000") | 177 | (should (equal (iso8601-parse-time "000000") |