Commit f0d79d2b authored by Glenn Morris's avatar Glenn Morris
Browse files

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.
parent d801f5a2
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment