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

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

Achim Gratz <Stromeko@nexgo.de> wrote:

> 
> This test is failing again in the latest pre-test version of the pending
> Emacs 24.3 release.  This time it fails on Linux, it used to fail before
> in Emacs 23.3 on Win7.
> 
> 

Ugh - one of "those"...

With the minimal.org-test.el file appended, I get no problems with -q:

,----
| $ emacs -q -l ~/src/minimal.emacs/minimal.org-test.el 
| $ echo $?
| 0
`----

but -batch is another story:

,----
| $ 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'.
| Loading /home/nick/src/emacs/org/org-mode/testing/lisp/test-org.el (source)...
| Running 1 tests (2012-11-27 16:02:29-0500)
| OVERVIEW
| OVERVIEW
| OVERVIEW
| OVERVIEW
| Test test-org/end-of-line backtrace:
|   signal(ert-test-failed (((should (org-test-with-temp-text "* Headlin
|   ert-fail(((should (org-test-with-temp-text "* Headline2 :tag:" (let 
|   (if (unwind-protect (setq value-290 (let ((temp-buffer (generate-new
|   (let (form-description-291) (if (unwind-protect (setq value-290 (let
|   (let ((value-290 (ert--gensym "ert-form-evaluation-aborted-"))) (let
|   (lambda nil (let ((value-284 (ert--gensym "ert-form-evaluation-abort
|   byte-code("\306\307!\x18q\210\310\216\311 \x19\312\216\313\314\315\316\3
|   ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
|   byte-code("\306\307!\211\x18\211\x19r\310\311!q\210\312 d\313\223)L\210)\3
|   ert-run-test([cl-struct-ert-test test-org/end-of-line "Test `org-end
|   ert-run-or-rerun-test([cl-struct-ert--stats test-org/end-of-line [[c
|   ert-run-tests(test-org/end-of-line #[(event-type &rest event-args) "
|   ert-run-tests-batch(test-org/end-of-line)
|   ert-run-tests-batch-and-exit(test-org/end-of-line)
|   eval-buffer(#<buffer  *load*> nil "/home/nick/src/minimal.emacs/mini
|   load-with-code-conversion("/home/nick/src/minimal.emacs/minimal.org-
|   load("/home/nick/src/minimal.emacs/minimal.org-test.el" nil t)
|   command-line-1(("-l" "/home/nick/src/minimal.emacs/minimal.org-test.
|   command-line()
|   normal-top-level()
| Test test-org/end-of-line condition:
|     (ert-test-failed
|      ((should
|        (org-test-with-temp-text "* Headline2 :tag:"
| 	 (let ... ...)))
|       :form
|       (let
| 	  ((temp-buffer ...))
| 	(with-current-buffer temp-buffer
| 	  (unwind-protect ... ...)))
|       :value nil))
|    FAILED  1/1  test-org/end-of-line
| 
| Ran 1 tests, 0 results as expected, 1 unexpected (2012-11-27 16:02:30-0500)
| 
| 1 unexpected results:
|    FAILED  test-org/end-of-line
`----

and 

,----
| $ echo $?
| 1
`----

Double-plus unnice.

Nick

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

(add-to-list 'load-path (expand-file-name "~/src/emacs/org/org-mode/testing/lisp"))
(load-library "test-org")
(ert-run-tests-batch-and-exit 'test-org/end-of-line)
--8<---------------cut here---------------end--------------->8---