Sfoglia il codice sorgente

test-org-element.el (test-org-element/org-open-at-point): Add test

* test-org-element.el (test-org-element/org-open-at-point):
Add test.

TINYCHANGE
York Zhao 11 anni fa
parent
commit
b366525077
1 ha cambiato i file con 8 aggiunte e 0 eliminazioni
  1. 8 0
      testing/lisp/test-org-element.el

+ 8 - 0
testing/lisp/test-org-element.el

@@ -1479,6 +1479,14 @@ e^{i\\pi}+1=0
 	    (search-forward "file:")
 	    (org-element-property :type (org-element-context))))))
 
+(ert-deftest test-org-element/org-open-at-point ()
+  "Test `org-open-at-point' with link being a heading property."
+  (org-test-with-temp-text
+   "* Headline
+:PROPERTIES:
+:URL: <point>[[info:org#Top]]
+:END:"
+   (org-open-at-point)))
 
 ;;;; Macro