aboutsummaryrefslogtreecommitdiffstats
path: root/modules
diff options
context:
space:
mode:
Diffstat (limited to 'modules')
-rw-r--r--modules/mod-test/test.el7
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")))