From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 6 May 2017 20:00:34 +0000 (+0300)
Subject: Fix last change for MS-Windows
X-Git-Tag: emacs-26.0.90~521^2~452
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=89b5a8283375f83b8f0e174a3a8760158b99be6e;p=emacs.git

Fix last change for MS-Windows

* test/src/emacs-module-tests.el (module-function-object): Port to
MS-Windows.
---

diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index 7859fc5dce7..8cef1cfa7d0 100644
--- a/test/src/emacs-module-tests.el
+++ b/test/src/emacs-module-tests.el
@@ -78,7 +78,12 @@ changes."
       (let ((obj (nth 2 body)))
         (should (equal (type-of obj) 'module-function))
         (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) ">")
                  (prin1-to-string obj)))))))