aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/calendar/iso8601-tests.el26
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")