Commit 33ec2ff0 authored by Eli Zaretskii's avatar Eli Zaretskii

Add one more mod-test test

* modules/mod-test/test.el (mod-test-sum-test): Test the error
signaled when the function is invoked with a wrong number of
arguments.
parent 298b2b3f
......@@ -28,7 +28,17 @@
;;
(ert-deftest mod-test-sum-test ()
(should (= (mod-test-sum 1 2) 3)))
(should (= (mod-test-sum 1 2) 3))
(let ((descr (should-error (mod-test-sum 1 2 3))))
(should (eq (car descr) 'wrong-number-of-arguments))
(should (stringp (nth 1 descr)))
(should (eq 0
(string-match
(if (eq system-type 'windows-nt)
"#<module function at \\(0x\\)?[0-9a-fA-F]+ from .*>"
"#<module function Fmod_test_sum from .*>")
(nth 1 descr))))
(should (= (nth 2 descr) 3))))
(ert-deftest mod-test-sum-docstring ()
(should (string= (documentation 'mod-test-sum) "Return A + B")))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment