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