master 0d88c3c 01/13: Add time-convert tests

[Paul Eggert]

branch: master
commit 0d88c3c340ec09f449a2a843205cdcabae799fe1
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Add time-convert tests
    
    * test/src/timefns-tests.el (time-convert-forms): New test.
---
 test/src/timefns-tests.el | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el
index bba9b3f..f801478 100644
--- a/test/src/timefns-tests.el
+++ b/test/src/timefns-tests.el
@@ -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