From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 11 May 2020 16:29:43 +0000 (+0100)
Subject: * Native compiler test update
X-Git-Tag: emacs-28.0.90~2727^2~641
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5b24b85a25000499186fc3a48f39eed586d5a3f;p=emacs.git

* Native compiler test update

	* test/src/comp-tests.el (comp-tests-lambda-return): Add a test
	verifying that the returned lambda is actually native compiled.
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index ce98227162f..c07c92a1065 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -277,7 +277,9 @@ Check that the resulting binaries do not differ."
   (should (string= (comp-tests-buff0-f) "foo")))
 
 (ert-deftest comp-tests-lambda-return ()
-  (should (= (funcall (comp-tests-lambda-return-f) 3) 4)))
+  (let ((f (comp-tests-lambda-return-f)))
+    (should (subr-native-elisp-p f))
+    (should (= (funcall f 3) 4))))
 
 (ert-deftest comp-tests-recursive ()
   (should (= (comp-tests-fib-f 10) 55)))