diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2022-06-15 23:08:03 -0500 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2022-06-15 23:27:08 -0500 |
commit | 9a2be29672b8569406777af24d60f0afabf8b52d (patch) | |
tree | ff6d843f9390d5c1aa1894777ce86e4de3969a66 /test/src/timefns-tests.el | |
parent | 9bce1f3d7019f00f7c1c889d8be7832e9b645bec (diff) | |
download | emacs-9a2be29672b8569406777af24d60f0afabf8b52d.tar.gz |
Don’t test time functions for NaNs, INF
* test/src/timefns-tests.el (decode-then-encode-time)
(time-equal-p-NaN-NaN, time-arith-tests):
Don’t test time functions with infinities and NaNs,
which are not Lisp time values.
Diffstat (limited to 'test/src/timefns-tests.el')
-rw-r--r-- | test/src/timefns-tests.el | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el index 08d06f27d9e..24f9000ffbd 100644 --- a/test/src/timefns-tests.el +++ b/test/src/timefns-tests.el @@ -93,7 +93,6 @@ most-negative-fixnum most-positive-fixnum (1- most-negative-fixnum) (1+ most-positive-fixnum) - 1e+INF -1e+INF 1e+NaN -1e+NaN '(0 1 0 0) '(1 0 0 0) '(-1 0 0 0) '(123456789000000 . 1000000) (cons (1+ most-positive-fixnum) 1000000000000) @@ -169,10 +168,6 @@ 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 @@ -184,7 +179,6 @@ a fixed place on the right and are padded on the left." 1e10 -1e10 1e-10 -1e-10 1e16 -1e16 1e-16 -1e-16 1e37 -1e37 1e-37 -1e-37 - 1e+INF -1e+INF 1e+NaN -1e+NaN '(0 0 0 1) '(0 0 1 0) '(0 1 0 0) '(1 0 0 0) '(-1 0 0 0) '(1 2 3 4) '(-1 2 3 4) '(-123456789 . 100000) '(123456789 . 1000000) |