From 8cdff0424851104934d3ede09144968f842c1e45 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
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(+)

(limited to 'test-org-link-edit.el')

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 <point>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 <point>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/<point>"
-- 
cgit v1.2.3