aboutsummaryrefslogtreecommitdiffstats
path: root/test/src
diff options
context:
space:
mode:
Diffstat (limited to 'test/src')
-rw-r--r--test/src/emacs-module-tests.el6
1 files changed, 4 insertions, 2 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index c61abfdf683..48d2e86a605 100644
--- a/test/src/emacs-module-tests.el
+++ b/test/src/emacs-module-tests.el
@@ -60,8 +60,9 @@
60 (should (eq 0 60 (should (eq 0
61 (string-match 61 (string-match
62 (concat "#<module function " 62 (concat "#<module function "
63 "\\(at \\(0x\\)?[[:xdigit:]]+\\( from .*\\)?" 63 "\\(at \\(0x\\)?[[:xdigit:]]+ "
64 "\\|Fmod_test_sum from .*\\)>") 64 "with data 0x1234\\( from .*\\)?"
65 "\\|Fmod_test_sum with data 0x1234 from .*\\)>")
65 (prin1-to-string (nth 1 descr))))) 66 (prin1-to-string (nth 1 descr)))))
66 (should (= (nth 2 descr) 3))) 67 (should (= (nth 2 descr) 3)))
67 (should-error (mod-test-sum "1" 2) :type 'wrong-type-argument) 68 (should-error (mod-test-sum "1" 2) :type 'wrong-type-argument)
@@ -97,6 +98,7 @@ changes."
97 (rx bos "#<module function " 98 (rx bos "#<module function "
98 (or "Fmod_test_sum" 99 (or "Fmod_test_sum"
99 (and "at 0x" (+ hex-digit))) 100 (and "at 0x" (+ hex-digit)))
101 " with data 0x1234"
100 (? " from " (* nonl) "mod-test" (* nonl) ) 102 (? " from " (* nonl) "mod-test" (* nonl) )
101 ">" eos) 103 ">" eos)
102 (prin1-to-string func))))) 104 (prin1-to-string func)))))