GNU bug report logs - #34938
`make check-system` test suite failed

Previous Next

Package: guix;

Reported by: mikadoZero <mikadozero <at> yandex.com>

Date: Thu, 21 Mar 2019 19:20:03 UTC

Severity: normal

To reply to this bug, email your comments to 34938 AT debbugs.gnu.org.

Toggle the display of automated, internal messages from the tracker.

View this report as an mbox folder, status mbox, maintainer mbox


Report forwarded to bug-guix <at> gnu.org:
bug#34938; Package guix. (Thu, 21 Mar 2019 19:20:03 GMT) Full text and rfc822 format available.

Acknowledgement sent to mikadoZero <mikadozero <at> yandex.com>:
New bug report received and forwarded. Copy sent to bug-guix <at> gnu.org. (Thu, 21 Mar 2019 19:20:03 GMT) Full text and rfc822 format available.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: mikadoZero <mikadozero <at> yandex.com>
To: bug-guix <at> gnu.org
Subject: `make check-system` test suite failed
Date: Thu, 21 Mar 2019 15:18:10 -0400
I get two failing test and an error when running `make check-system`.

`guix describe`
guix 6e42cef
    repository URL: https://git.savannah.gnu.org/git/guix.git
    branch: master
    commit: 6e42cef0abdce00629294794ba06fe75e161ffb4

In the guix repository `git describe` outputs:
v0.16.0-3757-gf1aa44ada

This is what I have done to get the error message.

Clone the Guix repository
`cd guix`
`guix environment guix`
`./bootstrap`
`./configure --localstatedir=/var`
`make -j3`
`make check-system -j3`

Below is the end of the output for `make check-system`.  I would include
"test-suite.log" but it was not successfully created.


============================================================================
Testsuite summary for GNU Guix 0.16.0-10.2637cfd
============================================================================
# TOTAL: 880
# PASS:  835
# SKIP:  43
# XFAIL: 0
# FAIL:  2
# XPASS: 0
# ERROR: 0
============================================================================
See ./test-suite.log
Please report to bug-guix <at> gnu.org
============================================================================
make[4]: *** [Makefile:4626: test-suite.log] Error 1
make[4]: Leaving directory '/tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source'
make[3]: *** [Makefile:4734: check-TESTS] Error 2
make[3]: Leaving directory '/tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source'
make[2]: *** [Makefile:4977: check-am] Error 2
make[2]: Leaving directory '/tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source'
make[1]: *** [Makefile:4511: check-recursive] Error 1
make[1]: Leaving directory '/tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source'
make: *** [Makefile:4979: check] Error 2

Test suite failed, dumping logs.

--- ./test-suite.log --------------------------------------------------------

==================================================
   GNU Guix 0.16.0-10.2637cfd: ./test-suite.log
==================================================

# TOTAL: 880
# PASS:  835
# SKIP:  43
# XFAIL: 0
# FAIL:  2
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

SKIP: tests/base32
==================

sh: nix-hash: command not found
test-name: bytevector->base32-string
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/base32.scm:48
source:
+ (test-assert
+   "bytevector->base32-string"
+   (fold (lambda (bv expected result)
+           (and result
+                (string=?
+                  (bytevector->base32-string bv)
+                  expected)))
+         #t
+         (map string->utf8
+              '("" "f" "fo" "foo" "foob" "fooba" "foobar"))
+         '(""
+           "my"
+           "mzxq"
+           "mzxw6"
+           "mzxw6yq"
+           "mzxw6ytb"
+           "mzxw6ytboi")))
actual-value: #t
result: PASS

