[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r114276: * test/automated/eshell.el (eshell-test/for
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] trunk r114276: * test/automated/eshell.el (eshell-test/for-loop, eshell-test/for-name-loop): |
Date: |
Fri, 13 Sep 2013 17:13:56 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 114276
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-13 13:13:52 -0400
message:
* test/automated/eshell.el (eshell-test/for-loop, eshell-test/for-name-loop):
Ensure environment variables don't confuse us.
modified:
test/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-8588
test/automated/eshell.el eshtest.el-20091113204419-o5vbwnq5f7feedwu-1875
=== modified file 'test/ChangeLog'
--- a/test/ChangeLog 2013-09-13 16:11:19 +0000
+++ b/test/ChangeLog 2013-09-13 17:13:52 +0000
@@ -4,6 +4,8 @@
Use a temp directory for eshell-directory-name.
(eshell-test-command-result): New, again using a temp directory.
Replace eshell-command-result with this throughout.
+ (eshell-test/for-loop, eshell-test/for-name-loop):
+ Ensure environment variables don't confuse us.
2013-09-12 Glenn Morris <address@hidden>
=== modified file 'test/automated/eshell.el'
--- a/test/automated/eshell.el 2013-09-13 16:16:57 +0000
+++ b/test/automated/eshell.el 2013-09-13 17:13:52 +0000
@@ -76,11 +76,15 @@
(ert-deftest eshell-test/for-loop ()
"Test `eshell-command-result' with an elisp command."
- (should (equal (eshell-test-command-result "for foo in 5 { echo $foo }") 5)))
+ (let ((process-environment (cons "foo" process-environment)))
+ (should (equal (eshell-test-command-result
+ "for foo in 5 { echo $foo }") 5))))
(ert-deftest eshell-test/for-name-loop () ;Bug#15231
"Test `eshell-command-result' with an elisp command."
- (should (equal (eshell-test-command-result "for name in 3 { echo $name }")
3)))
+ (let ((process-environment (cons "name" process-environment)))
+ (should (equal (eshell-test-command-result
+ "for name in 3 { echo $name }") 3))))
(ert-deftest eshell-test/lisp-command-args ()
"Test `eshell-command-result' with elisp and trailing args.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r114276: * test/automated/eshell.el (eshell-test/for-loop, eshell-test/for-name-loop):,
Glenn Morris <=