emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [PATCH 1/2] Add tests for org-refile-get-targets
@ 2017-05-15 12:54 Sebastian Reuße
  2017-05-15 12:54 ` [PATCH 2/2] org-refile: Fix inconsistency when listing refile targets Sebastian Reuße
  2017-05-15 16:38 ` [PATCH 1/2] Add tests for org-refile-get-targets Nicolas Goaziou
  0 siblings, 2 replies; 15+ messages in thread
From: Sebastian Reuße @ 2017-05-15 12:54 UTC (permalink / raw)
  To: emacs-orgmode; +Cc: Sebastian Reuße

* 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))))
 
+\f
+;;; 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

^ permalink raw reply related	[flat|nested] 15+ messages in thread

end of thread, other threads:[~2017-07-07  6:55 UTC | newest]

Thread overview: 15+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2017-05-15 12:54 [PATCH 1/2] Add tests for org-refile-get-targets Sebastian Reuße
2017-05-15 12:54 ` [PATCH 2/2] org-refile: Fix inconsistency when listing refile targets Sebastian Reuße
2017-05-17 12:54   ` Nicolas Goaziou
2017-06-21  7:05   ` Allen Li
2017-06-21  7:55     ` Sebastian Reuße
2017-06-21  8:01       ` Allen Li
2017-06-28 22:03         ` Allen Li
2017-07-03  6:44           ` Nicolas Goaziou
2017-07-07  6:55             ` Allen Li
2017-05-15 16:38 ` [PATCH 1/2] Add tests for org-refile-get-targets Nicolas Goaziou
2017-05-17 18:43   ` Sebastian Reuße
2017-05-22  0:38     ` Nicolas Goaziou
2017-05-22  6:46       ` Sebastian Reuße
2017-05-22  6:55         ` Nicolas Goaziou
2017-05-17 18:44   ` [PATCH] " Sebastian Reuße

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).