diff options
| author | Andrea Corallo | 2024-07-09 22:31:34 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2024-07-09 22:44:28 +0200 |
| commit | 57defada883c7b93117246c52a383d417f77c765 (patch) | |
| tree | 2f0353c040c12bd004c0f7fb8004c25b1842b804 /test/src | |
| parent | b9b9322a8e62299a223ff6673ed33de90d513bc4 (diff) | |
| download | emacs-57defada883c7b93117246c52a383d417f77c765.tar.gz emacs-57defada883c7b93117246c52a383d417f77c765.zip | |
* test/src/comp-tests.el (compile-forms): Simplify test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/comp-tests.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el index 60bc1903801..33b127d5d26 100644 --- a/test/src/comp-tests.el +++ b/test/src/comp-tests.el | |||
| @@ -495,8 +495,7 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html." | |||
| 495 | (comp-deftest compile-forms () | 495 | (comp-deftest compile-forms () |
| 496 | "Verify lambda form native compilation." | 496 | "Verify lambda form native compilation." |
| 497 | (should-error (native-compile '(+ 1 foo))) | 497 | (should-error (native-compile '(+ 1 foo))) |
| 498 | (let ((lexical-binding t) | 498 | (let ((f (native-compile '(lambda (x) (1+ x))))) |
| 499 | (f (native-compile '(lambda (x) (1+ x))))) | ||
| 500 | (should (native-comp-function-p f)) | 499 | (should (native-comp-function-p f)) |
| 501 | (should (= (funcall f 2) 3))) | 500 | (should (= (funcall f 2) 3))) |
| 502 | (let* ((lexical-binding nil) | 501 | (let* ((lexical-binding nil) |