Achim Gratz <strom...@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!q\210\310\216\311 \312\216\313\314\315\316\3
| ert--run-test-internal([cl-struct-ert--test-execution-info [cl-struc
| byte-code("\306\307!\211\211r\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---
