aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/ChangeLog5
-rw-r--r--test/automated/eshell.el4
2 files changed, 8 insertions, 1 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index 85119db69f2..82141d75a53 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,8 @@
12013-09-16 Glenn Morris <rgm@gnu.org>
2
3 * automated/eshell.el (eshell-test/for-name-shadow-loop):
4 Test value before and after loop as well as during.
5
12013-09-15 Glenn Morris <rgm@gnu.org> 62013-09-15 Glenn Morris <rgm@gnu.org>
2 7
3 * automated/eshell.el (eshell-test/for-name-shadow-loop): 8 * 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 @@
89(ert-deftest eshell-test/for-name-shadow-loop () ; bug#15372 89(ert-deftest eshell-test/for-name-shadow-loop () ; bug#15372
90 "Test `eshell-command-result' with a for loop using an env-var." 90 "Test `eshell-command-result' with a for loop using an env-var."
91 (let ((process-environment (cons "name=env-value" process-environment))) 91 (let ((process-environment (cons "name=env-value" process-environment)))
92 (should (equal (eshell-test-command-result "echo $name") "env-value"))
92 (should (equal (eshell-test-command-result 93 (should (equal (eshell-test-command-result
93 "for name in 3 { echo $name }") 3)))) 94 "for name in 3 { echo $name }") 3))
95 (should (equal (eshell-test-command-result "echo $name") "env-value"))))
94 96
95(ert-deftest eshell-test/lisp-command-args () 97(ert-deftest eshell-test/lisp-command-args ()
96 "Test `eshell-command-result' with elisp and trailing args. 98 "Test `eshell-command-result' with elisp and trailing args.