diff options
| author | Stefan Kangas | 2025-02-24 18:38:28 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2025-02-24 18:40:48 +0100 |
| commit | 3f72af997308db3160f05ace47602f1f2b8afd9c (patch) | |
| tree | ab3b6d9574b9e72183284e72c3c32057f03c1e5d /test | |
| parent | 0c8ec155f60bdebaf2f7a86e57e7c559c5552821 (diff) | |
| download | emacs-3f72af997308db3160f05ace47602f1f2b8afd9c.tar.gz emacs-3f72af997308db3160f05ace47602f1f2b8afd9c.zip | |
; Fix thinko in subr-test-zerop
* test/lisp/subr-tests.el (subr-test-zerop): Fix test.
Reported by Pip Cet <pipcet@protonmail.com>.
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/subr-tests.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el index 5684a08254d..702502627f2 100644 --- a/test/lisp/subr-tests.el +++ b/test/lisp/subr-tests.el | |||
| @@ -39,8 +39,8 @@ | |||
| 39 | (should-not (zerop 0.0e+NaN)) | 39 | (should-not (zerop 0.0e+NaN)) |
| 40 | (should-not (zerop float-pi)) | 40 | (should-not (zerop float-pi)) |
| 41 | (should-not (zerop 1.0e+INF)) | 41 | (should-not (zerop 1.0e+INF)) |
| 42 | (should-not (zerop (random most-positive-fixnum))) | 42 | (should-not (zerop (1+ (random most-positive-fixnum)))) |
| 43 | (should-not (zerop (- (random (- most-negative-fixnum))))) | 43 | (should-not (zerop (- (1- (random (- most-negative-fixnum)))))) |
| 44 | (should-not (zerop (1+ most-positive-fixnum))) | 44 | (should-not (zerop (1+ most-positive-fixnum))) |
| 45 | (should-not (zerop (1- most-negative-fixnum))) | 45 | (should-not (zerop (1- most-negative-fixnum))) |
| 46 | (should-error (zerop "-5") :type 'wrong-type-argument)) | 46 | (should-error (zerop "-5") :type 'wrong-type-argument)) |