ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki 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)))) (eolp))))
;; At an headline with special movement. ;; At an headline with special movement.
(should (should
(org-test-with-temp-text "* Headline :tag:" (org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e t)) (let ((org-special-ctrl-a/e t))
(and (progn (org-end-of-line) (looking-at " :tag:")) (and (progn (org-end-of-line) (looking-at " :tag:"))
(progn (org-end-of-line) (eolp)) (progn (org-end-of-line) (eolp))
(progn (org-end-of-line) (looking-at " :tag:")))))) (progn (org-end-of-line) (looking-at " :tag:"))))))
;; At an headline without special movement. ;; At an headline without special movement.
(should (should
(org-test-with-temp-text "* Headline :tag:" (org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e nil)) (let ((org-special-ctrl-a/e nil))
(and (progn (org-end-of-line) (eolp)) (and (progn (org-end-of-line) (eolp))
(progn (org-end-of-line) (eolp)))))) (progn (org-end-of-line) (eolp))))))
;; At an headline, with reversed movement. ;; At an headline, with reversed movement.
(should (should
(org-test-with-temp-text "* Headline :tag:" (org-test-with-temp-text "* Headline :tag:\n"
(let ((org-special-ctrl-a/e 'reversed) (let ((org-special-ctrl-a/e 'reversed)
(this-command last-command)) (this-command last-command))
(and (progn (org-end-of-line) (eolp)) (and (progn (org-end-of-line) (eolp))