diff options
| author | Glenn Morris | 2013-09-16 14:42:41 -0400 |
|---|---|---|
| committer | Glenn Morris | 2013-09-16 14:42:41 -0400 |
| commit | cde40d2bb8adbcd6d797c4d183f8a36a87c6f17b (patch) | |
| tree | 1ac091c840bd25d1e0f70a15d3fd5c4a611dadf5 | |
| parent | 70568a90a17f4ea136d99f0c8eed5088322fb5ed (diff) | |
| download | emacs-cde40d2bb8adbcd6d797c4d183f8a36a87c6f17b.tar.gz emacs-cde40d2bb8adbcd6d797c4d183f8a36a87c6f17b.zip | |
* test/automated/eshell.el (eshell-test/for-name-shadow-loop):
Test value before and after loop as well as during.
| -rw-r--r-- | test/ChangeLog | 5 | ||||
| -rw-r--r-- | test/automated/eshell.el | 4 |
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 @@ | |||
| 1 | 2013-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 | |||
| 1 | 2013-09-15 Glenn Morris <rgm@gnu.org> | 6 | 2013-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. |