From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?UTF-8?q?Sebastian=20Reu=C3=9Fe?= Subject: [PATCH 1/2] Add tests for org-refile-get-targets Date: Mon, 15 May 2017 14:54:54 +0200 Message-ID: <20170515125455.18251-1-seb@wirrsal.net> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60737) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dAFWm-0001ss-7W for emacs-orgmode@gnu.org; Mon, 15 May 2017 08:55:09 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dAFWj-0003vm-5I for emacs-orgmode@gnu.org; Mon, 15 May 2017 08:55:08 -0400 Received: from wirrsal.net ([188.68.36.149]:55962 helo=mail.wirrsal.net) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dAFWi-0003vN-QW for emacs-orgmode@gnu.org; Mon, 15 May 2017 08:55:05 -0400 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" To: emacs-orgmode@gnu.org Cc: =?UTF-8?q?Sebastian=20Reu=C3=9Fe?= * testing/lisp/test-org.el: Add test. --- testing/examples/refile/a.org | 6 ++++++ testing/examples/refile/b.org | 6 ++++++ testing/lisp/test-org.el | 44 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 56 insertions(+) create mode 100644 testing/examples/refile/a.org create mode 100644 testing/examples/refile/b.org diff --git a/testing/examples/refile/a.org b/testing/examples/refile/a.org new file mode 100644 index 000000000..7ed235a52 --- /dev/null +++ b/testing/examples/refile/a.org @@ -0,0 +1,6 @@ +* a/1/1 +** a/1/2 +*** a/1/3 +* a/2/1 +** a/2/2 +*** a/2/3 diff --git a/testing/examples/refile/b.org b/testing/examples/refile/b.org new file mode 100644 index 000000000..15359b16e --- /dev/null +++ b/testing/examples/refile/b.org @@ -0,0 +1,6 @@ +* b/1/1 +** b/1/2 +*** b/1/3 +* b/2/1 +** b/2/2 +*** b/2/3 diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index b8bd88957..81ec378c2 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -6282,6 +6282,50 @@ (ert-deftest test-org/show-set-visibility () (org-show-set-visibility 'minimal) (org-invisible-p2)))) + +;;; org-refile + +(ert-deftest test-org/org-refile-get-targets () + "Test `org-refile-get-targets'." + (save-window-excursion + (let ((examples-dir (file-truename "../examples/refile/"))) + (cd examples-dir) + (find-file-read-only "a.org") + (find-file-read-only "b.org") + (rename-buffer "gratuitous-prefix/b.org") + (let ((org-refile-targets '((("a.org" "b.org") :level . 2))) + (testcases + `((nil . ("a/1/2" + "a/2/2" + "b/1/2" + "b/2/2")) + (file . ("a.org" + "a.org/a\\/1\\/1/a\\/1\\/2" + "a.org/a\\/2\\/1/a\\/2\\/2" + "b.org" + "b.org/b\\/1\\/1/b\\/1\\/2" + "b.org/b\\/2\\/1/b\\/2\\/2")) + (full-file-path . ,(mapcar (lambda (s) (concat examples-dir s)) + '("a.org" + "a.org/a\\/1\\/1/a\\/1\\/2" + "a.org/a\\/2\\/1/a\\/2\\/2" + "b.org" + "b.org/b\\/1\\/1/b\\/1\\/2" + "b.org/b\\/2\\/1/b\\/2\\/2"))) + (buffer-name . ("a.org" + "a.org/a\\/1\\/1/a\\/1\\/2" + "a.org/a\\/2\\/1/a\\/2\\/2" + "gratuitous-prefix/b.org" + "gratuitous-prefix/b.org/b\\/1\\/1/b\\/1\\/2" + "gratuitous-prefix/b.org/b\\/2\\/1/b\\/2\\/2"))))) + (cl-loop for (use-outline-path . expected-targets) in testcases + do (let ((org-refile-use-outline-path use-outline-path)) + (should + (equal + (mapcar #'car + (org-refile-get-targets)) + expected-targets)))))))) + (provide 'test-org) -- 2.13.0