bug#64760: make check fails on 182be30fb1a8b847c30492462ec22c08ec7a9849

[Janneke Nieuwenhuizen <janneke@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 792 bytes --]

Hi,

Make check gives three failures for me on current master

    FAIL: tests/packages     (package->bag)
    FAIL: tests/store-roots  (gc-roots, initial)  
    FAIL: tests/texlive      (texlive->guix-package, meta-package)

using this snippet.

--8<---------------cut here---------------start------------->8---
export SCM_LOG_DRIVER_FLAGS="--select='^(package->bag|gc-roots, initial|texlive->guix-package, meta-package)'"
make check TESTS="tests/packages.scm tests/store-roots.scm tests/texlive.scm"
--8<---------------cut here---------------end--------------->8---

Find log excerpts attached.

I have bisected the first (package->bag) to be broken by

    0dd293b4d9095137c9952e16ca951f887b7e7018
    gnu: Add libc-for-target and glibc/hurd.

but as yet fail to why.

Greetings,
Janneke


[-- Attachment #2: packages.log --]
[-- Type: application/octet-stream, Size: 1345 bytes --]

test-name: package->bag
location: /home/janneke/src/guix/master/tests/packages.scm:1279
source:
+ (test-equal
+   "package->bag"
+   `("foo86-hurd"
+     #f
+     (,(package-source gnu-make))
+     (,(canonical-package glibc))
+     (,(canonical-package coreutils)))
+   (let ((bag (package->bag gnu-make "foo86-hurd")))
+     (list (bag-system bag)
+           (bag-target bag)
+           (assoc-ref (bag-build-inputs bag) "source")
+           (assoc-ref (bag-build-inputs bag) "libc")
+           (assoc-ref (bag-build-inputs bag) "coreutils"))))
expected-value: ("foo86-hurd" #f (#<origin "mirror://gnu/make/make-4.3.tar.gz" #<content-hash sha256:06cfqzpqsvdnsxbysl5p2fgdgxgl9y4p7scpnrfa8z2zgkjdspz0> ("/home/janneke/src/guix/master/gnu/packages/patches/make-impure-dirs.patch") 7fb6b9e3c660>) (#<package glibc@2.35 gnu/packages/commencement.scm:3100 7fb6b9f338f0>) (#<package coreutils@9.1 guix/build-system/gnu.scm:146 7fb6b9f2b210>))
actual-value: ("foo86-hurd" #f (#<origin "mirror://gnu/make/make-4.3.tar.gz" #<content-hash sha256:06cfqzpqsvdnsxbysl5p2fgdgxgl9y4p7scpnrfa8z2zgkjdspz0> ("/home/janneke/src/guix/master/gnu/packages/patches/make-impure-dirs.patch") 7fb6b9e3c660>) (#<package glibc@2.35 gnu/packages/commencement.scm:3100 7fb6bacaa0b0>) (#<package coreutils@9.1 guix/build-system/gnu.scm:146 7fb6b9f2b210>))
result: FAIL


[-- Attachment #3: store-roots.log --]
[-- Type: application/octet-stream, Size: 580 bytes --]

test-name: gc-roots, initial
location: /home/janneke/src/guix/master/tests/store-roots.scm:33
source:
+ (test-equal
+   "gc-roots, initial"
+   (list (string-append %state-directory "/profiles"))
+   (begin
+     (delete-file-recursively
+       (string-append %state-directory "/profiles"))
+     (gc-roots)))
expected-value: ("/home/janneke/src/guix/master/test-tmp/var/9734/profiles")
actual-value: #f
actual-error:
+ (system-error
+   "lstat"
+   "~A: ~S"
+   ("No such file or directory"
+    "/home/janneke/src/guix/master/test-tmp/var/9734/profiles")
+   (2))
result: FAIL

[-- Attachment #4: texlive.log --]
[-- Type: application/octet-stream, Size: 2754 bytes --]

(package (name "texlive-collection-texworks") (version (number->string %texlive-revision)) (source #f) (build-system trivial-build-system) (arguments (list #:builder (gexp (mkdir (ungexp output))))) (propagated-inputs (list texlive-collection-basic)) (home-page "https://www.tug.org/texlive/") (synopsis "TeXworks editor...") (description "See http...") (license (license:fsf-free "https://www.tug.org/texlive/copying.html")))

;;; (fail (package (name "texlive-collection-texworks") (version (number->string %texlive-revision)) (source #f) (build-system trivial-build-system) (arguments (list #:builder (gexp (mkdir (ungexp output))))) (propagated-inputs (list texlive-collection-basic)) (home-page "https://www.tug.org/texlive/") (synopsis "TeXworks editor...") (description "See http...") (license (license:fsf-free "https://www.tug.org/texlive/copying.html"))) #f)
test-name: texlive->guix-package, meta-package
location: /home/janneke/src/guix/master/tests/texlive.scm:521
source:
+ (test-assert
+   "texlive->guix-package, meta-package"
+   (mock ((guix build svn)
+          svn-fetch
+          (lambda* (url
+                    revision
+                    directory
+                    #:key
+                    (svn-command "svn")
+                    (user-name #f)
+                    (password #f)
+                    (recursive? #t))
+            (mkdir-p directory)
+            (with-output-to-file
+              (string-append directory "/foo")
+              (lambda () (display "source")))))
+         (let ((result
+                 (texlive->guix-package
+                   "collection-texworks"
+                   #:package-database
+                   (lambda _ %fake-tlpdb))))
+           (match result
+                  (('package
+                    ('name "texlive-collection-texworks")
+                    ('version _)
+                    ('source #f)
+                    ('build-system 'trivial-build-system)
+                    ('arguments
+                     ('list
+                      '#:builder
+                      ('gexp ('mkdir ('ungexp 'output)))))
+                    ('propagated-inputs
+                     ('list
+                      'texlive-collection-basic
+                      'texlive-texworks))
+                    ('home-page "https://www.tug.org/texlive/")
+                    ('synopsis (? string?))
+                    ('description (? string?))
+                    ('license
+                     ('license:fsf-free
+                      "https://www.tug.org/texlive/copying.html")))
+                   #t)
+                  (_ (begin
+                       (format #t "~s~%" result)
+                       (pk 'fail result #f)))))))
actual-value: #f
result: FAIL

[-- Attachment #5: Type: text/plain, Size: 164 bytes --]


-- 
Janneke Nieuwenhuizen <janneke@gnu.org>  | GNU LilyPond https://LilyPond.org
Freelance IT https://www.JoyOfSource.com | Avatar® https://AvatarAcademy.com