diff options
author | Achim Gratz <Stromeko@Stromeko.DE> | 2014-06-02 21:05:46 +0200 |
---|---|---|
committer | Achim Gratz <Stromeko@Stromeko.DE> | 2014-06-02 21:05:46 +0200 |
commit | 8e72c8fcfaa8dc04750e374eae455802aed7598f (patch) | |
tree | 3457a6afa429641dc74d75981c5d32e4818b4462 | |
parent | 45f840a6f1706ef4fa9a3cc7513f757c4c3ad41d (diff) | |
download | org-mode-8e72c8fcfaa8dc04750e374eae455802aed7598f.tar.gz |
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.
-rw-r--r-- | testing/lisp/test-org.el | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index e95bfcf..94dab8e 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -1017,12 +1017,17 @@ drops support for Emacs 24.1 and 24.2." (ert-deftest test-org/open-at-point () "Test `org-open-at-point' with link being a heading property." - (org-test-with-temp-text - "* Headline + (should + (org-test-with-temp-text + "* Headline :PROPERTIES: :URL: <point>[[info:org#Top]] :END:" - (org-open-at-point))) + (org-open-at-point) + (and (switch-to-buffer "*info*") + (prog1 + (looking-at "\nOrg Mode Manual") + (kill-buffer)))))) |