tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

test-org: Attempt to fix failing test on 24.3 pre-release

This commit is contained in:
Nicolas Goaziou 2012-11-28 14:04:21 +01:00
parent 89b8a8ca6d
commit 97508e72dd
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

@ -458,20 +458,20 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/"
(eolp))))
;; At an headline with special movement.
(should
(org-test-with-temp-text "* Headline :tag:"
(org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e t))
(and (progn (org-end-of-line) (looking-at " :tag:"))
(progn (org-end-of-line) (eolp))
(progn (org-end-of-line) (looking-at " :tag:"))))))
;; At an headline without special movement.
(should
(org-test-with-temp-text "* Headline :tag:"
(org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e nil))
(and (progn (org-end-of-line) (eolp))
(progn (org-end-of-line) (eolp))))))
;; At an headline, with reversed movement.
(should
(org-test-with-temp-text "* Headline :tag:"
(org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e 'reversed)
(this-command last-command))
(and (progn (org-end-of-line) (eolp))