From: Andrea Corallo <andrea_corallo@yahoo.it>
Date: Sun, 30 Jun 2019 19:01:28 +0000 (+0200)
Subject: add comp-tests-ffuncall-lambda-f test
X-Git-Tag: emacs-28.0.90~2727^2~1407
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fac313889774e5e4867788d6f2c58595e8e1604b;p=emacs.git

add comp-tests-ffuncall-lambda-f test
---

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 42e10ba5114..7bd4ddf01ca 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -179,7 +179,17 @@
   (byte-compile #'comp-tests-ffuncall-apply-many-f)
   (native-compile #'comp-tests-ffuncall-apply-many-f)
 
-  (should (equal (comp-tests-ffuncall-apply-many-f '(1 2 3)) '(1 2 3))))
+  (should (equal (comp-tests-ffuncall-apply-many-f '(1 2 3)) '(1 2 3)))
+
+  (defun comp-tests-ffuncall-lambda-f (x)
+    (let ((fun (lambda (x)
+                 (1+ x))))
+      (funcall fun x)))
+
+  (byte-compile #'comp-tests-ffuncall-lambda-f)
+  (native-compile #'comp-tests-ffuncall-lambda-f)
+
+  (should (= (comp-tests-ffuncall-lambda-f 1) 2)))
 
 (ert-deftest  comp-tests-conditionals ()
   "Testing conditionals."