* test/automated/eshell.el (eshell-test/for-name-shadow-loop):

Test value before and after loop as well as during.

diff --git a/test/ChangeLog b/test/ChangeLog
index 85119db69f2201ba72b4cd19360e4ec2475035af..82141d75a531878a5be2c743fd0f4c1021d9dcd8 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
+2013-09-16  Glenn Morris  <rgm@gnu.org>
+
+       * automated/eshell.el (eshell-test/for-name-shadow-loop):
+       Test value before and after loop as well as during.
+
 2013-09-15  Glenn Morris  <rgm@gnu.org>
 
        * automated/eshell.el (eshell-test/for-name-shadow-loop):

diff --git a/test/automated/eshell.el b/test/automated/eshell.el
index 6f7a35371a64ac85605e7ef053e9d58ae32a8a60..dad494b323892e2a546f1c9ae82d78054c0faa1c 100644 (file)
--- a/test/automated/eshell.el
+++ b/test/automated/eshell.el
@@ -89,8 +89,10 @@
 (ert-deftest eshell-test/for-name-shadow-loop () ; bug#15372
   "Test `eshell-command-result' with a for loop using an env-var."
   (let ((process-environment (cons "name=env-value" process-environment)))
+    (should (equal (eshell-test-command-result "echo $name") "env-value"))
     (should (equal (eshell-test-command-result
-                    "for name in 3 { echo $name }") 3))))
+                    "for name in 3 { echo $name }") 3))
+    (should (equal (eshell-test-command-result "echo $name") "env-value"))))
 
 (ert-deftest eshell-test/lisp-command-args ()
   "Test `eshell-command-result' with elisp and trailing args.