diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-09-21 23:08:52 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-09-21 23:09:08 -0700 |
| commit | 3727bc7d599c24715a66de3e899a82b6f07d1aac (patch) | |
| tree | 1a5a7eacf38cf04030134725f88bc3a5e0cda80f /test/src/data-tests.el | |
| parent | 0bec064454adac2bdff04a11bbdfaa79aa4ce052 (diff) | |
| download | emacs-3727bc7d599c24715a66de3e899a82b6f07d1aac.tar.gz | |
Fix (+ bignum float) bug
* src/data.c (bignum_arith_driver): Fix typo: missing ‘return’.
* test/src/data-tests.el (data-tests-bignum): Test for the typo.
Diffstat (limited to 'test/src/data-tests.el')
| -rw-r--r-- | test/src/data-tests.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 701e579ae2e..3cd4802a981 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el @@ -547,6 +547,16 @@ comparing the subr with a much slower lisp implementation." (should (<= b-1 b0)) (should (<= b-1 b-1)) + (should (= (+ f0 b0) (+ b0 f0))) + (should (= (+ f0 b-1) (+ b-1 f0))) + (should (= (+ f-1 b0) (+ b0 f-1))) + (should (= (+ f-1 b-1) (+ b-1 f-1))) + + (should (= (* f0 b0) (* b0 f0))) + (should (= (* f0 b-1) (* b-1 f0))) + (should (= (* f-1 b0) (* b0 f-1))) + (should (= (* f-1 b-1) (* b-1 f-1))) + (should (= b0 f0)) (should (= b0 b0)) |