From 89b5a8283375f83b8f0e174a3a8760158b99be6e Mon Sep 17 00:00:00 2001
From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 6 May 2017 23:00:34 +0300
Subject: [PATCH] Fix last change for MS-Windows

* test/src/emacs-module-tests.el (module-function-object): Port to
MS-Windows.
---
 test/src/emacs-module-tests.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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)))))))
 
-- 
2.39.2