bug#32326: Failing Tests on Fedora 28

[Ludovic Courtès]

Hello,

Michael Bowcutt <address@hidden> skribis:

> After building guix 0.15.0 from git on Fedora 28, I've had 10 tests
> fail.
>
> My dependency versions are:
>
>    GNU Guile: 2.0.14
>    GNU libgcrypt: 1.8.3
>    GnuTLS: 3.6.3
>    Guile-SQLite3: 0.1.0
>    Guile-Git: 0.1.0
>    zlib: 1.2.11
>    GNU Make: 4.2.1
>
>    Guile-JSON: 1.0.1
>    Guile-SSH: 0.11.3
>    libbz2: 1.0.6
>
>    SQLite 3: 3.22.0
>    GCC g++: 8.1.1
>
> In all, the failing modules (accoring to the output of 'make check')
> are
>
>    hackage.scm
>    inferior.scm
>    pack.scm
>    lint.scm
>
> My test-suite.log
>
> https://gist.github.com/74f868731a211c0d408ed088b357b4ea.git

For posterity, the relevant bits are:

--8<---------------cut here---------------start------------->8---
========================================================
   GNU Guix 0.15.0.588-92eb7a-dirty: ./test-suite.log
========================================================

[...]

FAIL: tests/hackage
===================

test-name: hackage->guix-package test 1
location: /home/mbowcutt/src/guix/tests/hackage.scm:191
source:
+ (test-assert
+   "hackage->guix-package test 1"
+   (eval-test-with-cabal test-cabal-1))
actual-value: #f
actual-error:
+ (match-error "match" "no matching pattern" ())
result: FAIL

[...]

test-name: open-inferior
location: /home/mbowcutt/src/guix/tests/inferior.scm:35
source:
+ (test-equal
+   "open-inferior"
+   '(42 #t)
+   (let ((inferior
+           (open-inferior
+             %top-builddir
+             #:command
+             "scripts/guix")))
+     (and (inferior? inferior)
+          (let ((a (inferior-eval '(apply * '(6 7)) inferior))
+                (b (inferior-eval
+                     '(@ (gnu packages base) coreutils)
+                     inferior)))
+            (close-inferior inferior)
+            (list a (inferior-object? b))))))
expected-value: (42 #t)
actual-value: #f
actual-error:
+ (wrong-type-arg
+   "setvbuf"
+   "Wrong type argument in position ~A (expecting ~A): ~S"
+   (1
+    "port that supports 'setvbuf'"
+    #<input-output: soft 55c366b48b60>)
+   (#<input-output: soft 55c366b48b60>))
result: FAIL

[...]

test-name: self-contained-tarball
location: /home/mbowcutt/src/guix/tests/pack.scm:55
source:
+ (test-assert
+   "self-contained-tarball"
+   (run-with-store
+     %store
+     (mlet* %store-monad
+            ((profile
+               (profile-derivation
+                 (packages->manifest (list %bootstrap-guile))
+                 #:hooks
+                 '()
+                 #:locales?
+                 #f))
+             (tarball
+               (self-contained-tarball
+                 "pack"
+                 profile
+                 #:symlinks
+                 '(("/bin/Guile" -> "bin/guile"))
+                 #:compressor
+                 %gzip-compressor
+                 #:archiver
+                 %tar-bootstrap))
+             (check (gexp->derivation
+                      "check-tarball"
+                      (gexp (let ((bin (string-append
+                                         "."
+                                         (ungexp profile)
+                                         "/bin")))
+                              (setenv
+                                "PATH"
+                                (string-append
+                                  (ungexp %tar-bootstrap)
+                                  "/bin"))
+                              (system* "tar" "xvf" (ungexp tarball))
+                              (mkdir (ungexp output))
+                              (exit (and (file-exists?
+                                           (string-append bin "/guile"))
+                                         (string=?
+                                           (string-append
+                                             (ungexp %bootstrap-guile)
+                                             "/bin")
+                                           (readlink bin))
+                                         (string=?
+                                           (string-append
+                                             ".."
+                                             (ungexp profile)
+                                             "/bin/guile")
+                                           (readlink "bin/Guile")))))))))
+            (built-derivations (list check)))
+     #:guile-for-build
+     (%guile-for-build)))
random seed for tests: 1532991357
@ build-started 
/home/mbowcutt/src/guix/test-tmp/store/wvsd38w2sryrr5k4h8lydib6vm77k5zb-ld-wrapper-boot0-0.drv
 - x86_64-linux 
/home/mbowcutt/src/guix/test-tmp/var/log/guix/drvs/wv//sd38w2sryrr5k4h8lydib6vm77k5zb-ld-wrapper-boot0-0.drv.bz2

[...]

FAIL: tests/guix-lint
=====================

accepted connection from pid 23697, user mbowcutt
+ guix lint --version
guix lint (GNU Guix) 0.15.0.588-92eb7a-dirty
Copyright (C) 2018 the Guix authors
License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.
+ module_dir=t-guix-lint-23710
+ mkdir t-guix-lint-23710
+ trap 'rm -rf t-guix-lint-23710' EXIT
+ cat
+ GUIX_PACKAGE_PATH=t-guix-lint-23710
+ export GUIX_PACKAGE_PATH
++ guix lint -c synopsis,description dummy
+ out='t-guix-lint-23710/foo.scm:10:17: address@hidden: sentences in 
description should be followed by two spaces; possible infraction at 13
t-guix-lint-23710/foo.scm:9:14: address@hidden: synopsis should start with an 
upper-case letter or digit'
++ grep_warning 't-guix-lint-23710/foo.scm:10:17: address@hidden: sentences in 
description should be followed by two spaces; possible infraction at 13
t-guix-lint-23710/foo.scm:9:14: address@hidden: synopsis should start with an 
upper-case letter or digit'
+++ echo 't-guix-lint-23710/foo.scm:10:17: address@hidden: sentences in 
description should be followed by two spaces; possible infraction at 13
t-guix-lint-23710/foo.scm:9:14: address@hidden: synopsis should start with an 
upper-case letter or digit'
+++ grep -E -c '(synopsis|description) should'
++ res=2
++ echo 2
+ '[' 2 -ne 3 ']'
+ false
+ rm -rf t-guix-lint-23710
./test-env: line 1: 23696 Terminated              
"/home/mbowcutt/src/guix/pre-inst-env" "/home/mbowcutt/src/guix/guix-daemon" 
--disable-chroot --substitute-urls="$GUIX_BINARY_SUBSTITUTE_URL"
FAIL tests/guix-lint.sh (exit status: 1)
--8<---------------cut here---------------end--------------->8---

I fixed tests/inferior.scm in commit
a81b59b1bf99255cf78d736c3d2aa28eb1e9bbdf.

The other issues have to do with developer tools that you may not need
(yet! ;-)), and I’m tempted to ignore them since we will soon drop
support for Guile 2.0 (these test failures don’t show up on Guile 2.2.)

Thus I highly encourage you to upgrade to Guile 2.2.  I think Fedora has
a Guile 2.2 package, but otherwise you can install Guix from the binary
tarball, or simply get it by running “guix pull”: that’ll give you
Guix-on-Guile-2.2 as ~/.config/guix/current/bin/guix.

Thanks for your report,
Ludo’.