From 8e72c8fcfaa8dc04750e374eae455802aed7598f Mon Sep 17 00:00:00 2001 From: Achim Gratz Date: Mon, 2 Jun 2014 21:05:46 +0200 Subject: [PATCH] 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. --- testing/lisp/test-org.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index e95bfcf2d..94dab8ecb 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: [[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)))))) -- 2.11.4.GIT