diff options
author | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-28 16:51:47 +0100 |
---|---|---|
committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2012-11-28 16:51:47 +0100 |
commit | f3a251520534d84b1e783c6390f9fac83ab36dc2 (patch) | |
tree | 4f291c9d4fb88488ffc6ca58a289e83622bfd80d | |
parent | 97508e72dda9b26a0412c4339bc6b32709e58add (diff) | |
download | org-mode-f3a251520534d84b1e783c6390f9fac83ab36dc2.tar.gz |
test-org: Disambiguate tests for `org-end-of-line'.
-rw-r--r-- | testing/lisp/test-org.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 50a000b..6402447 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -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:\n" + (org-test-with-temp-text "* Headline1 :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:\n" + (org-test-with-temp-text "* Headline2 :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:\n" + (org-test-with-temp-text "* Headline3 :tag:\n" (let ((org-special-ctrl-a/e 'reversed) (this-command last-command)) (and (progn (org-end-of-line) (eolp)) |