[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 0373bb8 1/5: * Fix two tests in help-fns-tests.el fo
From: |
Andrea Corallo |
Subject: |
feature/native-comp 0373bb8 1/5: * Fix two tests in help-fns-tests.el for native code |
Date: |
Sun, 4 Oct 2020 13:54:33 -0400 (EDT) |
branch: feature/native-comp
commit 0373bb838a032f97ae9317546e3b0117b97055a8
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* Fix two tests in help-fns-tests.el for native code
* test/lisp/help-fns-tests.el (help-fns-test-lisp-defun)
(help-fns-test-lisp-defsubst): Fix description string
for native compiled functions.
---
test/lisp/help-fns-tests.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 811b367..2f6abfb 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -61,12 +61,16 @@ Return first line of the output of (describe-function-1
FUNC)."
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defun ()
- (let ((regexp "a compiled Lisp function in .subr\\.el")
+ (let ((regexp (if (boundp 'comp-ctxt)
+ "a native compiled Lisp function in .subr\\.el"
+ "a compiled Lisp function in .subr\\.el"))
(result (help-fns-tests--describe-function 'last)))
(should (string-match regexp result))))
(ert-deftest help-fns-test-lisp-defsubst ()
- (let ((regexp "a compiled Lisp function in .subr\\.el")
+ (let ((regexp (if (boundp 'comp-ctxt)
+ "a native compiled Lisp function in .subr\\.el"
+ "a compiled Lisp function in .subr\\.el"))
(result (help-fns-tests--describe-function 'posn-window)))
(should (string-match regexp result))))