From mboxrd@z Thu Jan 1 00:00:00 1970 From: Erik Hetzner Subject: [PATCH] org-attach: Fix git annex test directories Date: Sun, 14 Feb 2016 11:19:55 -0800 Message-ID: <56c0d678.68ea420a.ce078.6fdf@mx.google.com> Reply-To: Erik Hetzner Mime-Version: 1.0 (generated by SEMI-EPG 1.14.7 - "Harue") Content-Type: text/plain; charset=US-ASCII Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57195) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aV2Q1-0006NE-CP for emacs-orgmode@gnu.org; Sun, 14 Feb 2016 14:33:18 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aV2Py-0004NJ-6z for emacs-orgmode@gnu.org; Sun, 14 Feb 2016 14:33:17 -0500 Received: from mail-pa0-x236.google.com ([2607:f8b0:400e:c03::236]:34908) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aV2Px-0004NF-Vk for emacs-orgmode@gnu.org; Sun, 14 Feb 2016 14:33:14 -0500 Received: by mail-pa0-x236.google.com with SMTP id ho8so74572989pac.2 for ; Sun, 14 Feb 2016 11:33:13 -0800 (PST) Received: from marut.e6h.org (50-0-83-149.dsl.static.fusionbroadband.com. [50.0.83.149]) by smtp.gmail.com with ESMTPSA id ud8sm33194624pac.11.2016.02.14.11.33.12 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Sun, 14 Feb 2016 11:33:12 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * 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