mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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.
This commit is contained in:
Erik Hetzner 2016-02-14 11:19:55 -08:00 committed by Achim Gratz
parent ff98903015
commit c56ff1071d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-org-attach-annex.el
View File

@ -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))