1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00

* test/src/comp-tests.el (compile-forms): Simplify test.

This commit is contained in:
Andrea Corallo 2024-07-09 22:31:34 +02:00
parent b9b9322a8e
commit 57defada88

View File

@ -495,8 +495,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
(comp-deftest compile-forms ()
"Verify lambda form native compilation."
(should-error (native-compile '(+ 1 foo)))
(let ((lexical-binding t)
(f (native-compile '(lambda (x) (1+ x)))))
(let ((f (native-compile '(lambda (x) (1+ x)))))
(should (native-comp-function-p f))
(should (= (funcall f 2) 3)))
(let* ((lexical-binding nil)