From cde40d2bb8adbcd6d797c4d183f8a36a87c6f17b Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Mon, 16 Sep 2013 14:42:41 -0400 Subject: [PATCH] * test/automated/eshell.el (eshell-test/for-name-shadow-loop): Test value before and after loop as well as during. --- test/ChangeLog | 5 +++++ test/automated/eshell.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/test/ChangeLog b/test/ChangeLog index 85119db69f2..82141d75a53 100644 --- a/test/ChangeLog +++ b/test/ChangeLog @@ -1,3 +1,8 @@ +2013-09-16 Glenn Morris + + * automated/eshell.el (eshell-test/for-name-shadow-loop): + Test value before and after loop as well as during. + 2013-09-15 Glenn Morris * automated/eshell.el (eshell-test/for-name-shadow-loop): diff --git a/test/automated/eshell.el b/test/automated/eshell.el index 6f7a35371a6..dad494b3238 100644 --- 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. -- 2.11.4.GIT