diff options
| author | Lars Ingebrigtsen | 2019-09-29 13:04:01 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-09-29 13:04:01 +0200 |
| commit | 9767bd2b78a8fd7ab1279fbb98a40380bbfbc3e0 (patch) | |
| tree | c44015e5ac8317c52f9217f0a2758aea80f180ff | |
| parent | 96636a8e1f5e91edb8ac4e88e0723beb7c71e160 (diff) | |
| download | emacs-9767bd2b78a8fd7ab1279fbb98a40380bbfbc3e0.tar.gz emacs-9767bd2b78a8fd7ab1279fbb98a40380bbfbc3e0.zip | |
Add some commented-out tests for iso8601
| -rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 26 |
1 files changed, 19 insertions, 7 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 35c319ed036..8d2aec3de5a 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el | |||
| @@ -153,13 +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 | (ert-deftest standard-test-time-of-day-fractions () | 156 | ;; Not implemented yet. |
| 157 | ;; decoded-time doesn't support sub-second times. | 157 | |
| 158 | ;; (should (equal (iso8601-parse-time "152735,5") | 158 | ;; (ert-deftest standard-test-time-of-day-fractions () |
| 159 | ;; '(46 27 15 nil nil nil nil nil nil))) | 159 | ;; (should (equal (iso8601-parse-time "152735,5") |
| 160 | ;; (should (equal (iso8601-parse-time "15:27:35,5") | 160 | ;; '(46 27 15 nil nil nil nil nil nil))) |
| 161 | ;; '(46 27 15 nil nil nil nil nil nil))) | 161 | ;; (should (equal (iso8601-parse-time "15:27:35,5") |
| 162 | ) | 162 | ;; '(46 27 15 nil nil nil nil nil nil))) |
| 163 | |||
| 164 | ;; (should (equal (iso8601-parse-time "2320,8") | ||
| 165 | ;; '(46 27 15 nil nil nil nil nil nil))) | ||
| 166 | ;; (should (equal (iso8601-parse-time "23:20,8") | ||
| 167 | ;; '(46 27 15 nil nil nil nil nil nil))) | ||
| 168 | |||
| 169 | ;; (should (equal (iso8601-parse-time "23,3") | ||
| 170 | ;; '(46 27 15 nil nil nil nil nil nil)))) | ||
| 171 | |||
| 172 | ;; (ert-deftest nonstandard-test-time-of-day-decimals () | ||
| 173 | ;; (should (equal (iso8601-parse-time "15:27:35.123") | ||
| 174 | ;; '(46 27 15 nil nil nil nil nil nil)))) | ||
| 163 | 175 | ||
| 164 | (ert-deftest standard-test-time-of-day-beginning-of-day () | 176 | (ert-deftest standard-test-time-of-day-beginning-of-day () |
| 165 | (should (equal (iso8601-parse-time "000000") | 177 | (should (equal (iso8601-parse-time "000000") |