From: Andrea Corallo <akrl@sdf.org>
Date: Sat, 22 Feb 2020 10:31:00 +0000 (+0000)
Subject: Fix `comp-tests-free-fun'
X-Git-Tag: emacs-28.0.90~2727^2~820
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3130690882d187a5d6b757fd109c60c84009d973;p=emacs.git

Fix `comp-tests-free-fun'

Address the case were comp-tests.el is byte-compiled.
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 00a40228740..e4b7a066cc0 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -325,10 +325,11 @@ Check that the resulting binaries do not differ."
 
 (ert-deftest comp-tests-free-fun ()
   "Check we are able to compile a single function."
-  (defun comp-tests-free-fun-f ()
-    "Some doc."
-    (interactive)
-    3)
+  (eval '(defun comp-tests-free-fun-f ()
+           "Some doc."
+           (interactive)
+           3)
+        t)
   (load (native-compile #'comp-tests-free-fun-f))
 
   (should (subr-native-elisp-p (symbol-function #'comp-tests-free-fun-f)))