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

Add time-convert tests

Browse source 
* test/src/timefns-tests.el (time-convert-forms): New test.
This commit is contained in:
Paul Eggert 2021-12-05 17:38:58 -08:00
parent 4434deaee2
commit 0d88c3c340
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/src/timefns-tests.el
View file

@ -242,4 +242,16 @@ a fixed place on the right and are padded on the left."
(should (= xdiv (float-time (time-convert xdiv t))))))
(setq x (* x 2)))))
(ert-deftest time-convert-forms ()
;; These computations involve numbers that should have exact
;; representations on any Emacs platform.
(dolist (time '(-86400 -1 0 1 86400))
(dolist (delta '(0 0.0 0.25 3.25 1000 1000.25))
(let ((time+ (+ time delta))
(time- (- time delta)))
(dolist (form '(nil t list 4 1000 1000000 1000000000))
(should (time-equal-p time (time-convert time form)))
(should (time-equal-p time- (time-convert time- form)))
(should (time-equal-p time+ (time-convert time+ form))))))))
;;; timefns-tests.el ends here