unofficial mirror of guix-devel@gnu.org 
 help / color / mirror / code / Atom feed
* Test failures on new build
@ 2021-04-12  2:29 Stephen Paul Weber
  2021-04-12  9:32 ` Maxime Devos
  0 siblings, 1 reply; 4+ messages in thread
From: Stephen Paul Weber @ 2021-04-12  2:29 UTC (permalink / raw)
  To: guix-devel

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

Trying to get an environment for hacking on Guix going on my new computer.
Installed guix on my Debian stable using guix-install.sh then ran guix pull.
Did a fresh git clone on guix then

guix environment guix --pure
./bootstrap
./configure --localstatedir=/var
make -j24
make -j24 check

mostly works, but I get these failures:

FAIL: tests/guix-git-authenticate.sh
PASS: tests/workers.scm
make[4]: *** [Makefile:5605: tests/derivations.log] Error 1
make[4]: *** Waiting for unfinished jobs....
FAIL: tests/build-utils.scm
make[4]: *** [Makefile:5605: tests/grafts.log] Error 1

any thoughts?

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Test failures on new build
  2021-04-12  2:29 Test failures on new build Stephen Paul Weber
@ 2021-04-12  9:32 ` Maxime Devos
  2021-04-13  1:50   ` Stephen Paul Weber
  0 siblings, 1 reply; 4+ messages in thread
From: Maxime Devos @ 2021-04-12  9:32 UTC (permalink / raw)
  To: Stephen Paul Weber, guix-devel

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

On Sun, 2021-04-11 at 21:29 -0500, Stephen Paul Weber wrote:
> [...], but I get these failures:
> 
> FAIL: tests/guix-git-authenticate.sh
Could you attach tests/guix-git-authenticate.log? 
> PASS: tests/workers.scm
> make[4]: *** [Makefile:5605: tests/derivations.log] Error 1
Likewise.
> make[4]: *** Waiting for unfinished jobs....
> FAIL: tests/build-utils.scm
Likewise.
> make[4]: *** [Makefile:5605: tests/grafts.log] Error 1
Likewise.

Greetings,
Maxime.

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Test failures on new build
  2021-04-12  9:32 ` Maxime Devos
@ 2021-04-13  1:50   ` Stephen Paul Weber
  2021-04-13  8:57     ` Maxime Devos
  0 siblings, 1 reply; 4+ messages in thread
From: Stephen Paul Weber @ 2021-04-13  1:50 UTC (permalink / raw)
  To: Maxime Devos; +Cc: guix-devel


