* bug#69518: test suite failures building Debian 1.4.0 packages
@ 2024-03-03 4:12 Vagrant Cascadian
0 siblings, 0 replies; only message in thread
From: Vagrant Cascadian @ 2024-03-03 4:12 UTC (permalink / raw)
To: 69518
[-- Attachment #1: Type: text/plain, Size: 6108 bytes --]
Several tests have started failing with builds of Guix in Debian:
https://bugs.debian.org/1064748
My suspicion is I need to rebuild one of guix's build dependencies, but
I am not sure which one. Maybe all of them... Debian doesn't quite have
the same nice feature of always rebuilding everything that needs
rebuilding. :/
Digging through the referenced build log and also on a local build, the
following test failures seem to all fail in a similar way, with a
bytevecotr procedure(???):
test-name: fold-available-packages with/without cache
location: /<<PKGBUILDDIR>>/tests/packages.scm:1708
source:
+ (test-assert
+ "fold-available-packages with/without cache"
+ (let ()
+ (define no-cache
+ (fold-available-packages
+ (lambda* (name version result #:rest rest)
+ (cons (cons* name version rest) result))
+ '()))
+ (define from-cache
+ (call-with-temporary-directory
+ (lambda (cache)
+ (generate-package-cache cache)
+ (mock ((guix describe) current-profile (const cache))
+ (mock ((gnu packages)
+ cache-is-authoritative?
+ (const #t))
+ (fold-available-packages
+ (lambda* (name version result #:rest rest)
+ (cons (cons* name version rest) result))
+ '()))))))
+ (define (list->set* lst)
+ (let loop ((lst lst) (duplicates '()) (seen (set)))
+ (match lst
+ (() (values seen duplicates))
+ ((head . tail)
+ (if (set-contains? seen head)
+ (loop tail (cons head duplicates) seen)
+ (loop tail duplicates (set-insert head seen)))))))
+ (let ((set1 duplicates1 (list->set* from-cache))
+ (set2 duplicates2 (list->set* no-cache)))
+ (and (null? duplicates1)
+ (null? duplicates2)
+ (every (cut set-contains? set1 <>) no-cache)
+ (every (cut set-contains? set2 <>) from-cache)))))
actual-value: #f
actual-error:
+ (wrong-type-arg
+ "put-bytevector"
+ "Wrong type argument in position ~A (expecting ~A): ~S"
+ (2
+ "bytevector"
+ #<procedure 7fae69e26880 at system/vm/linker.scm:773:8 (port)>)
+ (#<procedure 7fae69e26880 at system/vm/linker.scm:773:8 (port)>))
result: FAIL
test-name: find-packages-by-name with cache
location: /<<PKGBUILDDIR>>/tests/packages.scm:1760
source:
+ (test-equal
+ "find-packages-by-name with cache"
+ (find-packages-by-name "guile")
+ (call-with-temporary-directory
+ (lambda (cache)
+ (generate-package-cache cache)
+ (mock ((guix describe) current-profile (const cache))
+ (mock ((gnu packages)
+ cache-is-authoritative?
+ (const #t))
+ (find-packages-by-name "guile"))))))
expected-value: (#<package guile@3.0.8 gnu/packages/guile.scm:392 7fae5c1b8d10> #<package guile@3.0.7 gnu/packages/guile.scm:310 7fae5c1b8dc0> #<package guile@2.2.7 gnu/packages/guile.scm:250 7fae5c1b8f20> #<package guile@2.2.4 gnu/packages/guile.scm:297 7fae5c1b8e70> #<package guile@2.0.14 gnu/packages/guile.scm:147 7fae5c1b2000> #<package guile@1.8.8 gnu/packages/guile.scm:76 7fae5c1b20b0>)
actual-value: #f
actual-error:
+ (wrong-type-arg
+ "put-bytevector"
+ "Wrong type argument in position ~A (expecting ~A): ~S"
+ (2
+ "bytevector"
+ #<procedure 7fae6b40d800 at system/vm/linker.scm:773:8 (port)>)
+ (#<procedure 7fae6b40d800 at system/vm/linker.scm:773:8 (port)>))
result: FAIL
test-name: find-packages-by-name + version, with cache
location: /<<PKGBUILDDIR>>/tests/packages.scm:1769
source:
+ (test-equal
+ "find-packages-by-name + version, with cache"
+ (find-packages-by-name "guile" "2")
+ (call-with-temporary-directory
+ (lambda (cache)
+ (generate-package-cache cache)
+ (mock ((guix describe) current-profile (const cache))
+ (mock ((gnu packages)
+ cache-is-authoritative?
+ (const #t))
+ (find-packages-by-name "guile" "2"))))))
expected-value: (#<package guile@2.2.7 gnu/packages/guile.scm:250 7fae5c1b8f20> #<package guile@2.2.4 gnu/packages/guile.scm:297 7fae5c1b8e70> #<package guile@2.0.14 gnu/packages/guile.scm:147 7fae5c1b2000>)
actual-value: #f
actual-error:
+ (wrong-type-arg
+ "put-bytevector"
+ "Wrong type argument in position ~A (expecting ~A): ~S"
+ (2
+ "bytevector"
+ #<procedure 7fae40d6c880 at system/vm/linker.scm:773:8 (port)>)
+ (#<procedure 7fae40d6c880 at system/vm/linker.scm:773:8 (port)>))
result: FAIL
test-name: find-package-locations with cache
location: /<<PKGBUILDDIR>>/tests/packages.scm:1927
source:
+ (test-equal
+ "find-package-locations with cache"
+ (map (lambda (package)
+ (cons (package-version package)
+ (package-location package)))
+ (find-packages-by-name "guile"))
+ (call-with-temporary-directory
+ (lambda (cache)
+ (generate-package-cache cache)
+ (mock ((guix describe) current-profile (const cache))
+ (mock ((gnu packages)
+ cache-is-authoritative?
+ (const #t))
+ (find-package-locations "guile"))))))
expected-value: (("3.0.8" . #<<location> file: "gnu/packages/guile.scm" line: 392 column: 2>) ("3.0.7" . #<<location> file: "gnu/packages/guile.scm" line: 310 column: 2>) ("2.2.7" . #<<location> file: "gnu/packages/guile.scm" line: 250 column: 2>) ("2.2.4" . #<<location> file: "gnu/packages/guile.scm" line: 297 column: 2>) ("2.0.14" . #<<location> file: "gnu/packages/guile.scm" line: 147 column: 2>) ("1.8.8" . #<<location> file: "gnu/packages/guile.scm" line: 76 column: 2>))
actual-value: #f
actual-error:
+ (wrong-type-arg
+ "put-bytevector"
+ "Wrong type argument in position ~A (expecting ~A): ~S"
+ (2
+ "bytevector"
+ #<procedure 7fae3f090880 at system/vm/linker.scm:773:8 (port)>)
+ (#<procedure 7fae3f090880 at system/vm/linker.scm:773:8 (port)>))
result: FAIL
[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 227 bytes --]
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2024-03-03 4:13 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-03-03 4:12 bug#69518: test suite failures building Debian 1.4.0 packages Vagrant Cascadian
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).