test-name: base32-string->bytevector
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/base32.scm:65
source:
+ (test-assert
+   "base32-string->bytevector"
+   (every (lambda (bv)
+            (equal?
+              (base32-string->bytevector
+                (bytevector->base32-string bv))
+              bv))
+          (map string->utf8
+               '("" "f" "fo" "foo" "foob" "fooba" "foobar"))))
actual-value: #t
result: PASS

test-name: nix-base32-string->bytevector
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/base32.scm:73
source:
+ (test-assert
+   "nix-base32-string->bytevector"
+   (every (lambda (bv)
+            (equal?
+              (nix-base32-string->bytevector
+                (bytevector->nix-base32-string bv))
+              bv))
+          (map string->utf8
+               '("" "f" "fo" "foo" "foob" "fooba" "foobar"))))
actual-value: #t
result: PASS

test-name: &invalid-base32-character
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/base32.scm:81
source:
+ (test-equal
+   "&invalid-base32-character"
+   #\e
+   (guard (c ((invalid-base32-character? c)
+              (invalid-base32-character-value c)))
+          (nix-base32-string->bytevector
+            (string-append (make-string 51 #\a) "e"))))
expected-value: #\e
actual-value: #\e
result: PASS

test-name: sha256 & bytevector->nix-base32-string
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/base32.scm:92
source:
+ (test-assert
+   "sha256 & bytevector->nix-base32-string"
+   (let ((file (search-path %load-path "tests/test.drv")))
+     (equal?
+       (bytevector->nix-base32-string
+         (sha256
+           (call-with-input-file file get-bytevector-all)))
+       (let* ((c (format
+                   #f
+                   "~a --type sha256 --base32 --flat \"~a\""
+                   %nix-hash
+                   file))
+              (p (open-input-pipe c))
+              (l (read-line p)))
+         (close-pipe p)
+         l))))
result: SKIP


SKIP: tests/cpio
================

random seed for tests: 1553196973
test-name: file->cpio-header + write-cpio-header + read-cpio-header
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/cpio.scm:37
source:
+ (test-assert
+   "file->cpio-header + write-cpio-header + read-cpio-header"
+   (let* ((file (search-path %load-path "guix.scm"))
+          (header (file->cpio-header file)))
+     (call-with-values
+       (lambda () (open-bytevector-output-port))
+       (lambda (port get-bv)
+         (write-cpio-header header port)
+         (let ((port (open-bytevector-input-port (get-bv))))
+           (equal? header (read-cpio-header port)))))))
actual-value: #t
result: PASS

test-name: bit-identical to GNU cpio's output
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/cpio.scm:49
source:
+ (test-assert
+   "bit-identical to GNU cpio's output"
+   (call-with-temporary-output-file
+     (lambda (link _)
+       (delete-file link)
+       (symlink "chbouib" link)
+       (let ((files (cons* "/"
+                           (canonicalize-path
+                             (dirname (search-path %load-path "guix.scm")))
+                           link
+                           (map (compose
+                                  canonicalize-path
+                                  (cut search-path %load-path <>))
+                                '("guix.scm"
+                                  "guix/build/syscalls.scm"
+                                  "guix/packages.scm")))))
+         (call-with-temporary-output-file
+           (lambda (ref-file _)
+             (let ((pipe (open-pipe*
+                           OPEN_WRITE
+                           %cpio-program
+                           "-o"
+                           "-O"
+                           ref-file
+                           "-H"
+                           "newc"
+                           "--null")))
+               (for-each
+                 (lambda (file) (format pipe "~a\x00" file))
+                 files)
+               (and (zero? (close-pipe pipe))
+                    (call-with-temporary-output-file
+                      (lambda (file port)
+                        (write-cpio-archive files port)
+                        (close-port port)
+                        (or (file=? ref-file file)
+                            (throw 'cpio-archives-differ
+                                   files
+                                   ref-file
+                                   file
+                                   (stat:size (stat ref-file))
+                                   (stat:size (stat file))))))))))))))
result: SKIP


SKIP: tests/builders
====================

random seed for tests: 1553197232
test-name: url-fetch
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/builders.scm:66
source:
+ (test-assert
+   "url-fetch"
+   (let* ((url '("http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"
+                 "ftp://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz"))
+          (hash (nix-base32-string->bytevector
+                  "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
+          (drv (url-fetch*
+                 %store
+                 url
+                 'sha256
+                 hash
+                 #:guile
+                 %bootstrap-guile))
+          (out-path (derivation->output-path drv)))
+     (and (build-derivations %store (list drv))
+          (file-exists? out-path)
+          (valid-path? %store out-path))))
result: SKIP

test-name: url-fetch, file
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/builders.scm:78
source:
+ (test-assert
+   "url-fetch, file"
+   (let* ((file (search-path %load-path "guix.scm"))
+          (hash (call-with-input-file file port-sha256))
+          (out (url-fetch* %store file 'sha256 hash)))
+     (and (file-exists? out) (valid-path? %store out))))
actual-value: #t
result: PASS

test-name: url-fetch, file URI
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/builders.scm:85
source:
+ (test-assert
+   "url-fetch, file URI"
+   (let* ((file (search-path %load-path "guix.scm"))
+          (hash (call-with-input-file file port-sha256))
+          (out (url-fetch*
+                 %store
+                 (string-append
+                   "file://"
+                   (canonicalize-path file))
+                 'sha256
+                 hash)))
+     (and (file-exists? out) (valid-path? %store out))))
actual-value: #t
result: PASS

test-name: gnu-build-system
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/builders.scm:94
source:
+ (test-assert
+   "gnu-build-system"
+   (build-system? gnu-build-system))
actual-value: #t
result: PASS

test-name: gnu-build
location: /tmp/guix-build-guix-0.16.0-10.2637cfd+.drv-0/source/tests/builders.scm:99
source:
+ (test-assert
+   "gnu-build"
+   (let* ((url "http://ftp.gnu.org/gnu/hello/hello-2.8.tar.gz")
+          (hash (nix-base32-string->bytevector
+                  "0wqd8sjmxfskrflaxywc7gqw7sfawrfvdxd9skxawzfgyy0pzdz6"))
+          (tarball
+            (url-fetch*
+              %store
+              url
+              'sha256
+              hash
+              #:guile
+              %bootstrap-guile))
+          (build (gnu-build
+                   %store
+                   "hello-2.8"
+                   `(("source" ,tarball) ,@%bootstrap-inputs)
+                   #:guile
+                   %bootstrap-guile
+                   #:search-paths
+                   %bootstrap-search-paths))
+          (out (derivation->output-path build)))
+     (and (build-derivations
+            %store
+            (list (pk 'hello-drv build)))
+          (valid-path? %store out)
+          (file-exists? (string-append out "/bin/hello")))))
result: SKIP


SKIP: tests/derivations
=======================

random seed for tests: 1553197142
Backtrace:
          18 (apply-smob/1 #<catch-closure dffa20>)
In ice-9/boot-9.scm:
    705:2 17 (call-with-prompt _ _ #<procedure default-prompt-handler (k proc)>)
In ice-9/eval.scm:
    619:8 16 (_ #(#(#<directory (guile-user) e7d140>)))
In ice-9/boot-9.scm:
    142:2 15 (dynamic-wind _ _ #<procedure 3294720 at ice-9/eval.scm:330:13 ()>)
    152:2 14 (with-fluid* _ _ _)
In guix/status.scm:
    810:4 13 (call-with-status-report _ _)
In guix/store.scm:
  1737:24 12 (run-with-store _ _ #:guile-for-build _ #:system _ #:target _)
In unknown file:
          11 (_ #<procedure 99f6880 at ice-9/eval.scm:330:13 ()> #<procedure 99…> …)
In ice-9/boot-9.scm:
    829:9 10 (catch srfi-34 #<procedure 99f6600 at ice-9/eval.scm:330:13 ()> #<…> …)
In ice-9/eval.scm:
    159:9  9 (_ #(#(#<directory (run-system-tests) ea0aa0> #<store-connectio…> …)))
In guix/store.scm:
  1151:15  8 (_ #<store-connection 256.99 84a2d20> _ _)
   704:13  7 (process-stderr _ _)
In unknown file:
           6 (display "       'sha256\n+              hash\n+              #:gu…" …)
In guix/status.scm:
   733:16  5 (write! _ _ _)
    647:6  4 (_ (build-started "/tmp/guix-tests/store/vcj9833sk577wd7qxzvmgq…" …) …)
   511:24  3 (print-build-event _ _ _ _ #:colorize? _ #:print-log? _)
In guix/derivations.scm:
   495:17  2 (read-derivation-from-file "/tmp/guix-tests/store/vcj9833sk577wd7qx…")
In ice-9/ports.scm:
   439:11  1 (call-with-input-file "/tmp/guix-tests/store/vcj9833sk577wd7qxzvmg…" …)
In unknown file:
           0 (open-file "/tmp/guix-tests/store/vcj9833sk577wd7qxzvmgqcfbf9b4sjz…" …)

ERROR: In procedure open-file:
In procedure open-file: No such file or directory: "/tmp/guix-tests/store/vcj9833sk5
77wd7qxzvmgqcfbf9b4sjz-foo.drv"                                                    
make: *** [Makefile:5417: check-system] Error 1




Information forwarded to bug-guix <at> gnu.org:
bug#34938; Package guix. (Tue, 26 Mar 2019 10:13:01 GMT) Full text and rfc822 format available.

Message #8 received at 34938 <at> debbugs.gnu.org (full text, mbox):

From: Ludovic Courtès <ludo <at> gnu.org>
To: mikadoZero <mikadozero <at> yandex.com>
Cc: 34938 <at> debbugs.gnu.org
Subject: Re: bug#34938: `make check-system` test suite failed
Date: Tue, 26 Mar 2019 11:12:04 +0100
Hi,

mikadoZero <mikadozero <at> yandex.com> skribis:

> ============================================================================
> Testsuite summary for GNU Guix 0.16.0-10.2637cfd
> ============================================================================
> # TOTAL: 880
> # PASS:  835
> # SKIP:  43
> # XFAIL: 0
> # FAIL:  2
> # XPASS: 0
> # ERROR: 0

This is likely the same issue as the one you reported in
<https://issues.guix.info/issue/34945>.

Could you try again?

Note that system installation tests cause a rebuild of the current Guix,
and are thus very expensive.

Ludo’.




Information forwarded to bug-guix <at> gnu.org:
bug#34938; Package guix. (Sun, 31 Mar 2019 21:41:01 GMT) Full text and rfc822 format available.

Message #11 received at 34938 <at> debbugs.gnu.org (full text, mbox):

From: mikadoZero <mikadozero <at> yandex.com>
To: Ludovic Courtès <ludo <at> gnu.org>
Cc: 34938 <at> debbugs.gnu.org
Subject: Re: bug#34938: `make check-system` test suite failed
Date: Sun, 31 Mar 2019 17:39:25 -0400
[Message part 1 (text/plain, inline)]
Ludovic Courtès writes:

> ...
>
> This is likely the same issue as the one you reported in
> <https://issues.guix.info/issue/34945>.
>
> Could you try again?
>
> ...

I have rerun `make check-system -j3` as a non root user and it looks
like the same results.  There two failed tests and it is still failing
to create the log file that it refers to in it's output.

I have attached all the output that I can scroll back and recover.

In the output it says there are two failed tests.  Searching for those
in the output I see these two lines:

FAIL: tests/guix-package.sh

FAIL: tests/guix-system.sh

---

[makeCheckSystemFail (plain/text, attachment)]

This bug report was last modified 6 years and 73 days ago.

Previous Next


GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.