From: Noam Postavsky <npostavs@gmail.com>
Date: Thu, 15 Feb 2018 02:31:06 +0000 (-0500)
Subject: ; Add test for iter-lambda variable shadowing (Bug#26073)
X-Git-Tag: emacs-27.0.90~5681
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82379efaaf92e964875c0648b45bcae27b54d213;p=emacs.git

; Add test for iter-lambda variable shadowing (Bug#26073)

* test/lisp/emacs-lisp/generator-tests.el
(iter-lambda-variable-shadowing): New test.
---

diff --git a/test/lisp/emacs-lisp/generator-tests.el b/test/lisp/emacs-lisp/generator-tests.el
index 9bf8413e159..bca3efa550b 100644
--- a/test/lisp/emacs-lisp/generator-tests.el
+++ b/test/lisp/emacs-lisp/generator-tests.el
@@ -292,3 +292,13 @@ identical output.
                                 (i 0)
                                 (j (setq i (1+ i))))
                            (iter-yield i))))))))
+
+(ert-deftest iter-lambda-variable-shadowing ()
+  "`iter-lambda' forms which have local variable shadowing (Bug#26073)."
+  (should (equal (iter-next
+                  (funcall (iter-lambda ()
+                             (let ((it 1))
+                               (iter-yield (funcall
+                                            (lambda (it) (- it))
+                                            (1+ it)))))))
+                 -2)))