emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] feature/bignum 90dba07 4/4: Fix mod-test-sum-test for bign


From: Tom Tromey
Subject: [Emacs-diffs] feature/bignum 90dba07 4/4: Fix mod-test-sum-test for bignums
Date: Wed, 8 Aug 2018 19:34:57 -0400 (EDT)

branch: feature/bignum
commit 90dba077cff06b4f2566acb028286fbffa57f22f
Author: Tom Tromey <address@hidden>
Commit: Tom Tromey <address@hidden>

    Fix mod-test-sum-test for bignums
    
    * test/src/emacs-module-tests.el (mod-test-sum-test): Update
    for bignums.
---
 test/src/emacs-module-tests.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index 9ef5a47..90cd37a 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)")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]