From: Lars Ingebrigtsen Date: Sun, 29 Sep 2019 19:57:59 +0000 (+0200) Subject: Update iso8601-tests for new interface X-Git-Tag: emacs-27.0.90~1366 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c34801f8838c4b91378c3e0d961aca826a923e95;p=emacs.git Update iso8601-tests for new interface --- diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 1d44e947a77..b5a3c9538d1 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -154,23 +154,23 @@ '(0 0 15 nil nil nil nil nil nil)))) (ert-deftest standard-test-time-of-day-fractions () - (should (equal (iso8601-parse-time "152735,5") + (should (equal (iso8601-parse-time "152735,5" t) '((355 . 10) 27 15 nil nil nil nil nil nil))) - (should (equal (iso8601-parse-time "15:27:35,5") + (should (equal (iso8601-parse-time "15:27:35,5" t) '((355 . 10) 27 15 nil nil nil nil nil nil))) - (should (equal (iso8601-parse-time "2320,5") + (should (equal (iso8601-parse-time "2320,5" t) '(30 20 23 nil nil nil nil nil nil))) - (should (equal (iso8601-parse-time "23:20,8") + (should (equal (iso8601-parse-time "23:20,8" t) '(48 20 23 nil nil nil nil nil nil))) - (should (equal (iso8601-parse-time "23,3") + (should (equal (iso8601-parse-time "23,3" t) '(0 18 23 nil nil nil nil nil nil)))) (ert-deftest nonstandard-test-time-of-day-decimals () - (should (equal (iso8601-parse-time "15:27:35.123") + (should (equal (iso8601-parse-time "15:27:35.123" t) '((35123 . 1000) 27 15 nil nil nil nil nil nil))) - (should (equal (iso8601-parse-time "15:27:35.123456789") + (should (equal (iso8601-parse-time "15:27:35.123456789" t) '((35123456789 . 1000000000) 27 15 nil nil nil nil nil nil)))) (ert-deftest standard-test-time-of-day-beginning-of-day ()