Fix with-todo-test

* test/lisp/calendar/todo-mode-tests.el (with-todo-test):
HOME should be a directory, not a file.  Delete it when finished.
This commit is contained in:
Glenn Morris 2017-06-02 13:14:44 -04:00
parent d801f5a2cf
commit f0d79d2b8d

View file

@ -44,13 +44,15 @@
(defmacro with-todo-test (&rest body)
"Set up an isolated todo-mode test environment."
`(let* ((todo-test-home (make-temp-file "todo-test-home-"))
`(let* ((todo-test-home (make-temp-file "todo-test-home-" t))
(process-environment (cons (format "HOME=%s" todo-test-home)
process-environment))
(todo-directory todo-test-data-dir)
(todo-default-todo-file (todo-short-file-name
(car (funcall todo-files-function)))))
,@body))
(unwind-protect
(progn ,@body)
(delete-directory todo-test-home t))))
;; (defun todo-test-show (num &optional archive)
;; "Display category NUM of test todo file.