procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add test for zerop

Browse source 
* test/lisp/subr-tests.el (subr-test-zerop): New test.
This commit is contained in:
Stefan Kangas 2025-02-17 02:21:26 +01:00
parent e779d60ea1
commit f2fb19d008
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/lisp/subr-tests.el
View file

@ -30,6 +30,21 @@
(require 'ert-x)
(eval-when-compile (require 'cl-lib))
(ert-deftest subr-test-zerop ()
(should (zerop 0))
(should (zerop 0.0))
(should (zerop -0))
(should (zerop -0.0))
(should-not (zerop -0.0e+NaN))
(should-not (zerop 0.0e+NaN))
(should-not (zerop float-pi))
(should-not (zerop 1.0e+INF))
(should-not (zerop (random most-positive-fixnum)))
(should-not (zerop (- (random (- most-negative-fixnum)))))
(should-not (zerop (1+ most-positive-fixnum)))
(should-not (zerop (1- most-negative-fixnum)))
(should-error (zerop "-5") :type 'wrong-type-argument))
(ert-deftest let-when-compile ()
;; good case
(should (equal (macroexpand '(let-when-compile ((foo (+ 2 3)))