diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 12:43:50 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2019-08-24 15:55:08 -0700 |
| commit | 575179f74d9b80ee468ae39239c853546da8de43 (patch) | |
| tree | a91e8a8f05aec991d1040d56ef0eb59e446bcb55 /test/src | |
| parent | b62eac0f870754bc75b1162246f9901a04910044 (diff) | |
| download | emacs-575179f74d9b80ee468ae39239c853546da8de43.tar.gz | |
Make (mod 1.0 0) consistent with (/ 1.0 0)
* src/data.c (Fmod): Do not signal an error for (mod 1.0 0), for
the same reason (/ 1.0 0) does not signal an error.
* test/src/data-tests.el (data-tests-mod-0): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index a9d48e29a8a..3a7462b6ada 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el @@ -653,6 +653,13 @@ comparing the subr with a much slower lisp implementation." (data-tests-check-sign (% -1 -3) (% nb1 nb3)) (data-tests-check-sign (mod -1 -3) (mod nb1 nb3)))) +(ert-deftest data-tests-mod-0 () + (dolist (num (list (1- most-negative-fixnum) -1 0 1 + (1+ most-positive-fixnum))) + (should-error (mod num 0))) + (when (ignore-errors (/ 0.0 0)) + (should (equal (abs (mod 0.0 0)) (abs (- 0.0 (/ 0.0 0))))))) + (ert-deftest data-tests-ash-lsh () (should (= (ash most-negative-fixnum 1) (* most-negative-fixnum 2))) |