From: Tom Tromey <tom@tromey.com>
Date: Wed, 8 Aug 2018 23:34:42 +0000 (-0600)
Subject: Fix mod-test-sum-test for bignums
X-Git-Tag: emacs-27.0.90~4598^2~5
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=90dba077cff06b4f2566acb028286fbffa57f22f;p=emacs.git

Fix mod-test-sum-test for bignums

* test/src/emacs-module-tests.el (mod-test-sum-test): Update
for bignums.
---

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)")))