add comp-tests-ffuncall-lambda-f test

1 files changed, 11 insertions, 1 deletions

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."