Nick Dokos <nicholas.do...@hp.com> wrote:
> Achim Gratz <strom...@nexgo.de> wrote:
>
> >=20
> > This test is failing again in the latest pre-test version of the pending
> > Emacs=C2=A024.3 release. This time it fails on Linux, it used to fail be=
> fore
> > in Emacs=C2=A023.3 on Win7.
> >=20
> >=20
>
> Ugh - one of "those"...
>
Adding a \n at the end of the headline lets the test pass I think:
,----
| $ emacs -batch -l ~/src/minimal.emacs/minimal.org-test.el
| Loading /home/nick/src/emacs/org/org-mode/lisp/org-loaddefs.el (source)...
| Loading /home/nick/src/emacs/org/org-mode/testing/org-test.el (source)...
| `labels' is an obsolete macro (as of 24.3); use `cl-labels' instead.
| `flet' is an obsolete macro (as of 24.3); Use either `cl-flet' or `cl-letf'.
| `flet' is an obsolete macro (as of 24.3); Use either `cl-flet' or `cl-letf'.
| `flet' is an obsolete macro (as of 24.3); Use either `cl-flet' or `cl-letf'.
| OVERVIEW
| FOO
| 18
| Ran 1 tests, 1 results were as expected
`----
Nick
PS. FOO and 18 are debugging things - see the new minimal.org-test.el file
below:
--8<---------------cut here---------------start------------->8---
;;; -*- mode: emacs-lisp -*-
;;; constant part
(add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/lisp"))
(add-to-list 'load-path (expand-file-name
"~/src/emacs/org/org-mode/contrib/lisp"))
(add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
(require 'org)
(setq debug-on-error t)
(setq debug-on-quit t)
(setq eval-expression-print-length nil)
(setq eval-expression-print-level nil)
(global-set-key "\C-cl" 'org-store-link)
(global-set-key "\C-ca" 'org-agenda)
(add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/testing"))
(load-library "org-test")
(ert-deftest test-org/end-of-line ()
"Test `org-end-of-line' specifications."
;; At an headline without special movement.
(should
(org-test-with-temp-text "* Headline2 :tag:\n"
(let ((org-special-ctrl-a/e nil))
(and (progn (message "FOO") (org-end-of-line) (message (format "%d"
(point))) (eolp))
(progn (org-end-of-line) (eolp))))))
)
(ert 'test-org/end-of-line)
--8<---------------cut here---------------end--------------->8---
Without the \n, (point) was returning 1 in the batch case (?!?)
