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
This commit is contained in:
York Zhao 2014-06-01 10:53:19 +02:00 committed by Bastien Guerry
parent c00379dc77
commit b366525077
1 changed files with 8 additions and 0 deletions

View File

@ -1479,6 +1479,14 @@ e^{i\\pi}+1=0
(search-forward "file:") (search-forward "file:")
(org-element-property :type (org-element-context)))))) (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 ;;;; Macro