Source: shut-up Version: 0.3.3-3 Severity: serious Justification: FTBFS Tags: bookworm sid ftbfs User: lu...@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=lu...@debian.org or: https://udd.debian.org/bugs/?release=na&merged=ign&fnewerval=7&flastmodval=7&fusertag=only&fusertagtag=ftbfs-20220917&fusertaguser=lu...@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.