procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add one more mod-test test

Browse source 
* modules/mod-test/test.el (mod-test-sum-test): Test the error
signaled when the function is invoked with a wrong number of
arguments.
This commit is contained in:
Eli Zaretskii 2015-11-24 21:13:46 +02:00
parent 298b2b3f35
commit 33ec2ff0f8
1 changed files with 11 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
modules/mod-test/test.el
View file

@ -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")))