[Emacs-diffs] trunk r114273: * test/automated/eshell.el (eshell-test-command-result): Clean up when done

[Glenn Morris]

------------------------------------------------------------
revno: 114273
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-13 09:16:57 -0700
message:
  * test/automated/eshell.el (eshell-test-command-result): Clean up when done
modified:
  test/automated/eshell.el       eshtest.el-20091113204419-o5vbwnq5f7feedwu-1875

=== modified file 'test/automated/eshell.el'
--- a/test/automated/eshell.el  2013-09-13 16:11:19 +0000
+++ b/test/automated/eshell.el  2013-09-13 16:16:57 +0000
@@ -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: