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

* test/lisp/emacs-lisp/subr-x-tests.el (subr-x-named-let): New test

Browse source
This commit is contained in:
Stefan Monnier 2021-12-08 16:58:24 -05:00
parent 3a0e0187b7
commit c6bf11c281
1 changed files with 19 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
test/lisp/emacs-lisp/subr-x-tests.el
View file

@ -676,7 +676,7 @@
(buffer-string))
"foo\n")))
(ert-deftest test-add-display-text-property ()
(ert-deftest subr-x-test-add-display-text-property ()
(with-temp-buffer
(insert "Foo bar zot gazonk")
(add-display-text-property 4 8 'height 2.0)
@ -694,5 +694,23 @@
[(raise 0.5) (height 2.0)]))
(should (equal (get-text-property 9 'display) '(raise 0.5)))))
(ert-deftest subr-x-named-let ()
(let ((funs ()))
(named-let loop
((rest '(1 42 3))
(sum 0))
(when rest
;; Here, we make sure that the variables are distinct in every
;; iteration, since a naive tail-call optimization would tend to end up
;; with a single `sum' variable being shared by all the closures.
(push (lambda () sum) funs)
;; Here we add a dummy `sum' variable which shadows the `sum' iteration
;; variable since a naive tail-call optimization could also trip here
;; thinking it can `(setq sum ...)' to set the iteration
;; variable's value.
(let ((sum sum))
(loop (cdr rest) (+ sum (car rest))))))
(should (equal (mapcar #'funcall funs) '(43 1 0)))))
(provide 'subr-x-tests)
;;; subr-x-tests.el ends here