[-- Attachment #1.1: Type: text/plain, Size: 96 bytes --]

>Could you attach tests/guix-git-authenticate.log?
>Likewise.
>Likewise.
>Likewise.

Attached.


[-- Attachment #1.2: guix-git-authenticate.log --]
[-- Type: text/plain, Size: 614 bytes --]

+ '[' -d /home/singpolyma/src/guix/.git ']'
+ guile -c '(use-modules (git))
  (member "refs/heads/keyring" (branch-list (repository-open ".")))'
+ intro_commit=9edb3f66fd807b096b48283debdcddccfea34bad
+ intro_signer='BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA'
+ cache_key=test-4756
+ guix git authenticate 9edb3f66fd807b096b48283debdcddccfea34bad 'BBB0 2DDF 2CEA F6A8 0D1D  E643 A2A0 6DF2 A33A 54FA' --cache-key=test-4756 --stats --end=9549f0283a78fe36f2d4ff2a04ef8ad6b0c02604
guix git: error: Git error: cannot locate remote-tracking branch 'keyring'
FAIL tests/guix-git-authenticate.sh (exit status: 1)

[-- Attachment #1.3: derivations.log --]
[-- Type: text/plain, Size: 1004 bytes --]

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable
substitute: guix substitute: warning: authentication and authorization of substitutes disabled!
waiting for locks or build slots...
Backtrace:
           8 (primitive-load-path "tests/derivations.scm")
In ice-9/eval.scm:
   626:19  7 (_ #<directory (test-derivations) 7f2207c666e0>)
   293:34  6 (_ #(#(#<directory (test-derivations) 7f2207c666e0>) #))
In ice-9/boot-9.scm:
  1736:10  5 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
   636:37  4 (thunk)
  2066:24  3 (run-with-store #<store-connection 256.99 7f21fd396a00> ?)
In guix/tests.scm:
   122:18  2 (_ _)
In guix/ui.scm:
    566:4  1 (_ system-error "copy-file" _ _ _)
In ice-9/boot-9.scm:
  1669:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1669:16: In procedure raise-exception:
In procedure copy-file: Permission denied: "/home/singpolyma/src/guix/gnu/packages/bootstrap/i686-linux/bash"

[-- Attachment #1.4: build-utils.log --]
[-- Type: text/plain, Size: 12903 bytes --]

test-name: alist-cons-before
location: /home/singpolyma/src/guix/tests/build-utils.scm:37
source:
+ (test-equal
+   "alist-cons-before"
+   '((a . 1) (x . 42) (b . 2) (c . 3))
+   (alist-cons-before
+     'b
+     'x
+     42
+     '((a . 1) (b . 2) (c . 3))))
expected-value: ((a . 1) (x . 42) (b . 2) (c . 3))
actual-value: ((a . 1) (x . 42) (b . 2) (c . 3))
result: PASS

test-name: alist-cons-before, reference not found
location: /home/singpolyma/src/guix/tests/build-utils.scm:41
source:
+ (test-equal
+   "alist-cons-before, reference not found"
+   '((a . 1) (b . 2) (c . 3) (x . 42))
+   (alist-cons-before
+     'z
+     'x
+     42
+     '((a . 1) (b . 2) (c . 3))))
expected-value: ((a . 1) (b . 2) (c . 3) (x . 42))
actual-value: ((a . 1) (b . 2) (c . 3) (x . 42))
result: PASS

test-name: alist-cons-after
location: /home/singpolyma/src/guix/tests/build-utils.scm:45
source:
+ (test-equal
+   "alist-cons-after"
+   '((a . 1) (b . 2) (x . 42) (c . 3))
+   (alist-cons-after
+     'b
+     'x
+     42
+     '((a . 1) (b . 2) (c . 3))))
expected-value: ((a . 1) (b . 2) (x . 42) (c . 3))
actual-value: ((a . 1) (b . 2) (x . 42) (c . 3))
result: PASS

test-name: alist-cons-after, reference not found
location: /home/singpolyma/src/guix/tests/build-utils.scm:49
source:
+ (test-equal
+   "alist-cons-after, reference not found"
+   '((a . 1) (b . 2) (c . 3) (x . 42))
+   (alist-cons-after
+     'z
+     'x
+     42
+     '((a . 1) (b . 2) (c . 3))))
expected-value: ((a . 1) (b . 2) (c . 3) (x . 42))
actual-value: ((a . 1) (b . 2) (c . 3) (x . 42))
result: PASS

test-name: alist-replace
location: /home/singpolyma/src/guix/tests/build-utils.scm:53
source:
+ (test-equal
+   "alist-replace"
+   '((a . 1) (b . 77) (c . 3))
+   (alist-replace 'b 77 '((a . 1) (b . 2) (c . 3))))
expected-value: ((a . 1) (b . 77) (c . 3))
actual-value: ((a . 1) (b . 77) (c . 3))
result: PASS

test-name: alist-replace, key not found
location: /home/singpolyma/src/guix/tests/build-utils.scm:57
source:
+ (test-assert
+   "alist-replace, key not found"
+   (not (false-if-exception
+          (alist-replace 'z 77 '((a . 1) (b . 2) (c . 3))))))
actual-value: #t
result: PASS

test-name: fold-port-matches
location: /home/singpolyma/src/guix/tests/build-utils.scm:61
source:
+ (test-equal
+   "fold-port-matches"
+   (make-list 3 "Guix")
+   (call-with-input-string
+     "Guix is cool, Guix rocks, and it uses Guile, Guix!"
+     (lambda (port)
+       (fold-port-matches cons '() "Guix" port))))
expected-value: ("Guix" "Guix" "Guix")
actual-value: ("Guix" "Guix" "Guix")
result: PASS

test-name: fold-port-matches, trickier
location: /home/singpolyma/src/guix/tests/build-utils.scm:67
source:
+ (test-equal
+   "fold-port-matches, trickier"
+   (reverse '("Guix" "guix" "Guix" "guiX" "Guix"))
+   (call-with-input-string
+     "Guix, guix, GuiGuixguiX, Guix"
+     (lambda (port)
+       (fold-port-matches
+         cons
+         '()
+         (list (char-set #\G #\g)
+               (char-set #\u)
+               (char-set #\i)
+               (char-set #\x #\X))
+         port))))
expected-value: ("Guix" "guiX" "Guix" "guix" "Guix")
actual-value: ("Guix" "guiX" "Guix" "guix" "Guix")
result: PASS

test-name: fold-port-matches, with unmatched chars
location: /home/singpolyma/src/guix/tests/build-utils.scm:78
source:
+ (test-equal
+   "fold-port-matches, with unmatched chars"
+   '("Guix"
+     #\,
+     #\space
+     "guix"
+     #\,
+     #\space
+     #\G
+     #\u
+     #\i
+     "Guix"
+     "guiX"
+     #\,
+     #\space
+     "Guix")
+   (call-with-input-string
+     "Guix, guix, GuiGuixguiX, Guix"
+     (lambda (port)
+       (reverse
+         (fold-port-matches
+           cons
+           '()
+           (list (char-set #\G #\g)
+                 (char-set #\u)
+                 (char-set #\i)
+                 (char-set #\x #\X))
+           port
+           cons)))))
expected-value: ("Guix" #\, #\space "guix" #\, #\space #\G #\u #\i "Guix" "guiX" #\, #\space "Guix")
actual-value: ("Guix" #\, #\space "guix" #\, #\space #\G #\u #\i "Guix" "guiX" #\, #\space "Guix")
result: PASS

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable
substitute: guix substitute: warning: authentication and authorization of substitutes disabled!
waiting for locks or build slots...
test-name: wrap-program, one input, multiple calls
location: /home/singpolyma/src/guix/tests/build-utils.scm:94
source:
+ (test-equal
+   "wrap-program, one input, multiple calls"
+   "hello world\n"
+   (call-with-temporary-directory
+     (lambda (directory)
+       (let ((bash (search-bootstrap-binary
+                     "bash"
+                     (%current-system)))
+             (foo (string-append directory "/foo")))
+         (call-with-output-file
+           foo
+           (lambda (p)
+             (format
+               p
+               "#!~a~%echo \"${GUIX_FOO} ${GUIX_BAR}\"~%"
+               bash)))
+         (chmod foo 511)
+         (with-environment-variable
+           "PATH"
+           (dirname bash)
+           (wrap-program foo `("GUIX_FOO" prefix ("hello")))
+           (wrap-program foo `("GUIX_BAR" prefix ("world")))
+           (unsetenv "LOCPATH")
+           (let* ((pipe (open-input-pipe foo))
+                  (str (get-string-all pipe)))
+             (with-directory-excursion
+               directory
+               (for-each delete-file '("foo" ".foo-real")))
+             (and (zero? (close-pipe pipe)) str)))))))
expected-value: "hello world\n"
actual-value: #f
actual-error:
+ (system-error
+   "copy-file"
+   "~A: ~S"
+   ("Permission denied"
+    "/home/singpolyma/src/guix/gnu/packages/bootstrap/i686-linux/bash")
+   (13))
result: FAIL

test-name: invoke/quiet, success
location: /home/singpolyma/src/guix/tests/build-utils.scm:128
source:
+ (test-assert
+   "invoke/quiet, success"
+   (begin (invoke/quiet "true") #t))
actual-value: #t
result: PASS

test-name: invoke/quiet, failure
location: /home/singpolyma/src/guix/tests/build-utils.scm:133
source:
+ (test-assert
+   "invoke/quiet, failure"
+   (guard (c ((message-condition? c)
+              (string-contains
+                (condition-message c)
+                "This is an error.")))
+          (invoke/quiet
+            "sh"
+            "-c"
+            "echo This is an error. ; false")
+          #f))
actual-value: 12
result: PASS

test-name: invoke/quiet, failure, message on stderr
location: /home/singpolyma/src/guix/tests/build-utils.scm:139
source:
+ (test-assert
+   "invoke/quiet, failure, message on stderr"
+   (guard (c ((message-condition? c)
+              (string-contains
+                (condition-message c)
+                "This is another error.")))
+          (invoke/quiet
+            "sh"
+            "-c"
+            "echo This is another error. >&2 ; false")
+          #f))
actual-value: 12
result: PASS

test-name: wrap-script, simple case
location: /home/singpolyma/src/guix/tests/build-utils.scm:151
source:
+ (test-equal
+   "wrap-script, simple case"
+   (string-append
+     (format
+       #f
+       "#!~a --no-auto-compile\n#!#; Guix wrapper\n#\\-~s\n#\\-~s\n"
+       (which "guile")
+       '(begin
+          (let ((current (getenv "GUIX_FOO")))
+            (setenv
+              "GUIX_FOO"
+              (if current
+                (string-append
+                  "/some/path:/some/other/path"
+                  ":"
+                  current)
+                "/some/path:/some/other/path"))))
+       '(let ((cl (command-line)))
+          (apply execl
+                 "/anything/cabbage-bash-1.2.3/bin/sh"
+                 (car cl)
+                 (cons (car cl) (append '("") cl)))))
+     script-contents)
+   (call-with-temporary-directory
+     (lambda (directory)
+       (let ((script-file-name
+               (string-append directory "/foo")))
+         (call-with-output-file
+           script-file-name
+           (lambda (port) (display script-contents port)))
+         (chmod script-file-name 511)
+         (wrap-script
+           script-file-name
+           `("GUIX_FOO"
+             prefix
+             ("/some/path" "/some/other/path")))
+         (let ((str (call-with-input-file
+                      script-file-name
+                      get-string-all)))
+           (with-directory-excursion
+             directory
+             (delete-file "foo"))
+           str)))))
expected-value: "#!/home/singpolyma/src/guix/guile --no-auto-compile\n#!#; Guix wrapper\n#\\-(begin (let ((current (getenv \"GUIX_FOO\"))) (setenv \"GUIX_FOO\" (if current (string-append \"/some/path:/some/other/path\" \":\" current) \"/some/path:/some/other/path\"))))\n#\\-(let ((cl (command-line))) (apply execl \"/anything/cabbage-bash-1.2.3/bin/sh\" (car cl) (cons (car cl) (append (quote (\"\")) cl))))\n#!/anything/cabbage-bash-1.2.3/bin/sh\n\necho hello world"
actual-value: "#!/home/singpolyma/src/guix/guile --no-auto-compile\n#!#; Guix wrapper\n#\\-(begin (let ((current (getenv \"GUIX_FOO\"))) (setenv \"GUIX_FOO\" (if current (string-append \"/some/path:/some/other/path\" \":\" current) \"/some/path:/some/other/path\"))))\n#\\-(let ((cl (command-line))) (apply execl \"/anything/cabbage-bash-1.2.3/bin/sh\" (car cl) (cons (car cl) (append (quote (\"\")) cl))))\n#!/anything/cabbage-bash-1.2.3/bin/sh\n\necho hello world"
result: PASS

test-name: wrap-script, with encoding declaration
location: /home/singpolyma/src/guix/tests/build-utils.scm:192
source:
+ (test-equal
+   "wrap-script, with encoding declaration"
+   (string-append
+     (format
+       #f
+       "#!MYGUILE --no-auto-compile\n#!#; # vim:fileencoding=utf-8\n#\\-~s\n#\\-~s\n"
+       '(begin
+          (let ((current (getenv "GUIX_FOO")))
+            (setenv
+              "GUIX_FOO"
+              (if current
+                (string-append
+                  "/some/path:/some/other/path"
+                  ":"
+                  current)
+                "/some/path:/some/other/path"))))
+       `(let ((cl (command-line)))
+          (apply execl
+                 "/anything/cabbage-bash-1.2.3/bin/python3"
+                 (car cl)
+                 (cons (car cl) (append '("" "-and" "-args") cl)))))
+     script-contents)
+   (call-with-temporary-directory
+     (lambda (directory)
+       (let ((script-file-name
+               (string-append directory "/foo")))
+         (call-with-output-file
+           script-file-name
+           (lambda (port) (format port script-contents)))
+         (chmod script-file-name 511)
+         (wrap-script
+           script-file-name
+           #:guile
+           "MYGUILE"
+           `("GUIX_FOO"
+             prefix
+             ("/some/path" "/some/other/path")))
+         (let ((str (call-with-input-file
+                      script-file-name
+                      get-string-all)))
+           (with-directory-excursion
+             directory
+             (delete-file "foo"))
+           str)))))
expected-value: "#!MYGUILE --no-auto-compile\n#!#; # vim:fileencoding=utf-8\n#\\-(begin (let ((current (getenv \"GUIX_FOO\"))) (setenv \"GUIX_FOO\" (if current (string-append \"/some/path:/some/other/path\" \":\" current) \"/some/path:/some/other/path\"))))\n#\\-(let ((cl (command-line))) (apply execl \"/anything/cabbage-bash-1.2.3/bin/python3\" (car cl) (cons (car cl) (append (quote (\"\" \"-and\" \"-args\")) cl))))\n#!/anything/cabbage-bash-1.2.3/bin/python3 -and -args\n# vim:fileencoding=utf-8\nprint('hello world')"
actual-value: "#!MYGUILE --no-auto-compile\n#!#; # vim:fileencoding=utf-8\n#\\-(begin (let ((current (getenv \"GUIX_FOO\"))) (setenv \"GUIX_FOO\" (if current (string-append \"/some/path:/some/other/path\" \":\" current) \"/some/path:/some/other/path\"))))\n#\\-(let ((cl (command-line))) (apply execl \"/anything/cabbage-bash-1.2.3/bin/python3\" (car cl) (cons (car cl) (append (quote (\"\" \"-and\" \"-args\")) cl))))\n#!/anything/cabbage-bash-1.2.3/bin/python3 -and -args\n# vim:fileencoding=utf-8\nprint('hello world')"
result: PASS

test-name: wrap-script, raises condition
location: /home/singpolyma/src/guix/tests/build-utils.scm:229
source:
+ (test-assert
+   "wrap-script, raises condition"
+   (call-with-temporary-directory
+     (lambda (directory)
+       (let ((script-file-name
+               (string-append directory "/foo")))
+         (call-with-output-file
+           script-file-name
+           (lambda (port)
+             (format port "This is not a script")))
+         (chmod script-file-name 511)
+         (guard (c ((wrap-error? c) #t))
+                (wrap-script
+                  script-file-name
+                  #:guile
+                  "MYGUILE"
+                  `("GUIX_FOO"
+                    prefix
+                    ("/some/path" "/some/other/path")))
+                #f)))))
actual-value: #t
result: PASS


[-- Attachment #1.5: grafts.log --]
[-- Type: text/plain, Size: 994 bytes --]

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable
substitute: guix substitute: warning: authentication and authorization of substitutes disabled!
waiting for locks or build slots...
Backtrace:
           8 (primitive-load-path "tests/grafts.scm")
In ice-9/eval.scm:
   626:19  7 (_ #<directory (test-grafts) 7fa70d5fe6e0>)
   293:34  6 (_ #(#(#<directory (test-grafts) 7fa70d5fe6e0>) "bash"))
In ice-9/boot-9.scm:
  1736:10  5 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
   636:37  4 (thunk)
  2066:24  3 (run-with-store #<store-connection 256.99 7fa702c38780> ?)
In guix/tests.scm:
   122:18  2 (_ _)
In guix/ui.scm:
    566:4  1 (_ system-error "copy-file" _ _ _)
In ice-9/boot-9.scm:
  1669:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1669:16: In procedure raise-exception:
In procedure copy-file: Permission denied: "/home/singpolyma/src/guix/gnu/packages/bootstrap/i686-linux/bash"

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 833 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

* Re: Test failures on new build
  2021-04-13  1:50   ` Stephen Paul Weber
@ 2021-04-13  8:57     ` Maxime Devos
  0 siblings, 0 replies; 4+ messages in thread
From: Maxime Devos @ 2021-04-13  8:57 UTC (permalink / raw)
  To: Stephen Paul Weber; +Cc: guix-devel

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

On Mon, 2021-04-12 at 20:50 -0500, Stephen Paul Weber wrote:
> > Could you attach tests/guix-git-authenticate.log?
> > Likewise.
> > Likewise.
> > Likewise.
> 
> Attached.

Can you verify the directory of your guix checkout is
"/home/singpolyma/src/guix"?

* tests/guix-git-authenticate.sh:

  This test is only run if run in a git checkout.

  The error message is:
  guix git: error: Git error: cannot locate remote-tracking branch 'keyring'

  I don't know what happened here.  Perhaps this error message disappears after
  "git fetch"?

* tests/derivations.scm:

  The error message is:

  In procedure copy-file: Permission denied:
  "/home/singpolyma/src/guix/gnu/packages/bootstrap/i686-linux/bash"

  That is odd, what are the file permissions of gnu/packages/bootstrap/i686-linux/bash?
  (ls -l gnu/packages/bootstrap/i686-linux/bash)

* tests/grafts.log:
 
  The error message is the same.

Greetings,
Maxime.

[-- Attachment #2: This is a digitally signed message part --]
[-- Type: application/pgp-signature, Size: 260 bytes --]

^ permalink raw reply	[flat|nested] 4+ messages in thread

end of thread, other threads:[~2021-04-13 10:07 UTC | newest]

Thread overview: 4+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-04-12  2:29 Test failures on new build Stephen Paul Weber
2021-04-12  9:32 ` Maxime Devos
2021-04-13  1:50   ` Stephen Paul Weber
2021-04-13  8:57     ` Maxime Devos

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).