diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-20 21:59:50 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-05-20 21:59:50 +0200 |
commit | 0a98500363f711d0b7d873ad64490b549ce72725 (patch) | |
tree | 82f3d613c6c7b530c12ef1c31e7e544882a1de70 | |
parent | 2d846210eb8e5c99e1e32c58cdde268332e58ad3 (diff) | |
download | org-mode-0a98500363f711d0b7d873ad64490b549ce72725.tar.gz |
Fix `org-open-at-point' tests
* testing/lisp/test-org.el (test-org/open-at-point-in-keyword):
(test-org/open-at-point-in-property):
(test-org/open-at-point-in-comment):
(test-org/open-at-point/inline-image): Simplify tests so as to not rely
on info.
(test-org/open-at-point/info): Remove test as it fails on the build bot.
-rw-r--r-- | testing/lisp/test-org.el | 22 |
1 files changed, 5 insertions, 17 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index adaa441..effb012 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -2062,7 +2062,7 @@ drops support for Emacs 24.1 and 24.2." "Does `org-open-at-point' open link in a keyword line?" (should (org-test-with-temp-text - "#+KEYWORD: <point>[[info:emacs#Top]]" + "<<top>>\n#+KEYWORD: <point>[[top]]" (org-open-at-point) t))) (ert-deftest test-org/open-at-point-in-property () @@ -2071,7 +2071,7 @@ drops support for Emacs 24.1 and 24.2." (org-test-with-temp-text "* Headline :PROPERTIES: -:URL: <point>[[info:emacs#Top]] +:URL: <point>[[*Headline]] :END:" (org-open-at-point) t))) @@ -2079,27 +2079,15 @@ drops support for Emacs 24.1 and 24.2." "Does `org-open-at-point' open link in a commented line?" (should (org-test-with-temp-text - "# <point>[[info:emacs#Top]]" + "<<top>>\n# <point>[[top]]" (org-open-at-point) t))) -(ert-deftest test-org/open-at-point/info () - "Test `org-open-at-point' on info links." - (should - (org-test-with-temp-text - "<point>[[info:emacs#Top]]" - (org-open-at-point) - (and (switch-to-buffer "*info*") - (prog1 - (looking-at "\nThe Emacs Editor") - (kill-buffer)))))) - (ert-deftest test-org/open-at-point/inline-image () "Test `org-open-at-point' on nested links." (should - (org-test-with-temp-text "[[info:org#Top][info:<point>emacs#Top]]" + (org-test-with-temp-text "<<top>>\n[[top][file:<point>unicorn.jpg]]" (org-open-at-point) - (prog1 (with-current-buffer "*info*" (looking-at "\nOrg Mode Manual")) - (kill-buffer "*info*"))))) + (bobp)))) (ert-deftest test-org/open-at-point/radio-target () "Test `org-open-at-point' on radio targets." |