Bug#973066: esup-el: FTBFS: tests failed
Source: esup-el
Version: 0.7.1-2
Severity: serious
Justification: FTBFS on amd64
Tags: bullseye sid ftbfs
Usertags: ftbfs-20201027 ftbfs-bullseye
Hi,
During a rebuild of all packages in sid, your package failed to build
on amd64.
Relevant part (hopefully):
> make[1]: Entering directory '/<<PKGBUILDDIR>>'
> skipping upstream build
> make[1]: Leaving directory '/<<PKGBUILDDIR>>'
> dh_elpa_test
> emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" -f package-initialize -L . -L test -l test/esup-test.el --eval \(ert-run-tests-batch-and-exit\)
> Redundant pcase pattern: _
> Running 24 tests (2020-10-27 12:17:52+0000, selector ‘t’)
> Test esup-child-run__advises_load backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(defun my-load (file) (load file))" "/fak
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 35)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake14/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-55 #'esup-results-equal-p) (args-56 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake14") :files (("/fak
> (with-esup-mock '(:load-path ("/fake14") :files (("/fake14/qux.el" .
> (closure (t) nil (with-esup-mock '(:load-path ("/fake14") :files (("
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__advises_load :documen
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__advises_load condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 1/24 esup-child-run__advises_load (0.000547 sec)
> Test esup-child-run__advises_require backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(defun my-require (feat) (require feat))"
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 41)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake13/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-50 #'esup-results-equal-p) (args-51 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake13") :files (("/fak
> (with-esup-mock '(:load-path ("/fake13") :files (("/fake13/qux.el" .
> (closure (t) nil (with-esup-mock '(:load-path ("/fake13") :files (("
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__advises_require :docu
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__advises_require condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 2/24 esup-child-run__advises_require (0.000712 sec)
> Test esup-child-run__counts-gc backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(progn (garbage-collect) (garbage-collect
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 44)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake/bar-qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("/fake/bar-qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("/fake/bar-qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "/fake/bar-qux.el" esup
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-10 #'esup-results-equal-p) (args-11 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake") :files (("/fake/
> (with-esup-mock '(:load-path ("/fake") :files (("/fake/bar-qux.el" .
> (closure (t) nil (with-esup-mock '(:load-path ("/fake") :files (("/f
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__counts-gc :documentat
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__counts-gc condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 3/24 esup-child-run__counts-gc (0.019445 sec)
> Test esup-child-run__doesnt_step_into_already_required_feature backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(progn 'baz)" "/fake12/baz.el" 1 1 13)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 13)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake12/baz.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("baz")
> (progn (esup-child-send-log "stepping into require call" feature fil
> (setq esup-child-last-call-intercept-results (progn (esup-child-send
> (prog1 (setq esup-child-last-call-intercept-results (progn (esup-chi
> (progn (setq esup-child-current-depth (1+ esup-child-current-depth))
> (cond ((>= esup-child-current-depth esup-child-max-depth) (progn (es
> esup-child-require-advice((closure ((saved-func-process-send-eof . #
> apply(esup-child-require-advice (closure ((saved-func-process-send-e
> require(baz)
> eval((require 'baz))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'baz)" "/fake12/qux.el" 1 1 15)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 15)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake12/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-45 #'esup-results-equal-p) (args-46 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake12") :files (("/fak
> (with-esup-mock '(:load-path ("/fake12") :files (("/fake12/qux.el" .
> (closure (t) nil (with-esup-mock '(:load-path ("/fake12") :files (("
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name esup-child-run__doesnt_step_into_alre
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__doesnt_step_into_already_required_feature condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 4/24 esup-child-run__doesnt_step_into_already_required_feature (0.000905 sec)
> Test esup-child-run__handles-dynamic-docstring backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(defvar var 1)" "/fake1/qux.el" 2 7 21)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(7 21)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake1/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-25 #'esup-results-equal-p) (args-26 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake1") :files (("/fake
> (with-esup-mock '(:load-path ("/fake1") :files (("/fake1/qux.el" . "
> (closure (t) nil (with-esup-mock '(:load-path ("/fake1") :files (("/
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__handles-dynamic-docst
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__handles-dynamic-docstring condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 5/24 esup-child-run__handles-dynamic-docstring (0.000708 sec)
> passed 6/24 esup-child-run__handles-empty-file (0.000601 sec)
> Test esup-child-run__handles_require_with_sexp_filename backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(progn 'core)" "/specified/qux/core.el" 1
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 14)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /specified/qux/core.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("/specified/qux/core")
> (progn (esup-child-send-log "stepping into require call" feature fil
> (setq esup-child-last-call-intercept-results (progn (esup-child-send
> (prog1 (setq esup-child-last-call-intercept-results (progn (esup-chi
> (progn (setq esup-child-current-depth (1+ esup-child-current-depth))
> (cond ((>= esup-child-current-depth esup-child-max-depth) (progn (es
> esup-child-require-advice((closure ((saved-func-process-send-eof . #
> apply(esup-child-require-advice (closure ((saved-func-process-send-e
> require(core "/specified/qux/core")
> eval((require 'core (concat "/specified/qux/" "core")))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'core (concat \"/specified/qux/\
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 50)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake10/bar.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("/fake10/bar.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("/fake10/bar.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "/fake10/bar.el" esup-t
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-40 #'esup-results-equal-p) (args-41 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake10") :files (("/fak
> (with-esup-mock '(:load-path ("/fake10") :files (("/fake10/bar.el" .
> (closure (t) nil (with-esup-mock '(:load-path ("/fake10") :files (("
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name esup-child-run__handles_require_with_
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__handles_require_with_sexp_filename condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 7/24 esup-child-run__handles_require_with_sexp_filename (0.000608 sec)
> Test esup-child-run__loads-file backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(progn 'qux)" "/fake/foof.el" 1 1 13)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 13)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake/foof.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("/fake/foof.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("/fake/foof.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "/fake/foof.el" -1) (li
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-0 #'esup-results-equal-p) (args-1 (condition-case err (le
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake") :files (("/fake/
> (with-esup-mock '(:load-path ("/fake") :files (("/fake/foof.el" . "(
> (closure (t) nil (with-esup-mock '(:load-path ("/fake") :files (("/f
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__loads-file :documenta
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__loads-file condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 8/24 esup-child-run__loads-file (0.000696 sec)
> Test esup-child-run__respects-require-level-of-1 backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'c)" "/fake8/a.el" 1 1 13)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 13)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake8/a.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("a.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("a.el" -1 1)
> (let ((depth 1)) (esup-child-run "a.el" esup-test/fake-port depth))
> (list '(:gc-time :exec-time) (let ((depth 1)) (esup-child-run "a.el"
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-30 #'esup-results-equal-p) (args-31 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake8") :files (("/fake
> (with-esup-mock '(:load-path ("/fake8") :files (("/fake8/a.el" . "(r
> (closure (t) nil (with-esup-mock '(:load-path ("/fake8") :files (("/
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__respects-require-leve
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__respects-require-level-of-1 condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 9/24 esup-child-run__respects-require-level-of-1 (0.000665 sec)
> Test esup-child-run__respects-require-level-of-2 backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'c)" "/fake9/a.el" 1 1 13)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 13)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake9/a.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("a.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("a.el" -1 2)
> (let ((depth 2)) (esup-child-run "a.el" esup-test/fake-port depth))
> (list '(:gc-time :exec-time) (let ((depth 2)) (esup-child-run "a.el"
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-35 #'esup-results-equal-p) (args-36 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake9") :files (("/fake
> (with-esup-mock '(:load-path ("/fake9") :files (("/fake9/a.el" . "(r
> (closure (t) nil (with-esup-mock '(:load-path ("/fake9") :files (("/
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__respects-require-leve
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__respects-require-level-of-2 condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 10/24 esup-child-run__respects-require-level-of-2 (0.000662 sec)
> Test esup-child-run__steps-into-requires backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'baz)" "/fake3/qux.el" 1 1 15)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 15)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake3/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-20 #'esup-results-equal-p) (args-21 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake3") :files (("/fake
> (with-esup-mock '(:load-path ("/fake3") :files (("/fake3/qux.el" . "
> (closure (t) nil (with-esup-mock '(:load-path ("/fake3") :files (("/
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__steps-into-requires :
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__steps-into-requires condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 11/24 esup-child-run__steps-into-requires (0.000657 sec)
> Test esup-child-run__uses-load-path backtrace:
> (time-since t1)
> (float-time (time-since t1))
> (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (time-sin
> (list (let (t1) (setq t1 (current-time)) (eval sexp) (float-time (ti
> (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1) (setq t1 (curr
> (setq benchmark (let ((gc gc-elapsed) (gcs gcs-done)) (list (let (t1
> (let ((sexp (if (string-equal sexp-string "") "" (car-safe (read-fro
> esup-child-profile-string("(require 'baz)" "/fake2/qux.el" 1 1 15)
> (setq esup--profile-results (esup-child-profile-string sexp-string f
> (cond ((string-equal sexp-string "") 'nil) (t (setq esup--profile-re
> (progn (setq sexp (if (string-equal sexp-string "") "" (car-safe (re
> (condition-case error-message (progn (setq sexp (if (string-equal se
> (let* ((sexp-string (esup-child-chomp (buffer-substring start end)))
> esup-child-profile-sexp(1 15)
> (append results (esup-child-profile-sexp start end))
> (setq results (append results (esup-child-profile-sexp start end)))
> (while (> start last-start) (setq results (append results (esup-chil
> (let ((buffer-read-only t) (last-start -1) (end (progn (forward-sexp
> (save-current-buffer (set-buffer buffer) (goto-char (point-min)) (fo
> (condition-case error-message (save-current-buffer (set-buffer buffe
> esup-child-profile-buffer(#<buffer /fake2/qux.el>)
> (progn (esup-child-send-log "loading %s" abs-file-path) (esup-child-
> (if abs-file-path (progn (esup-child-send-log "loading %s" abs-file-
> (let* ((clean-file (esup-child-chomp file-name)) (abs-file-path (loc
> esup-child-profile-file("qux.el")
> (prog1 (esup-child-profile-file init-file) (advice-remove 'require '
> esup-child-run("qux.el" -1)
> (list '(:gc-time :exec-time) (esup-child-run "qux.el" esup-test/fake
> (let ((signal-hook-function #'ert--should-signal-hook)) (list '(:gc-
> (condition-case err (let ((signal-hook-function #'ert--should-signal
> (let* ((fn-15 #'esup-results-equal-p) (args-16 (condition-case err (
> (progn (progn (fset 'find-file-noselect (cl-function (lambda (filena
> (unwind-protect (progn (progn (fset 'find-file-noselect (cl-function
> (let ((saved-func-find-file-noselect (condition-case err (symbol-fun
> (noflet ((find-file-noselect (filename &optional nowarn rawfile wild
> (let* ((load-path (plist-get '(:load-path ("/fake1" "/fake2") :files
> (with-esup-mock '(:load-path ("/fake1" "/fake2") :files (("/fake2/qu
> (closure (t) nil (with-esup-mock '(:load-path ("/fake1" "/fake2") :f
> ert--run-test-internal(#s(ert--test-execution-info :test ... :result
> ert-run-test(#s(ert-test :name esup-child-run__uses-load-path :docum
> 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()
> eval((ert-run-tests-batch-and-exit) t)
> command-line-1(("-l" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test esup-child-run__uses-load-path condition:
> (file-missing "Cannot open load file" "No such file or directory" "time-date")
> FAILED 12/24 esup-child-run__uses-load-path (0.000687 sec)
> passed 13/24 esup-results-equal-p__empty-list__is-equal (0.000126 sec)
> passed 14/24 esup-results-equal-p__gc-time-mismatch__is-false (0.000233 sec)
> passed 15/24 esup-results-equal-p__ignoring-gc-time__is-equal (0.000189 sec)
> passed 16/24 esup-results-equal-p__single-elem-mismatch__is-false (0.000140 sec)
> passed 17/24 esup-results-equal-p__single-elem__is-equal (0.000183 sec)
> passed 18/24 esup-results-equal-p__three-elem__is-equal (0.000361 sec)
> passed 19/24 esup-results-single-equal-p__gc-time-mismatch__is-false (0.000138 sec)
> passed 20/24 esup-results-single-equal-p__ignoring-gc-time__is-equal (0.000167 sec)
> passed 21/24 esup-results-single-equal-p__ignoring-no-slots__is-equal (0.000169 sec)
> passed 22/24 esup-results-single-equal-p__sexp-mismatch__is-false (0.000144 sec)
> passed 23/24 make-esup-result__no-extra-args__is-same (0.000101 sec)
> passed 24/24 make-esup-result__with-extra-args__is-same (0.000105 sec)
>
> Ran 24 tests, 13 results as expected, 11 unexpected (2020-10-27 12:17:55+0000, 3.114341 sec)
>
> 11 unexpected results:
> FAILED esup-child-run__advises_load
> FAILED esup-child-run__advises_require
> FAILED esup-child-run__counts-gc
> FAILED esup-child-run__doesnt_step_into_already_required_feature
> FAILED esup-child-run__handles-dynamic-docstring
> FAILED esup-child-run__handles_require_with_sexp_filename
> FAILED esup-child-run__loads-file
> FAILED esup-child-run__respects-require-level-of-1
> FAILED esup-child-run__respects-require-level-of-2
> FAILED esup-child-run__steps-into-requires
> FAILED esup-child-run__uses-load-path
>
> dh_elpa_test: error: emacs -batch -Q -l package --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa\")" --eval "(add-to-list 'package-directory-list \"/usr/share/emacs/site-lisp/elpa-src\")" -f package-initialize -L . -L test -l test/esup-test.el --eval \(ert-run-tests-batch-and-exit\) returned exit code 1
> make: *** [debian/rules:4: binary] Error 25
The full build log is available from:
http://qa-logs.debian.net/2020/10/27/esup-el_0.7.1-2_unstable.log
A list of current common problems and possible solutions is available at
http://wiki.debian.org/qa.debian.org/FTBFS . You're welcome to contribute!
About the archive rebuild: The rebuild was done on EC2 VM instances from
Amazon Web Services, using a clean, minimal and up-to-date chroot. Every
failed build was retried once to eliminate random failures.
Reply to: