mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

test-org.el: Test info link using Emacs info documentation 

* test-org.el (test-org/open-at-point-in-property)
(test-org/open-at-point-in-comment)
(test-org/open-at-point/info): Test info link using Emacs info
documentation.
This commit is contained in:
Bastien Guerry 2014-07-27 15:42:28 +02:00
parent bd93c61084
commit 1f3fefcba5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
testing/lisp/test-org.el
View File

@ -1044,7 +1044,7 @@ drops support for Emacs 24.1 and 24.2."
(org-test-with-temp-text (org-test-with-temp-text
"* Headline "* Headline
:PROPERTIES: :PROPERTIES:
:URL: <point>[[info:org#Top]] :URL: <point>[[info:emacs#Top]]
:END:" :END:"
(org-open-at-point) t))) (org-open-at-point) t)))
@ -1052,14 +1052,14 @@ drops support for Emacs 24.1 and 24.2."
"Does `org-open-at-point' open link in a commented line?" "Does `org-open-at-point' open link in a commented line?"
(should (should
(org-test-with-temp-text (org-test-with-temp-text
"# <point>[[info:org#Top]]" "# <point>[[info:emacs#Top]]"
(org-open-at-point) t))) (org-open-at-point) t)))
(ert-deftest test-org/open-at-point/info () (ert-deftest test-org/open-at-point/info ()
"Test `org-open-at-point' on info links." "Test `org-open-at-point' on info links."
(should (should
(org-test-with-temp-text (org-test-with-temp-text
"<point>[[info:org#Top]]" "<point>[[info:emacs#Top]]"
(org-open-at-point) (org-open-at-point)
(and (switch-to-buffer "*info*") (and (switch-to-buffer "*info*")
(prog1 (prog1