From: Paul Eggert <eggert@cs.ucla.edu>
Date: Thu, 22 Mar 2018 16:32:50 +0000 (-0700)
Subject: Port emacs-module-tests to 32-bit Emacs
X-Git-Tag: emacs-27.0.90~5430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=011186279c1041e790b81af72981547d623d9b29;p=emacs.git

Port emacs-module-tests to 32-bit Emacs

Fix a portability bug when emacs-module-tests.el is byte-compiled
with a 32-bit Emacs (where #x20000000 evaluates to a
floating-point number) and then is run on a 64-bit Emacs (where
the floating-point number causes a test failure).
* test/src/emacs-module-tests.el (mod-test-sum-test):
Don’t assume #x20000000 can be represented as an Emacs integer.
---

diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index 4751638968f..8b6328d35af 100644
--- a/test/src/emacs-module-tests.el
+++ b/test/src/emacs-module-tests.el
@@ -66,7 +66,7 @@
   (when (< #x1fffffff most-positive-fixnum)
     (should (= (mod-test-sum 1 #x1fffffff)
                (1+ #x1fffffff)))
-    (should (= (mod-test-sum -1 #x20000000)
+    (should (= (mod-test-sum -1 (1+ #x1fffffff))
                #x1fffffff)))
   (should-error (mod-test-sum 1 most-positive-fixnum)
                 :type 'overflow-error)