diff options
| author | Eli Zaretskii | 2017-05-19 14:36:43 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-05-19 14:36:43 +0300 |
| commit | 4b04d8a7d550b9d4a0e83334c80b97d6e8a60ca2 (patch) | |
| tree | 85e43b998d6f6ae0abd0be14dfa91e1b5d8404ac | |
| parent | b43c4616ccc9cbaf7bc1531d0e6a4a84227f339e (diff) | |
| parent | 45944e0183af5b6a2e31248a815fb061f9757eed (diff) | |
| download | emacs-4b04d8a7d550b9d4a0e83334c80b97d6e8a60ca2.tar.gz emacs-4b04d8a7d550b9d4a0e83334c80b97d6e8a60ca2.zip | |
Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs
| -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 | ;; |