forked from mirrors/org-mode
testing/lisp/test-org: actually check that org-open-at-point did the right thing
* testing/lisp/test-org.el (test-org/open-at-point): The test should leave the cursor one line above "Org Mode Manual" in the "*info*" buffer. Try to switch to that buffer and check that point is where it should be, then kill the buffer.
This commit is contained in:
parent
45f840a6f1
commit
8e72c8fcfa
|
@ -1017,12 +1017,17 @@ drops support for Emacs 24.1 and 24.2."
|
||||||
|
|
||||||
(ert-deftest test-org/open-at-point ()
|
(ert-deftest test-org/open-at-point ()
|
||||||
"Test `org-open-at-point' with link being a heading property."
|
"Test `org-open-at-point' with link being a heading property."
|
||||||
(org-test-with-temp-text
|
(should
|
||||||
"* Headline
|
(org-test-with-temp-text
|
||||||
|
"* Headline
|
||||||
:PROPERTIES:
|
:PROPERTIES:
|
||||||
:URL: <point>[[info:org#Top]]
|
:URL: <point>[[info:org#Top]]
|
||||||
:END:"
|
:END:"
|
||||||
(org-open-at-point)))
|
(org-open-at-point)
|
||||||
|
(and (switch-to-buffer "*info*")
|
||||||
|
(prog1
|
||||||
|
(looking-at "\nOrg Mode Manual")
|
||||||
|
(kill-buffer))))))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue