emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] org-attach: Fix git annex test directories


From: Erik Hetzner
Subject: [O] [PATCH] org-attach: Fix git annex test directories
Date: Sun, 14 Feb 2016 11:19:55 -0800
User-agent: Wanderlust/2.15.9 (Almost Unreal) SEMI-EPG/1.14.7 (Harue) FLIM/1.14.9 (Gojō) APEL/10.8 EasyPG/1.0.0 Emacs/25.1.50 (x86_64-pc-linux-gnu) MULE/6.0 (HANACHIRUSATO)

* 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.
---
Thanks for bearing with me on getting git-annex to work properly. This fixes an
issue with running tests on debian with older versions of git-annex.

testing/lisp/test-org-attach-annex.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/testing/lisp/test-org-attach-annex.el 
b/testing/lisp/test-org-attach-annex.el
index 44b4ad0..29c5c7a 100644
--- a/testing/lisp/test-org-attach-annex.el
+++ b/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))
-- 
2.5.0





reply via email to

[Prev in Thread] Current Thread [Next in Thread]