diff options
Diffstat (limited to 'test/src/data-tests.el')
| -rw-r--r-- | test/src/data-tests.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 07159df48cf..ee6a3eb9222 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -105,7 +105,9 @@ | |||
| 105 | (should (isnan (min 0.0e+NaN))) | 105 | (should (isnan (min 0.0e+NaN))) |
| 106 | (should (isnan (min 0.0e+NaN 1 2))) | 106 | (should (isnan (min 0.0e+NaN 1 2))) |
| 107 | (should (isnan (min 1.0 0.0e+NaN))) | 107 | (should (isnan (min 1.0 0.0e+NaN))) |
| 108 | (should (isnan (min 1.0 0.0e+NaN 1.1)))) | 108 | (should (isnan (min 1.0 0.0e+NaN 1.1))) |
| 109 | (should (isnan (min 1.0 0.0e+NaN 1.1 (1+ most-positive-fixnum)))) | ||
| 110 | (should (isnan (max 1.0 0.0e+NaN 1.1 (1+ most-positive-fixnum))))) | ||
| 109 | 111 | ||
| 110 | (defun data-tests-popcnt (byte) | 112 | (defun data-tests-popcnt (byte) |
| 111 | "Calculate the Hamming weight of BYTE." | 113 | "Calculate the Hamming weight of BYTE." |
| @@ -618,6 +620,6 @@ comparing the subr with a much slower lisp implementation." | |||
| 618 | (should (= (ash most-negative-fixnum 1) | 620 | (should (= (ash most-negative-fixnum 1) |
| 619 | (* most-negative-fixnum 2))) | 621 | (* most-negative-fixnum 2))) |
| 620 | (should (= (lsh most-negative-fixnum 1) | 622 | (should (= (lsh most-negative-fixnum 1) |
| 621 | (* (abs most-negative-fixnum) 2)))) | 623 | (* most-negative-fixnum 2)))) |
| 622 | 624 | ||
| 623 | ;;; data-tests.el ends here | 625 | ;;; data-tests.el ends here |