[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 9a2be29672 2/3: Don’t test time functions for NaNs, INF
|
From: |
Paul Eggert |
|
Subject: |
master 9a2be29672 2/3: Don’t test time functions for NaNs, INF |
|
Date: |
Thu, 16 Jun 2022 00:27:16 -0400 (EDT) |
branch: master
commit 9a2be29672b8569406777af24d60f0afabf8b52d
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>
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.
---
test/src/timefns-tests.el | 6 ------
1 file changed, 6 deletions(-)
diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el
index 08d06f27d9..24f9000ffb 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)