diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/emacs-module-tests.el | 6 |
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))))) |