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 7859fc5dce709fc45988ebc4a31314dfc18fe45d..8cef1cfa7d0659d49a845fd7999e727213fb9fbc 100644 (file)
--- 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)))))))