Browse Source

org-attach: Fix git annex test directories

* testing/lisp/test-org-attach-annex.el: `default-directory' should end
  in a slash to function properly. This was causing test failures on
  older versions of git-annex.
Erik Hetzner 9 years ago
parent
commit
c56ff1071d
1 changed files with 3 additions and 3 deletions
  1. 3 3
      testing/lisp/test-org-attach-annex.el

+ 3 - 3
testing/lisp/test-org-attach-annex.el

@@ -24,7 +24,7 @@
 (require 'cl-lib)
 
 (defmacro test-org-attach-annex/with-annex (&rest body)
-  `(let ((tmpdir (make-temp-file "org-annex-test" t)))
+  `(let ((tmpdir (make-temp-file "org-annex-test" t "/")))
      (unwind-protect
 	 (let ((default-directory tmpdir)
 	       (org-attach-directory tmpdir))
@@ -41,7 +41,7 @@
      (should-not (org-attach-use-annex))))
 
   ;; test with non annex directory
-  (let ((tmpdir (make-temp-file "org-annex-test" t)))
+  (let ((tmpdir (make-temp-file "org-annex-test" t "/")))
      (unwind-protect
 	 (let ((default-directory tmpdir)
 	       (org-attach-directory tmpdir))
@@ -52,7 +52,7 @@
 (ert-deftest test-org-attach/get-maybe ()
   (test-org-attach-annex/with-annex
    (let ((path (expand-file-name "test-file"))
-	 (annex-dup (make-temp-file "org-annex-test" t)))
+	 (annex-dup (make-temp-file "org-annex-test" t "/")))
      (with-temp-buffer
        (insert "hello world\n")
        (write-file path))