From: Glenn Morris <rgm@gnu.org>
Date: Fri, 13 Sep 2013 16:16:57 +0000 (-0700)
Subject: * test/automated/eshell.el (eshell-test-command-result): Clean up when done
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1636
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc2c0769db73f5acd7545b4c3f74cae29e4e4315;p=emacs.git

* test/automated/eshell.el (eshell-test-command-result): Clean up when done
---

diff --git a/test/automated/eshell.el b/test/automated/eshell.el
index d5ebc567281..f9061ceb57c 100644
--- a/test/automated/eshell.el
+++ b/test/automated/eshell.el
@@ -60,7 +60,9 @@
   "Like `eshell-command-result', but not using HOME."
   (let ((eshell-directory-name (make-temp-file "eshell" t))
         (eshell-history-file-name nil))
-    (eshell-command-result command)))
+    (unwind-protect
+        (eshell-command-result command)
+      (delete-directory eshell-directory-name t))))
 
 ;;; Tests: