diff options
Diffstat (limited to 'modules')
| -rw-r--r-- | modules/mod-test/test.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/modules/mod-test/test.el b/modules/mod-test/test.el index eacc6671ead..ad4cc49c690 100644 --- a/modules/mod-test/test.el +++ b/modules/mod-test/test.el | |||
| @@ -43,10 +43,15 @@ | |||
| 43 | (should (= (nth 2 descr) 3))) | 43 | (should (= (nth 2 descr) 3))) |
| 44 | (should-error (mod-test-sum "1" 2) :type 'wrong-type-argument) | 44 | (should-error (mod-test-sum "1" 2) :type 'wrong-type-argument) |
| 45 | (should-error (mod-test-sum 1 "2") :type 'wrong-type-argument) | 45 | (should-error (mod-test-sum 1 "2") :type 'wrong-type-argument) |
| 46 | ;; The following tests are for 32-bit build --with-wide-int. | ||
| 46 | (should (= (mod-test-sum -1 most-positive-fixnum) | 47 | (should (= (mod-test-sum -1 most-positive-fixnum) |
| 47 | (1- most-positive-fixnum))) | 48 | (1- most-positive-fixnum))) |
| 48 | (should (= (mod-test-sum 1 most-negative-fixnum) | 49 | (should (= (mod-test-sum 1 most-negative-fixnum) |
| 49 | (1+ most-negative-fixnum)))) | 50 | (1+ most-negative-fixnum))) |
| 51 | (should (= (mod-test-sum 1 #x1fffffff) | ||
| 52 | (1+ #x1fffffff))) | ||
| 53 | (should (= (mod-test-sum -1 #x20000000) | ||
| 54 | #x1fffffff))) | ||
| 50 | 55 | ||
| 51 | (ert-deftest mod-test-sum-docstring () | 56 | (ert-deftest mod-test-sum-docstring () |
| 52 | (should (string= (documentation 'mod-test-sum) "Return A + B"))) | 57 | (should (string= (documentation 'mod-test-sum) "Return A + B"))) |