[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 45944e0: Fix module tests on some systems
From: |
Philipp Stephani |
Subject: |
[Emacs-diffs] master 45944e0: Fix module tests on some systems |
Date: |
Fri, 19 May 2017 07:30:43 -0400 (EDT) |
branch: master
commit 45944e0183af5b6a2e31248a815fb061f9757eed
Author: Philipp Stephani <address@hidden>
Commit: Philipp Stephani <address@hidden>
Fix module tests on some systems
If dladdr(3) isn't available or didn't work, the printed
representation of a module function will not include the file name,
but only the address. Make the tests pass in that case.
* test/src/emacs-module-tests.el (module-function-object): Fix match for
module function printed representation
---
test/src/emacs-module-tests.el | 12 +++++-------
1 file changed, 5 insertions(+), 7 deletions(-)
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el
index eb7c82b..0f4bfae 100644
--- a/test/src/emacs-module-tests.el
+++ b/test/src/emacs-module-tests.el
@@ -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)))))))
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 45944e0: Fix module tests on some systems,
Philipp Stephani <=