[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [O] FAILED test-org/end-of-line

From: Nick Dokos
Subject: Re: [O] FAILED test-org/end-of-line
Date: Tue, 27 Nov 2012 16:47:08 -0500

Nick Dokos <address@hidden> wrote:

> Achim Gratz <address@hidden> 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'.
| 18
| Ran 1 tests, 1 results were as expected


PS. FOO and 18 are debugging things - see the new minimal.org-test.el file 

--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 

(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.
   (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 (?!?)

reply via email to

[Prev in Thread] Current Thread [Next in Thread]