Commit 89b5a828 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

Fix last change for MS-Windows

* test/src/emacs-module-tests.el (module-function-object): Port to
parent 1784ce60
...@@ -78,7 +78,12 @@ changes." ...@@ -78,7 +78,12 @@ changes."
(let ((obj (nth 2 body))) (let ((obj (nth 2 body)))
(should (equal (type-of obj) 'module-function)) (should (equal (type-of obj) 'module-function))
(should (string-match-p (should (string-match-p
(rx "#<module function Fmod_test_sum from " (rx (or "#<module function Fmod_test_sum from "
;; MS-Windows doesn't allow us to get the
;; function name, only the address.
"#<module function at 0x"
(one-or-more hex-digit)
"from ")
(* nonl) "mod-test" (* nonl) ">") (* nonl) "mod-test" (* nonl) ">")
(prin1-to-string obj))))))) (prin1-to-string obj)))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment