From ae8e918c873febd58abfc332ebf8f59448e8fff4 Mon Sep 17 00:00:00 2001
From: Kyle Meyer <kyle@kyleam.com>
Date: Fri, 3 Mar 2017 00:10:00 -0500
Subject: Add a separate function for testing if point is on a link

The slurping and barfing commands are interested in point being on a
link, so it is sufficient for them to use org-link-edit--get-link-data
and get a user-error when point is not on a link.  But an upcoming
command will want to know that point is _not_ in a link.
---
 test-org-link-edit.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

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

diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index 893cec5..4f006e7 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -513,6 +513,28 @@ website"
 
 ;;; Other
 
+(ert-deftest test-org-link-edit/on-link-p ()
+  "Test `org-link-edit--on-link-p'."
+  ;; On plain link
+  (should
+   (org-test-with-temp-text "http://orgmode.org/"
+     (org-link-edit--on-link-p)))
+  ;; On bracket link
+  (should
+   (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\]"
+     (org-link-edit--on-link-p)))
+  ;; Point beyond link, but technically still within link element.
+  (should
+   (org-test-with-temp-text "\[\[http://orgmode.org/\]\[org\]\] <point>"
+     (org-link-edit--on-link-p)))
+  ;; Not on a link
+  (should-not
+   (org-test-with-temp-text " \[\[http://orgmode.org/\]\[org\]\]"
+     (org-link-edit--on-link-p)))
+  (should-not
+   (org-test-with-temp-text "not a link"
+     (org-link-edit--on-link-p))))
+
 (ert-deftest test-org-link-edit/get-link-data ()
   "Test `org-link-edit--link-data'."
   ;; Plain link
-- 
cgit v1.2.3