diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2022-04-14 19:03:41 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-04-14 19:09:51 -0700 |
commit | 7c17bd2a6d8d7cf710051cd7ca00260c1e557609 (patch) | |
tree | 3d9a870b3981f1ec2d058da18093762515a8da0b /test/src/timefns-tests.el | |
parent | 6c4559d13865cb5761071ac59f395718b85eb41c (diff) | |
download | emacs-7c17bd2a6d8d7cf710051cd7ca00260c1e557609.tar.gz |
New time-equal-p test
* test/src/timefns-tests.el (time-equal-p-NaN-NaN): New test.
Diffstat (limited to 'test/src/timefns-tests.el')
-rw-r--r-- | test/src/timefns-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el index 1b49e0622f5..e7c464472d0 100644 --- a/test/src/timefns-tests.el +++ b/test/src/timefns-tests.el @@ -169,6 +169,10 @@ a fixed place on the right and are padded on the left." (ert-deftest time-equal-p-nil-nil () (should (time-equal-p nil nil))) +(ert-deftest time-equal-p-NaN-NaN () + (let ((x 0.0e+NaN)) + (should (not (time-equal-p x x))))) + (ert-deftest time-arith-tests () (let ((time-values (list 0 -1 1 0.0 -0.0 -1.0 1.0 most-negative-fixnum most-positive-fixnum |