From 8cdff0424851104934d3ede09144968f842c1e45 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Fri, 5 May 2017 19:28:42 -0400 Subject: tests/transport-next-link: Describe test cases --- test-org-link-edit.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/test-org-link-edit.el b/test-org-link-edit.el index bf3435b..44d7204 100644 --- a/test-org-link-edit.el +++ b/test-org-link-edit.el @@ -515,18 +515,21 @@ website" (ert-deftest test-org-link-edit/transport-next-link () "Test `org-link-edit-transport-next-link'." + ;; Transport next link to word at point. (should (string= "Here is \[\[http://orgmode.org/\]\[Org's\]\] website " (org-test-with-temp-text "Here is Org's website http://orgmode.org/" (org-link-edit-transport-next-link) (buffer-string)))) + ;; Transport previous link to word at point. (should (string= " Here is \[\[http://orgmode.org/\]\[Org's\]\] website" (org-test-with-temp-text "http://orgmode.org/ Here is Org's website" (org-link-edit-transport-next-link 'previous) (buffer-string)))) + ;; Transport next link to the active region. (should (string= "\[\[http://orgmode.org/\]\[Here is Org's\]\] website " (org-test-with-temp-text @@ -534,6 +537,7 @@ website" (org-link-edit-transport-next-link nil (point-min) (point)) (buffer-string)))) + ;; Transport previous link to the active region. (should (string= " Here is \[\[http://orgmode.org/\]\[Org's website\]\]" (org-test-with-temp-text @@ -541,6 +545,7 @@ website" (org-link-edit-transport-next-link 'previous (point) (point-max)) (buffer-string)))) + ;; Fail if point is on a link. (should-error (org-test-with-temp-text "Here is Org's website http://orgmode.org/" -- cgit v1.2.3