From fac313889774e5e4867788d6f2c58595e8e1604b Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Sun, 30 Jun 2019 21:01:28 +0200 Subject: [PATCH] add comp-tests-ffuncall-lambda-f test --- test/src/comp-tests.el | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) 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." -- 2.39.5