procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix bad bytecomp-tests cases

Browse source 
* test/lisp/emacs-lisp/bytecomp-tests.el (bytecomp-tests--test-cases):
Repair broken test cases.
This commit is contained in:
Mattias Engdegård 2023-08-08 12:05:48 +02:00
parent 89bd651976
commit 5ab53729df
1 changed files with 10 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -677,16 +677,18 @@ inner loops respectively."
(list x (funcall g))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let ((x 'a))
(list x (funcall g) (funcall h)))))))
(lambda ()
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let ((x 'a))
(list x (funcall g) (funcall h))))))))
(funcall (funcall f 'b)))
(let ((f (lambda (x)
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let* ((x 'a))
(list x (funcall g) (funcall h)))))))
(lambda ()
(let ((g (lambda () x))
(h (lambda () (setq x (list x x)))))
(let* ((x 'a))
(list x (funcall g) (funcall h))))))))
(funcall (funcall f 'b)))
;; Test constant-propagation of access to captured variables.