From e5b24b85a25000499186fc3a48f39eed586d5a3f Mon Sep 17 00:00:00 2001 From: Andrea Corallo <akrl@sdf.org> Date: Mon, 11 May 2020 17:29:43 +0100 Subject: [PATCH] * 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. --- 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 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))) -- 2.39.5