emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/native-comp ea35a62 6/6: * test/src/comp-tests.el (comp-tests-do


From: Andrea Corallo
Subject: feature/native-comp ea35a62 6/6: * test/src/comp-tests.el (comp-tests-doc): Update test.
Date: Sat, 29 Aug 2020 10:20:51 -0400 (EDT)

branch: feature/native-comp
commit ea35a62e6e200f00e22828a7d0994ee2a4d2fc6a
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    * test/src/comp-tests.el (comp-tests-doc): Update test.
---
 test/src/comp-tests.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 33b307b..2a078be 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -322,7 +322,9 @@ Check that the resulting binaries do not differ."
 (ert-deftest comp-tests-doc ()
   (should (string= (documentation #'comp-tests-doc-f)
                    "A nice docstring"))
-  (should (string-match "\\.*.eln\\'" (symbol-file #'comp-tests-doc-f))))
+  ;; Check a preloaded function, we can't use `comp-tests-doc-f' now
+  ;; as this is loaded manually with no .elc.
+  (should (string-match "\\.*.elc\\'" (symbol-file #'error))))
 
 (ert-deftest comp-test-interactive-form ()
   (should (equal (interactive-form #'comp-test-interactive-form0-f)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]