procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use time-equal-p to compare timestamps in tests

Browse source 
* test/lisp/calendar/time-date-tests.el (test-days-to-time)
(test-time-since): Use time-equal-p to compare timestamps,
since the default form shouldn’t matter.
This commit is contained in:
Paul Eggert 2021-12-05 17:44:02 -08:00
parent 0d88c3c340
commit 83fa35bb16
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
test/lisp/calendar/time-date-tests.el
View file

@ -55,13 +55,13 @@
(should (date-leap-year-p 2004)))
(ert-deftest test-days-to-time ()
(should (equal (days-to-time 0) '(0 0)))
(should (equal (days-to-time 1) '(1 20864)))
(should (equal (days-to-time 999) '(1317 2688)))
(should (equal (days-to-time 0.0) '(0 0 0 0)))
(should (equal (days-to-time 0.5) '(0 43200 0 0)))
(should (equal (days-to-time 1.0) '(1 20864 0 0)))
(should (equal (days-to-time 999.0) '(1317 2688 0 0))))
(should (time-equal-p (days-to-time 0) '(0 0)))
(should (time-equal-p (days-to-time 1) '(1 20864)))
(should (time-equal-p (days-to-time 999) '(1317 2688)))
(should (time-equal-p (days-to-time 0.0) '(0 0 0 0)))
(should (time-equal-p (days-to-time 0.5) '(0 43200 0 0)))
(should (time-equal-p (days-to-time 1.0) '(1 20864 0 0)))
(should (time-equal-p (days-to-time 999.0) '(1317 2688 0 0))))
(ert-deftest test-seconds-to-string ()
(should (equal (seconds-to-string 0) "0s"))
@ -170,7 +170,8 @@
(ert-deftest test-time-since ()
(should (time-equal-p 0 (time-since nil)))
(should (= (cadr (time-since (time-subtract (current-time) 1))) 1)))
(should (time-equal-p 1 (time-convert (time-since (time-subtract nil 1))
'integer))))
(ert-deftest test-time-decoded-period ()
(should (equal (decoded-time-period '(nil nil 1 nil nil nil nil nil nil))