diff options
| author | Tom Tromey <tom@tromey.com> | 2018-08-08 17:34:42 -0600 |
|---|---|---|
| committer | Tom Tromey <tom@tromey.com> | 2018-08-08 17:34:42 -0600 |
| commit | 90dba077cff06b4f2566acb028286fbffa57f22f (patch) | |
| tree | 1bcae9904df3f85310a1a4cbb739232b6bf8c219 | |
| parent | 5ebf062ebe0ec0536efd4f1fb4f37d75f892664b (diff) | |
| download | emacs-90dba077cff06b4f2566acb028286fbffa57f22f.tar.gz emacs-90dba077cff06b4f2566acb028286fbffa57f22f.tar.bz2 emacs-90dba077cff06b4f2566acb028286fbffa57f22f.zip | |
Fix mod-test-sum-test for bignums
* test/src/emacs-module-tests.el (mod-test-sum-test): Update
for bignums.
| -rw-r--r-- | test/src/emacs-module-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 9ef5a47b159..90cd37a98a5 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -68,10 +68,10 @@ (1+ #x1fffffff))) (should (= (mod-test-sum -1 (1+ #x1fffffff)) #x1fffffff))) - (should-error (mod-test-sum 1 most-positive-fixnum) - :type 'overflow-error) - (should-error (mod-test-sum -1 most-negative-fixnum) - :type 'overflow-error)) + (should (= (mod-test-sum 1 most-positive-fixnum) + (1+ most-positive-fixnum))) + (should (= (mod-test-sum -1 most-negative-fixnum) + (1- most-negative-fixnum)))) (ert-deftest mod-test-sum-docstring () (should (string= (documentation 'mod-test-sum) "Return A + B\n\n(fn a b)"))) |