mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 11:21:04 -08:00
Code Issues Projects Releases Wiki Activity

Merge branch 'master' of git.savannah.gnu.org:/srv/git/emacs

Browse source
This commit is contained in:
Eli Zaretskii 2017-05-19 14:36:43 +03:00
commit 4b04d8a7d5
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/src/emacs-module-tests.el
View file

@ -78,13 +78,11 @@ changes."
(let ((obj (nth 2 body)))
(should (equal (type-of obj) 'module-function))
(should (string-match-p
(rx (or "#<module function Fmod_test_sum from "
;; MS-Windows doesn't allow us to get the
;; function name, only the address.
(and "#<module function at 0x"
(one-or-more hex-digit)
" from "))
(* nonl) "mod-test" (* nonl) ">")
(rx "#<module function "
(or "Fmod_test_sum"
(and "at 0x" (+ hex-digit)))
(? " from " (* nonl) "mod-test" (* nonl) )
">")
(prin1-to-string obj)))))))
;;