[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
- [O] [PATCH] org-attach: Fix git annex test directories,
Erik Hetzner <=