Re: FAILED test-org/end-of-line

[Nick Dokos <nicholas.dokos@hp.com>]

Nick Dokos <nicholas.dokos@hp.com> wrote:

> Achim Gratz <Stromeko@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 (?!?)