mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 19:07:52 +00:00
org-attach: Prevent test fails on systems without git-annex
* testing/lisp/test-org-attach-annex.el: Move all org-attach tests that use git-annex to this file, which can test for the presence of git-annex. Prevents tests failing on systems where git-annex is not installed.
This commit is contained in:
parent
d846817f9d
commit
a4cfd3343a
|
@ -1,4 +1,4 @@
|
|||
;;; test-org-attach.el --- Tests for Org Attach
|
||||
;;; test-org-annex-attach.el --- Tests for Org Attach with git-annex
|
||||
;;
|
||||
;; Copyright (c) 2016 Erik Hetzner
|
||||
;; Authors: Erik Hetzner
|
||||
|
@ -19,6 +19,7 @@
|
|||
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
;;; Code:
|
||||
(org-test-for-executable "git-annex")
|
||||
(require 'org-attach)
|
||||
(require 'cl-lib)
|
||||
|
||||
|
@ -32,7 +33,6 @@
|
|||
,@body))))
|
||||
|
||||
(ert-deftest test-org-attach/use-annex ()
|
||||
(org-test-for-executable "git-annex")
|
||||
(test-org-attach-annex/with-annex
|
||||
(let ((org-attach-git-annex-cutoff 1))
|
||||
(should (org-attach-use-annex)))
|
||||
|
@ -50,7 +50,6 @@
|
|||
(delete-directory tmpdir 'recursive))))
|
||||
|
||||
(ert-deftest test-org-attach/get-maybe ()
|
||||
(org-test-for-executable "git-annex")
|
||||
(test-org-attach-annex/with-annex
|
||||
(let ((path (expand-file-name "test-file"))
|
||||
(annex-dup (make-temp-file "org-annex-test" t)))
|
||||
|
@ -94,4 +93,4 @@
|
|||
(should (string-equal "hello world\n" (buffer-string))))
|
||||
(should (eq called 'was-called)))))))
|
||||
|
||||
;;; test-org-attach.el ends here
|
||||
;;; test-org-attach-annex.el ends here
|
Loading…
Reference in a new issue