[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs-25 33ec2ff: Add one more mod-test test
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] emacs-25 33ec2ff: Add one more mod-test test |
Date: |
Tue, 24 Nov 2015 19:14:34 +0000 |
branch: emacs-25
commit 33ec2ff0f8b77f3c10af395d3e8979508cd78c0a
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>
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.
---
modules/mod-test/test.el | 12 +++++++++++-
1 files changed, 11 insertions(+), 1 deletions(-)
diff --git a/modules/mod-test/test.el b/modules/mod-test/test.el
index 98ce464..34090d9 100644
--- a/modules/mod-test/test.el
+++ b/modules/mod-test/test.el
@@ -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")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs-25 33ec2ff: Add one more mod-test test,
Eli Zaretskii <=