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:
parent
b9b9322a8e
commit
57defada88
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user