diff options
| author | Yuuki Harano <masm+github@masm11.me> | 2021-03-08 21:20:54 +0900 |
|---|---|---|
| committer | Yuuki Harano <masm+github@masm11.me> | 2021-03-08 21:20:54 +0900 |
| commit | 4dda6db3abf4a67455a007d28e14d62a9909f665 (patch) | |
| tree | 88d4e316e81f5bdd8b6801ff89ea68cd164e4055 /test/lisp/emacs-lisp/cconv-tests.el | |
| parent | 565995d408ca65ec9f981f175cca29d2164a5fd0 (diff) | |
| parent | 432c1aaa80ce109250a93f50858a03ce3d01ca34 (diff) | |
| download | emacs-4dda6db3abf4a67455a007d28e14d62a9909f665.tar.gz emacs-4dda6db3abf4a67455a007d28e14d62a9909f665.tar.bz2 emacs-4dda6db3abf4a67455a007d28e14d62a9909f665.zip | |
Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs into feature/pgtk
Diffstat (limited to 'test/lisp/emacs-lisp/cconv-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/cconv-tests.el | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/test/lisp/emacs-lisp/cconv-tests.el b/test/lisp/emacs-lisp/cconv-tests.el index 517373386e3..5aeed0cc155 100644 --- a/test/lisp/emacs-lisp/cconv-tests.el +++ b/test/lisp/emacs-lisp/cconv-tests.el @@ -182,7 +182,14 @@ (should (eq (cconv-tests-cl-defsubst) 'cl-defsubst-result))) (ert-deftest cconv-convert-lambda-lifted () - "Bug#30872." + ;; Verify that lambda-lifting is actually performed at all. + (should (equal (cconv-closure-convert + '#'(lambda (x) (let ((f #'(lambda () (+ x 1)))) + (funcall f)))) + '#'(lambda (x) (let ((f #'(lambda (x) (+ x 1)))) + (funcall f x))))) + + ;; Bug#30872. (should (equal (funcall (byte-compile |