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

bc2c0769 · Glenn Morris · 6ad9cb08 · bc2c0769
Commit bc2c0769 authored Sep 13, 2013 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

test/automated/eshell.el test/automated/eshell.el +3 -1

No files found.
--- 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: