summaryrefslogtreecommitdiff
path: root/test-org-link-edit.el
diff options
context:
space:
mode:
Diffstat (limited to 'test-org-link-edit.el')
-rw-r--r--test-org-link-edit.el15
1 files changed, 15 insertions, 0 deletions
diff --git a/test-org-link-edit.el b/test-org-link-edit.el
index 9f8a3bd..b88592d 100644
--- a/test-org-link-edit.el
+++ b/test-org-link-edit.el
@@ -545,6 +545,21 @@ website"
(org-link-edit-transport-next-link
'previous (point) (point-max))
(buffer-string))))
+ ;; Transport next link with point on whitespace.
+ (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))))
+ ;; Transported links are allow to have an existing description when
+ ;; point is on whitespace.
+ (should
+ (string= "Here is\[\[http://orgmode.org/\]\[descrption\]\] Org's website "
+ (org-test-with-temp-text
+ "Here is<point> Org's website \[\[http://orgmode.org/\]\[descrption\]\]"
+ (org-link-edit-transport-next-link)
+ (buffer-string))))
;; Fail if point is on a link.
(should-error
(org-test-with-temp-text