diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-12-06 14:54:29 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-12-06 14:55:16 -0800 |
| commit | ace6c2530e32720fb8b9b8ead5f117c7ed382864 (patch) | |
| tree | db3adfea5cd300bbb48e294151ca393b5d559e0f /modules | |
| parent | 0e574ea35ea75fa91a38718966ffe6c17b8e93d8 (diff) | |
| download | emacs-ace6c2530e32720fb8b9b8ead5f117c7ed382864.tar.gz | |
Port mod-test to 32-bit Emacs --without-wide-int
* modules/mod-test/test.el (mod-test-sum-test):
Bring back the 2**29 tests, but port them to 32-bit Emacs
--without-wide-int.
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/mod-test/test.el | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/modules/mod-test/test.el b/modules/mod-test/test.el index c1defae9bd7..69bf933c7f9 100644 --- a/modules/mod-test/test.el +++ b/modules/mod-test/test.el @@ -46,6 +46,11 @@ (1- most-positive-fixnum))) (should (= (mod-test-sum 1 most-negative-fixnum) (1+ most-negative-fixnum))) + (when (< #x1fffffff most-positive-fixnum) + (should (= (mod-test-sum 1 #x1fffffff) + (1+ #x1fffffff))) + (should (= (mod-test-sum -1 #x20000000) + #x1fffffff))) (should-error (mod-test-sum 1 most-positive-fixnum) :type 'overflow-error) (should-error (mod-test-sum -1 most-negative-fixnum) |