diff options
| -rw-r--r-- | test/src/emacs-module-tests.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index eb7c82b2f60..0f4bfae00a2 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el | |||
| @@ -78,13 +78,11 @@ changes." | |||
| 78 | (let ((obj (nth 2 body))) | 78 | (let ((obj (nth 2 body))) |
| 79 | (should (equal (type-of obj) 'module-function)) | 79 | (should (equal (type-of obj) 'module-function)) |
| 80 | (should (string-match-p | 80 | (should (string-match-p |
| 81 | (rx (or "#<module function Fmod_test_sum from " | 81 | (rx "#<module function " |
| 82 | ;; MS-Windows doesn't allow us to get the | 82 | (or "Fmod_test_sum" |
| 83 | ;; function name, only the address. | 83 | (and "at 0x" (+ hex-digit))) |
| 84 | (and "#<module function at 0x" | 84 | (? " from " (* nonl) "mod-test" (* nonl) ) |
| 85 | (one-or-more hex-digit) | 85 | ">") |
| 86 | " from ")) | ||
| 87 | (* nonl) "mod-test" (* nonl) ">") | ||
| 88 | (prin1-to-string obj))))))) | 86 | (prin1-to-string obj))))))) |
| 89 | 87 | ||
| 90 | ;; | 88 | ;; |