From: Stephen Berman <stephen.berman@gmx.net>
To: Dmitry Gutov <dgutov@yandex.ru>
Cc: Glenn Morris <rgm@gnu.org>, Lars Ingebrigtsen <larsi@gnus.org>,
43004@debbugs.gnu.org
Subject: bug#43004: 28.0.50; Test failures due to symlinked Emacs sources
Date: Sat, 31 Oct 2020 22:30:48 +0100 [thread overview]
Message-ID: <87pn4yqe0n.fsf@gmx.net> (raw)
In-Reply-To: <3a490fed-c53e-eabe-34a6-427833a71c45@yandex.ru> (Dmitry Gutov's message of "Sat, 31 Oct 2020 03:39:12 +0200")
[-- Attachment #1: Type: text/plain, Size: 1533 bytes --]
On Sat, 31 Oct 2020 03:39:12 +0200 Dmitry Gutov <dgutov@yandex.ru> wrote:
> On 30.10.2020 23:26, Stephen Berman wrote:
>> That's what I did in my patch in<87r1pyz27k.fsf@gmx.net>
>> (https://debbugs.gnu.org/cgi/bugreport.cgi?msg=11;att=1;bug=43004) and
>> initially concluded that with that patch "I now get no unexpected
>> failures when running the tests in batch mode, though when run
>> interactively xref-elisp-test-find-defs-defgeneric-implicit-generic
>> still fails."
>
> But looking at that patch, you moved some of the 'file-truename' calls, at
> least, down inside the test definitions, to produce the "expected" values.
>
> What happens if you just remove that 'file-truename' call without adding it
> somewhere else?
With just that change, a batch run started in the test subdirectory of
the emacs sources symlinked from my home directory gives:
5 unexpected results:
FAILED xref-elisp-test-find-defs-constructor
FAILED xref-elisp-test-find-defs-defalias-defun-el
FAILED xref-elisp-test-find-defs-defgeneric-el
FAILED xref-elisp-test-find-defs-defun-el-defvar-c
FAILED xref-elisp-test-find-defs-face-el
A batch run started in the non-symlinked test subdirectory gives:
5 unexpected results:
FAILED xref-elisp-test-find-defs-defgeneric-el
FAILED xref-elisp-test-find-defs-defun-defvar-el
FAILED xref-elisp-test-find-defs-defun-el
FAILED xref-elisp-test-find-defs-defvar-el
FAILED xref-elisp-test-find-defs-feature-el
Full output of the batch runs is attached.
Steve Berman
[-- Attachment #2: ert batch output --]
[-- Type: text/plain, Size: 29665 bytes --]
steve [ ~/src/emacs/emacs-master/test/lisp/progmodes ]$ emacs-master -batch -l ert -l elisp-mode-tests.el -f ert-run-tests-batch-and-exit
Running 46 tests (2020-10-31 22:19:26+0100, selector ‘t’)
passed 1/46 elisp--highlight-function-argument-indexed (0.000136 sec)
passed 2/46 elisp--highlight-function-argument-keyed-1 (0.000197 sec)
passed 3/46 elisp--highlight-function-argument-keyed-2 (0.000172 sec)
passed 4/46 elisp--preceding-sexp--char-name (0.000107 sec)
passed 5/46 elisp-completes-anything-quoted (0.010651 sec)
passed 6/46 elisp-completes-functions (0.001088 sec)
passed 7/46 elisp-completes-functions-after-hash-quote (0.000037 sec)
passed 8/46 elisp-completes-functions-after-let-bindings (0.001059 sec)
passed 9/46 elisp-completes-functions-in-special-macros (0.002027 sec)
passed 10/46 elisp-completes-local-variables (0.001054 sec)
passed 11/46 elisp-completes-variables (0.001045 sec)
passed 12/46 elisp-completes-variables-unquoted (0.003028 sec)
passed 13/46 elisp-completest-variables-in-let-bindings (0.002004 sec)
Indenting region...
Indenting region...done
passed 14/46 elisp-indent-basic (0.000256 sec)
passed 15/46 eval-last-sexp-print-format-large-int (0.000116 sec)
skipped 16/46 eval-last-sexp-print-format-large-int-echo (0.000109 sec)
passed 17/46 eval-last-sexp-print-format-small-int (0.000089 sec)
skipped 18/46 eval-last-sexp-print-format-small-int-echo (0.000073 sec)
passed 19/46 eval-last-sexp-print-format-sym (0.000059 sec)
skipped 20/46 eval-last-sexp-print-format-sym-echo (0.000076 sec)
Test xref-elisp-test-find-defs-constructor backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-5ad7e8>) ((#<xref-item xr
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (t) nil (let ((find-file-suppress-same-file-warnings t)) (x
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-constructor
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-constructor condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(cl-defstruct (xref-elisp-location (:constructor xref-make-elisp-location)))" 1 13 ... 14 34 ...)
#s(xref-elisp-location xref-elisp-location define-type "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el"))
#s(xref-item "(cl-defstruct (xref-elisp-location (:constructor xref-make-elisp-location)))" #s(xref-elisp-location xref-elisp-location define-type "/home/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 67 63 "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el" "/home/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el" first-mismatch-at 1)))))
FAILED 21/46 xref-elisp-test-find-defs-constructor (0.004539 sec)
Test xref-elisp-test-find-defs-defalias-defun-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-4c1df2> #<xref-item xref-
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (t) nil (let ((find-file-suppress-same-file-warnings t)) (x
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defalias-de
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defalias-defun-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defalias Buffer-menu-sort)" 1 9 ... 10 26 ...)
#s(xref-elisp-location Buffer-menu-sort defalias "/datadisk/steve/src/emacs/emacs-master/lisp/buff-menu.elc"))
#s(xref-item "(defalias Buffer-menu-sort)" #s(xref-elisp-location Buffer-menu-sort defalias "/home/steve/src/emacs/emacs-master/lisp/buff-menu.elc")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 57 53 "/datadisk/steve/src/emacs/emacs-master/lisp/buff-menu.elc" "/home/steve/src/emacs/emacs-master/lisp/buff-menu.elc" first-mismatch-at 1)))))
FAILED 22/46 xref-elisp-test-find-defs-defalias-defun-el (0.000506 sec)
passed 23/46 xref-elisp-test-find-defs-defgeneric-co-located-default (0.015220 sec)
Test xref-elisp-test-find-defs-defgeneric-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-4d2930> #<xref-item xref-
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defgeneric-
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defgeneric-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(cl-defmethod xref-location-marker ((l xref-elisp-location)))" 1 13 ... 14 34 ...)
#s(xref-elisp-location ... cl-defmethod "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el"))
#s(xref-item "(cl-defmethod xref-location-marker ((l xref-elisp-location)))" #s(xref-elisp-location ... cl-defmethod "/home/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 67 63 "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el" "/home/steve/src/emacs/emacs-master/lisp/progmodes/elisp-mode.el" first-mismatch-at 1)))))
FAILED 24/46 xref-elisp-test-find-defs-defgeneric-el (0.007537 sec)
passed 25/46 xref-elisp-test-find-defs-defgeneric-eval (0.000135 sec)
passed 26/46 xref-elisp-test-find-defs-defgeneric-implicit-generic (0.001208 sec)
passed 27/46 xref-elisp-test-find-defs-defgeneric-no-default (0.001076 sec)
passed 28/46 xref-elisp-test-find-defs-defgeneric-no-methods (0.000736 sec)
passed 29/46 xref-elisp-test-find-defs-defgeneric-separate-default (0.002073 sec)
passed 30/46 xref-elisp-test-find-defs-define-overload-co-located-default (0.005438 sec)
passed 31/46 xref-elisp-test-find-defs-define-overload-no-default (0.003121 sec)
passed 32/46 xref-elisp-test-find-defs-define-overload-no-methods (0.002311 sec)
passed 33/46 xref-elisp-test-find-defs-define-overload-separate-default (0.003169 sec)
passed 34/46 xref-elisp-test-find-defs-defun-c (0.091946 sec)
passed 35/46 xref-elisp-test-find-defs-defun-c-defvar-c (0.027455 sec)
passed 36/46 xref-elisp-test-find-defs-defun-defvar-el (0.008166 sec)
passed 37/46 xref-elisp-test-find-defs-defun-el (0.001137 sec)
Test xref-elisp-test-find-defs-defun-el-defvar-c backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-4678d2> #<xref-item xref-
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defun-el-de
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defun-el-defvar-c condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defun abbrev-mode)" 1 6 ... 7 18 ...)
#s(xref-elisp-location abbrev-mode nil "/datadisk/steve/src/emacs/emacs-master/lisp/abbrev.el"))
#s(xref-item "(defun abbrev-mode)" #s(xref-elisp-location abbrev-mode nil "/home/steve/src/emacs/emacs-master/lisp/abbrev.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 53 49 "/datadisk/steve/src/emacs/emacs-master/lisp/abbrev.el" "/home/steve/src/emacs/emacs-master/lisp/abbrev.el" first-mismatch-at 1)))))
FAILED 38/46 xref-elisp-test-find-defs-defun-el-defvar-c (0.002712 sec)
passed 39/46 xref-elisp-test-find-defs-defun-eval (0.000313 sec)
passed 40/46 xref-elisp-test-find-defs-defvar-c (0.002259 sec)
passed 41/46 xref-elisp-test-find-defs-defvar-el (0.000795 sec)
passed 42/46 xref-elisp-test-find-defs-defvar-eval (0.000118 sec)
Test xref-elisp-test-find-defs-face-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-39bf06> #<xref-item xref-
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-face-el :do
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-face-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defvar font-lock-keyword-face)" 1 7 ... 8 30 ...)
#s(xref-elisp-location font-lock-keyword-face defvar "/datadisk/steve/src/emacs/emacs-master/lisp/font-lock.el"))
#s(xref-item "(defvar font-lock-keyword-face)" #s(xref-elisp-location font-lock-keyword-face defvar "/home/steve/src/emacs/emacs-master/lisp/font-lock.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 56 52 "/datadisk/steve/src/emacs/emacs-master/lisp/font-lock.el" "/home/steve/src/emacs/emacs-master/lisp/font-lock.el" first-mismatch-at 1)))))
FAILED 43/46 xref-elisp-test-find-defs-face-el (0.000368 sec)
passed 44/46 xref-elisp-test-find-defs-face-eval (0.000304 sec)
passed 45/46 xref-elisp-test-find-defs-feature-el (0.000697 sec)
passed 46/46 xref-elisp-test-find-defs-feature-eval (0.001119 sec)
Ran 46 tests, 38 results as expected, 5 unexpected, 3 skipped (2020-10-31 22:19:27+0100, 1.007205 sec)
5 unexpected results:
FAILED xref-elisp-test-find-defs-constructor
FAILED xref-elisp-test-find-defs-defalias-defun-el
FAILED xref-elisp-test-find-defs-defgeneric-el
FAILED xref-elisp-test-find-defs-defun-el-defvar-c
FAILED xref-elisp-test-find-defs-face-el
3 skipped results:
SKIPPED eval-last-sexp-print-format-large-int-echo
SKIPPED eval-last-sexp-print-format-small-int-echo
SKIPPED eval-last-sexp-print-format-sym-echo
steve [ ~/src/emacs/emacs-master/test/lisp/progmodes ]$ cd /datadisk/steve/src/emacs/emacs-master/test/lisp/progmodes/
steve [ /datadisk/steve/src/emacs/emacs-master/test/lisp/progmodes ]$ emacs-master -batch -l ert -l elisp-mode-tests.el -f ert-run-tests-batch-and-exit
Running 46 tests (2020-10-31 22:20:00+0100, selector ‘t’)
passed 1/46 elisp--highlight-function-argument-indexed (0.000134 sec)
passed 2/46 elisp--highlight-function-argument-keyed-1 (0.000208 sec)
passed 3/46 elisp--highlight-function-argument-keyed-2 (0.000183 sec)
passed 4/46 elisp--preceding-sexp--char-name (0.000112 sec)
passed 5/46 elisp-completes-anything-quoted (0.010931 sec)
passed 6/46 elisp-completes-functions (0.001037 sec)
passed 7/46 elisp-completes-functions-after-hash-quote (0.000039 sec)
passed 8/46 elisp-completes-functions-after-let-bindings (0.001043 sec)
passed 9/46 elisp-completes-functions-in-special-macros (0.002019 sec)
passed 10/46 elisp-completes-local-variables (0.001069 sec)
passed 11/46 elisp-completes-variables (0.001149 sec)
passed 12/46 elisp-completes-variables-unquoted (0.003082 sec)
passed 13/46 elisp-completest-variables-in-let-bindings (0.002124 sec)
Indenting region...
Indenting region...done
passed 14/46 elisp-indent-basic (0.000266 sec)
passed 15/46 eval-last-sexp-print-format-large-int (0.000110 sec)
skipped 16/46 eval-last-sexp-print-format-large-int-echo (0.000092 sec)
passed 17/46 eval-last-sexp-print-format-small-int (0.000089 sec)
skipped 18/46 eval-last-sexp-print-format-small-int-echo (0.000074 sec)
passed 19/46 eval-last-sexp-print-format-sym (0.000056 sec)
skipped 20/46 eval-last-sexp-print-format-sym-echo (0.000073 sec)
passed 21/46 xref-elisp-test-find-defs-constructor (0.031150 sec)
passed 22/46 xref-elisp-test-find-defs-defalias-defun-el (0.013090 sec)
passed 23/46 xref-elisp-test-find-defs-defgeneric-co-located-default (0.008294 sec)
Test xref-elisp-test-find-defs-defgeneric-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-5ac4fe> #<xref-item xref-
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defgeneric-
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defgeneric-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(cl-defgeneric xref-location-marker)" 1 14 ... 15 35 ...)
#s(xref-elisp-location xref-location-marker cl-defgeneric "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el"))
#s(xref-item "(cl-defgeneric xref-location-marker)" #s(xref-elisp-location xref-location-marker cl-defgeneric "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 57 61 "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" first-mismatch-at 1)))))
FAILED 24/46 xref-elisp-test-find-defs-defgeneric-el (0.001146 sec)
passed 25/46 xref-elisp-test-find-defs-defgeneric-eval (0.000130 sec)
passed 26/46 xref-elisp-test-find-defs-defgeneric-implicit-generic (0.000965 sec)
passed 27/46 xref-elisp-test-find-defs-defgeneric-no-default (0.000864 sec)
passed 28/46 xref-elisp-test-find-defs-defgeneric-no-methods (0.000460 sec)
passed 29/46 xref-elisp-test-find-defs-defgeneric-separate-default (0.001256 sec)
passed 30/46 xref-elisp-test-find-defs-define-overload-co-located-default (0.005342 sec)
passed 31/46 xref-elisp-test-find-defs-define-overload-no-default (0.004410 sec)
passed 32/46 xref-elisp-test-find-defs-define-overload-no-methods (0.003895 sec)
passed 33/46 xref-elisp-test-find-defs-define-overload-separate-default (0.003244 sec)
passed 34/46 xref-elisp-test-find-defs-defun-c (0.093858 sec)
passed 35/46 xref-elisp-test-find-defs-defun-c-defvar-c (0.027207 sec)
Test xref-elisp-test-find-defs-defun-defvar-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-61a1b8>) ((#<xref-item xr
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defun-defva
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defun-defvar-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defun compilation-minor-mode)" 1 6 ... 7 29 ...)
#s(xref-elisp-location compilation-minor-mode nil "/home/steve/src/emacs/emacs-master/lisp/progmodes/compile.el"))
#s(xref-item "(defun compilation-minor-mode)" #s(xref-elisp-location compilation-minor-mode nil "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/compile.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 60 64 "/home/steve/src/emacs/emacs-master/lisp/progmodes/compile.el" "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/compile.el" first-mismatch-at 1)))))
FAILED 36/46 xref-elisp-test-find-defs-defun-defvar-el (0.000364 sec)
Test xref-elisp-test-find-defs-defun-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-5dc1e2>) (#<xref-item xre
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defun-el :d
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defun-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defun xref-find-definitions)" 1 6 ... 7 28 ...)
#s(xref-elisp-location xref-find-definitions nil "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el"))
#s(xref-item "(defun xref-find-definitions)" #s(xref-elisp-location xref-find-definitions nil "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 57 61 "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" first-mismatch-at 1)))))
FAILED 37/46 xref-elisp-test-find-defs-defun-el (0.000277 sec)
passed 38/46 xref-elisp-test-find-defs-defun-el-defvar-c (0.010073 sec)
passed 39/46 xref-elisp-test-find-defs-defun-eval (0.000464 sec)
passed 40/46 xref-elisp-test-find-defs-defvar-c (0.002247 sec)
Test xref-elisp-test-find-defs-defvar-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-5b481c>) (#<xref-item xre
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-defvar-el :
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-defvar-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(defvar xref--marker-ring)" 1 7 ... 8 25 ...)
#s(xref-elisp-location xref--marker-ring defvar "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el"))
#s(xref-item "(defvar xref--marker-ring)" #s(xref-elisp-location xref--marker-ring defvar "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 57 61 "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" first-mismatch-at 1)))))
FAILED 41/46 xref-elisp-test-find-defs-defvar-el (0.000243 sec)
passed 42/46 xref-elisp-test-find-defs-defvar-eval (0.000179 sec)
passed 43/46 xref-elisp-test-find-defs-face-el (0.009761 sec)
passed 44/46 xref-elisp-test-find-defs-face-eval (0.000469 sec)
Test xref-elisp-test-find-defs-feature-el backtrace:
signal(ert-test-failed (((should (equal xref expected-xref)) :form (
ert-fail(((should (equal xref expected-xref)) :form (equal #<xref-it
(if (unwind-protect (setq value-222 (apply fn-220 args-221)) (setq f
(let (form-description-224) (if (unwind-protect (setq value-222 (app
(let ((value-222 'ert-form-evaluation-aborted-223)) (let (form-descr
(let* ((fn-220 #'equal) (args-221 (condition-case err (let ((signal-
(let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xrefs))))) (exp
(while xrefs (let* ((xref (car-safe (prog1 xrefs (setq xrefs (cdr xr
xref-elisp-test-run((#<xref-item xref-item-66040e>) ((#<xref-item xr
(let ((find-file-suppress-same-file-warnings t)) (xref-elisp-test-ru
(closure (cl-struct-xref-elisp-root-type-tags t) nil (let ((find-fil
ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
ert-run-test(#s(ert-test :name xref-elisp-test-find-defs-feature-el
ert-run-or-rerun-test(#s(ert--stats :selector t :tests ... :test-map
ert-run-tests(t #f(compiled-function (event-type &rest event-args) #
ert-run-tests-batch(nil)
ert-run-tests-batch-and-exit()
command-line-1(("-l" "ert" "-l" "elisp-mode-tests.el" "-f" "ert-run-
command-line()
normal-top-level()
Test xref-elisp-test-find-defs-feature-el condition:
(ert-test-failed
((should
(equal xref expected-xref))
:form
(equal #s(xref-item
#("(feature xref)" 1 8 ... 9 13 ...)
#s(xref-elisp-location xref feature "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el"))
#s(xref-item "(feature xref)" #s(xref-elisp-location xref feature "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el")))
:value nil :explanation
(array-elt 2
(struct-field file
(arrays-of-different-length 57 61 "/home/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" "/datadisk/steve/src/emacs/emacs-master/lisp/progmodes/xref.el" first-mismatch-at 1)))))
FAILED 45/46 xref-elisp-test-find-defs-feature-el (0.000362 sec)
passed 46/46 xref-elisp-test-find-defs-feature-eval (0.001159 sec)
Ran 46 tests, 38 results as expected, 5 unexpected, 3 skipped (2020-10-31 22:20:01+0100, 1.097991 sec)
5 unexpected results:
FAILED xref-elisp-test-find-defs-defgeneric-el
FAILED xref-elisp-test-find-defs-defun-defvar-el
FAILED xref-elisp-test-find-defs-defun-el
FAILED xref-elisp-test-find-defs-defvar-el
FAILED xref-elisp-test-find-defs-feature-el
3 skipped results:
SKIPPED eval-last-sexp-print-format-large-int-echo
SKIPPED eval-last-sexp-print-format-small-int-echo
SKIPPED eval-last-sexp-print-format-sym-echo
steve [ /datadisk/steve/src/emacs/emacs-master/test/lisp/progmodes ]$
next prev parent reply other threads:[~2020-10-31 21:30 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-08-23 21:27 bug#43004: 28.0.50; Test failures due to symlinked Emacs sources Stephen Berman
2020-10-16 8:34 ` Lars Ingebrigtsen
2020-10-16 14:15 ` Stephen Berman
2020-10-16 14:37 ` Lars Ingebrigtsen
2020-10-16 14:48 ` Stephen Berman
2020-10-16 20:20 ` Dmitry Gutov
2020-10-16 20:54 ` Stephen Berman
2020-10-29 23:02 ` Dmitry Gutov
2020-10-30 21:26 ` Stephen Berman
2020-10-31 1:39 ` Dmitry Gutov
2020-10-31 21:30 ` Stephen Berman [this message]
2020-10-17 6:39 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87pn4yqe0n.fsf@gmx.net \
--to=stephen.berman@gmx.net \
--cc=43004@debbugs.gnu.org \
--cc=dgutov@yandex.ru \
--cc=larsi@gnus.org \
--cc=rgm@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.