Bug#1020190: shut-up: FTBFS: make: *** [debian/rules:4: build] Error 25
Source: shut-up
Version: 0.3.3-3
Severity: serious
Justification: FTBFS
Tags: bookworm sid ftbfs
User: lucas@debian.org
Usertags: ftbfs-20220917 ftbfs-bookworm
Hi,
During a rebuild of all packages in sid, your package failed to build
on amd64.
Relevant part (hopefully):
> make[1]: Entering directory '/<<PKGBUILDDIR>>'
> /bin/true
> 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/shut-up-test.el --eval \(ert-run-tests-batch-and-exit\)
> Running 7 tests (2022-09-17 20:06:11+0000, selector ‘t’)
> Test shut-up/binds-the-sink-buffer-in-body backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (let* ((fn-0 #'bufferp) (args-1 (condition
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((lexical-binding t)) (let ((shut-up-sink (generate-new-buffer
> (closure (t) nil (let ((lexical-binding t)) (let ((shut-up-sink (gen
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/binds-the-sink-buffer-in-body
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests [#s(ert-test
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/binds-the-sink-buffer-in-body condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 1/7 shut-up/binds-the-sink-buffer-in-body (0.038730 sec)
> Test shut-up/handles-message-with-nil-argument backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (message nil) (let* ((fn-40 #'s-blank\?) (
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((lexical-binding t)) (let ((shut-up-sink (generate-new-buffer
> (closure (t) nil (let ((lexical-binding t)) (let ((shut-up-sink (gen
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/handles-message-with-nil-argu
> ert-run-or-rerun-test(#s(ert--stats :selector t :tests [... ... ...
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/handles-message-with-nil-argument condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 2/7 shut-up/handles-message-with-nil-argument (0.000802 sec)
> Test shut-up/ignore backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (princ "foo") (let* ((fn-125 #'s-ends-with
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((standard-output (current-buffer))) (let ((shut-up-sink (gener
> (progn (let ((standard-output (current-buffer))) (let ((shut-up-sink
> (unwind-protect (progn (let ((standard-output (current-buffer))) (le
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((lexical-binding t)) (let ((temp-buffer (generate-new-buffer "
> (closure (t) nil (let ((lexical-binding t)) (let ((temp-buffer (gene
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/ignore :documentation nil :bo
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/ignore condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 3/7 shut-up/ignore (0.000809 sec)
> Test shut-up/kill-sink-buffer backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (kill-buffer shut-up-sink) (message "bar")
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((lexical-binding t)) (let ((shut-up-sink (generate-new-buffer
> (closure (t) nil (let ((lexical-binding t)) (let ((shut-up-sink (gen
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/kill-sink-buffer :documentati
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/kill-sink-buffer condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 4/7 shut-up/kill-sink-buffer (0.000817 sec)
> This message shall be visible
> Test shut-up/silences-message backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (message "This message shall be hidden") (
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((lexical-binding t)) (message "This message shall be visible")
> (closure (t) nil (let ((lexical-binding t)) (message "This message s
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/silences-message :documentati
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/silences-message condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 5/7 shut-up/silences-message (0.000864 sec)
> Test shut-up/silences-princ backtrace:
> error("Cannot find suitable directory for output in `nati...")
> comp-trampoline-compile(load)
> comp-subr-trampoline-install(load)
> fset(load #<subr load>)
> (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-regi
> (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up
> (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buf
> (if shut-up-ignore (progn (princ "This text is hidden. ") (let* ((fn
> (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buf
> (let ((shut-up-sink (generate-new-buffer " *shutup*")) (inhibit-mess
> (let ((standard-output (current-buffer))) (princ "This text is visib
> (progn (let ((standard-output (current-buffer))) (princ "This text i
> (unwind-protect (progn (let ((standard-output (current-buffer))) (pr
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((lexical-binding t)) (let ((temp-buffer (generate-new-buffer "
> (closure (t) nil (let ((lexical-binding t)) (let ((temp-buffer (gene
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/silences-princ :documentation
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/silences-princ condition:
> (error "Cannot find suitable directory for output in ‘native-comp-eln-load-path’")
> FAILED 6/7 shut-up/silences-princ (0.000839 sec)
> Test shut-up/silences-write-region backtrace:
> signal(ert-test-failed (((should (s-contains\? "Done\n" (buffer-stri
> ert-fail(((should (s-contains\? "Done\n" (buffer-string))) :form (s-
> (if (unwind-protect (setq value-87 (apply fn-85 args-86)) (setq form
> (let (form-description-89) (if (unwind-protect (setq value-87 (apply
> (let ((value-87 'ert-form-evaluation-aborted-88)) (let (form-descrip
> (let* ((fn-85 #'s-contains\?) (args-86 (condition-case err (let ((si
> (progn (call-process emacs nil t nil "-Q" "--batch" "-l" shut-up "--
> (unwind-protect (progn (call-process emacs nil t nil "-Q" "--batch"
> (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
> (let ((temp-buffer (generate-new-buffer " *temp*" t))) (save-current
> (let ((emacs (concat invocation-directory invocation-name)) (shut-up
> (let ((lexical-binding t)) (let ((emacs (concat invocation-directory
> (closure (t) nil (let ((lexical-binding t)) (let ((emacs (concat inv
> ert--run-test-internal(#s(ert--test-execution-info :test #s(ert-test
> ert-run-test(#s(ert-test :name shut-up/silences-write-region :docume
> 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" "package" "--eval" "(add-to-list 'package-direc
> command-line()
> normal-top-level()
> Test shut-up/silences-write-region condition:
> (ert-test-failed
> ((should
> (s-contains\? "Done\n"
> (buffer-string)))
> :form
> (s-contains\? "Done\n" "Start\nDebugger entered--Lisp error: (error \"Cannot find suitable directory for output in ‘nati...\")\n error(\"Cannot find suitable directory for output in `nati...\")\n comp-trampoline-compile(load)\n comp-subr-trampoline-install(load)\n fset(load shut-up-load)\n (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\"))\n (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old))\n (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up-sink))) (vnew #'(lambda (fmt &rest args) (if fmt (progn (let ... ...))))) (old (symbol-function 'load)) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (standard-output vnew)) (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old)))\n (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up-sink))) (vnew #'(lambda (fmt &rest args) (if fmt (progn ...)))) (old (symbol-function 'load)) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (standard-output vnew)) (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old))) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink)))\n (if shut-up-ignore (progn (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (unwind-protect (let* ((vnew #'(lambda (char) (shut-up-insert-to-buffer char shut-up-sink))) (vnew #'(lambda (fmt &rest args) (if fmt ...))) (old (symbol-function 'load)) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (standard-output vnew)) (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old))) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink))))\n (let* ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buffer-string shut-up-sink) \"\")))) (if shut-up-ignore (progn (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (unwind-protect (let* ((vnew #'(lambda ... ...)) (vnew #'(lambda ... ...)) (old (symbol-function 'load)) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (standard-output vnew)) (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old))) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink)))))\n (letrec ((--cl-shut-up-current-output-- #'(lambda nil (or (shut-up-buffer-string shut-up-sink) \"\")))) (if shut-up-ignore (progn (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (unwind-protect (let* ((vnew #'(lambda ... ...)) (vnew #'(lambda ... ...)) (old (symbol-function 'load)) (old (symbol-function 'write-region)) (old (symbol-function 'message)) (standard-output vnew)) (unwind-protect (progn (fset 'load #'shut-up-load) (fset 'write-region #'shut-up-write-region) (fset 'message vnew) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (fset 'load old) (fset 'write-region old) (fset 'message old))) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink)))))\n (cl-labels ((shut-up-current-output nil (or (shut-up-buffer-string shut-up-sink) \"\"))) (if shut-up-ignore (progn (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (unwind-protect (cl-letf ((standard-output (lambda (char) (shut-up-insert-to-buffer char shut-up-sink))) ((symbol-function 'message) (lambda (fmt &rest args) (when fmt ...))) ((symbol-function 'write-region) #'shut-up-write-region) ((symbol-function 'load) #'shut-up-load)) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink)))))\n (let ((shut-up-sink (generate-new-buffer \" *shutup*\")) (inhibit-message t)) (cl-labels ((shut-up-current-output nil (or (shut-up-buffer-string shut-up-sink) \"\"))) (if shut-up-ignore (progn (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (unwind-protect (cl-letf ((standard-output (lambda ... ...)) ((symbol-function ...) (lambda ... ...)) ((symbol-function ...) #'shut-up-write-region) ((symbol-function ...) #'shut-up-load)) (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (and (buffer-name shut-up-sink) (kill-buffer shut-up-sink))))))\n (shut-up (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\"))\n (progn (message \"Start\") (shut-up (write-region \"Silent world\" nil \"/tmp/shut-up-test-TCbDKM\")) (message \"Done\"))\n command-line-1((\"-l\" \"/<<PKGBUILDDIR>>/shut-up.el\" \"--eval\" \"(progn (message \\\"Start\\\") (shut-up (write-region \\\"S...\"))\n command-line()\n normal-top-level()\n\n")
> :value nil))
> FAILED 7/7 shut-up/silences-write-region (0.165924 sec)
>
> Ran 7 tests, 0 results as expected, 7 unexpected (2022-09-17 20:06:12+0000, 1.203961 sec)
>
> 7 unexpected results:
> FAILED shut-up/binds-the-sink-buffer-in-body
> FAILED shut-up/handles-message-with-nil-argument
> FAILED shut-up/ignore
> FAILED shut-up/kill-sink-buffer
> FAILED shut-up/silences-message
> FAILED shut-up/silences-princ
> FAILED shut-up/silences-write-region
>
> 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/shut-up-test.el --eval \(ert-run-tests-batch-and-exit\) returned exit code 1
> make: *** [debian/rules:4: build] Error 25
The full build log is available from:
http://qa-logs.debian.net/2022/09/17/shut-up_0.3.3-3_unstable.log
All bugs filed during this archive rebuild are listed at:
https://bugs.debian.org/cgi-bin/pkgreport.cgi?tag=ftbfs-20220917;users=lucas@debian.org
or:
https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220917&fusertaguser=lucas@debian.org&allbugs=1&cseverity=1&ctags=1&caffected=1#results
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!
If you reassign this bug to another package, please marking it as 'affects'-ing
this package. See https://www.debian.org/Bugs/server-control#affects
If you fail to reproduce this, please provide a build log and diff it with mine
so that we can identify if something relevant changed in the meantime.
Reply to: