make check fails for Guix 0.13.0

=================================

GNU Guix : ./test-suite.log

=================================

# TOTAL: 708

# PASS: 674

# SKIP: 32

# 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.13.0.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.13.0.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.13.0.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.13.0.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.13.0.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: 1495493959

test-name: file->cpio-header + write-cpio-header + read-cpio-header

location: /tmp/guix-build-guix-0.13.0.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.13.0.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: 1495493745

test-name: url-fetch

location: /tmp/guix-build-guix-0.13.0.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.13.0.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.13.0.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.13.0.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.13.0.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: 1495493721

@ build-started /tmp/guix-tests/store/vcj9833sk577wd7qxzvmgqcfbf9b4sjz-foo.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/vc//j9833sk577wd7qxzvmgqcfbf9b4sjz-foo.drv.bz2

@ build-succeeded /tmp/guix-tests/store/vcj9833sk577wd7qxzvmgqcfbf9b4sjz-foo.drv -

test-name: parse & export

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:87

source:

+ (test-assert

+ "parse & export"

+ (let* ((f (search-path %load-path "tests/test.drv"))

+ (b1 (call-with-input-file f get-bytevector-all))

+ (d1 (read-derivation (open-bytevector-input-port b1)))

+ (b2 (call-with-bytevector-output-port

+ (cut write-derivation d1 <>)))

+ (d2 (read-derivation (open-bytevector-input-port b2))))

+ (and (equal? b1 b2) (equal? d1 d2))))

actual-value: #t

result: PASS

test-name: add-to-store, flat

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:98

source:

+ (test-assert

+ "add-to-store, flat"

+ (let* ((file (search-path

+ %load-path

+ "language/tree-il/spec.scm"))

+ (drv (add-to-store

+ %store

+ "flat-test"

+ #f

+ "sha256"

+ file)))

+ (and (eq? 'regular (stat:type (stat drv)))

+ (valid-path? %store drv)

+ (equal?

+ (call-with-input-file file get-bytevector-all)

+ (call-with-input-file drv get-bytevector-all)))))

actual-value: #t

result: PASS

test-name: add-to-store, recursive

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:106

source:

+ (test-assert

+ "add-to-store, recursive"

+ (let* ((dir (dirname

+ (search-path

+ %load-path

+ "language/tree-il/spec.scm")))

+ (drv (add-to-store

+ %store

+ "dir-tree-test"

+ #t

+ "sha256"

+ dir)))

+ (and (eq? 'directory (stat:type (stat drv)))

+ (valid-path? %store drv)

+ (equal?

+ (directory-contents dir)

+ (directory-contents drv)))))

actual-value: #t

result: PASS

test-name: derivation with no inputs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:114

source:

+ (test-assert

+ "derivation with no inputs"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-builder.sh"

+ "echo hello, world\n"

+ '()))

+ (drv (derivation

+ %store

+ "foo"

+ %bash

+ `("-e" ,builder)

+ #:env-vars

+ '(("HOME" . "/homeless")))))

+ (and (store-path? (derivation-file-name drv))

+ (valid-path? %store (derivation-file-name drv)))))

actual-value: #t

result: PASS

test-name: build derivation with 1 source

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:124

source:

+ (test-assert

+ "build derivation with 1 source"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-builder.sh"

+ "echo hello, world > \"$out\"\n"

+ '()))

+ (drv (derivation

+ %store

+ "foo"

+ %bash

+ `(,builder)

+ #:env-vars

+ '(("HOME" . "/homeless")

+ ("zzz" . "Z!")

+ ("AAA" . "A!"))

+ #:inputs

+ `((,%bash) (,builder))))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((path (derivation->output-path drv)))

+ (and (valid-path? %store path)

+ (string=?

+ (call-with-input-file path read-line)

+ "hello, world"))))))

actual-value: #t

result: PASS

test-name: derivation with local file as input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:142

source:

+ (test-assert

+ "derivation with local file as input"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-builder.sh"

+ "(while read line ; do echo \"$line\" ; done) < $in > $out"

+ '()))

+ (input @ build-started /tmp/guix-tests/store/fjv236z7l209d8zz9z8jxmnw3dfi8lam-derivation-with-input-file.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/fj//v236z7l209d8zz9z8jxmnw3dfi8lam-derivation-with-input-file.drv.bz2

@ build-succeeded /tmp/guix-tests/store/fjv236z7l209d8zz9z8jxmnw3dfi8lam-derivation-with-input-file.drv -

@ build-started /tmp/guix-tests/store/p81vnkbra9z5w45hg0hni5l3yf596ja2-fails.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/p8//1vnkbra9z5w45hg0hni5l3yf596ja2-fails.drv.bz2

builder for `/tmp/guix-tests/store/p81vnkbra9z5w45hg0hni5l3yf596ja2-fails.drv' failed with exit code 1

@ build-failed /tmp/guix-tests/store/p81vnkbra9z5w45hg0hni5l3yf596ja2-fails.drv - 1 builder for `/tmp/guix-tests/store/p81vnkbra9z5w45hg0hni5l3yf596ja2-fails.drv' failed with exit code 1

@ build-started /tmp/guix-tests/store/kn0gx5na8k2nilq6c362bmavywnilkhq-guile-bootstrap-2.0.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/kn//0gx5na8k2nilq6c362bmavywnilkhq-guile-bootstrap-2.0.drv.bz2

unpacking bootstrap Guile to '/tmp/guix-tests/store/7y0q8n6zv41lr9viybhihlcmhri6939f-guile-bootstrap-2.0'...

./

./share/

./share/guile/

./share/guile/2.0/

./share/guile/2.0/system/

./share/guile/2.0/system/xref.scm

./share/guile/2.0/system/foreign.scm

./share/guile/2.0/system/repl/

./share/guile/2.0/system/repl/error-handling.scm

./share/guile/2.0/system/repl/debug.scm

./share/guile/2.0/system/repl/describe.scm

./share/guile/2.0/system/repl/common.scm

./share/guile/2.0/system/repl/command.scm

./share/guile/2.0/system/repl/server.scm

./share/guile/2.0/system/repl/repl.scm

./share/guile/2.0/system/base/

./share/guile/2.0/system/base/lalr.upstream.scm

./share/guile/2.0/system/base/pmatch.scm

./share/guile/2.0/system/base/lalr.scm

./share/guile/2.0/system/base/language.scm

./share/guile/2.0/system/base/syntax.scm

./share/guile/2.0/system/base/compile.scm

./share/guile/2.0/system/base/ck.scm

./share/guile/2.0/system/base/message.scm

./share/guile/2.0/system/base/target.scm

./share/guile/2.0/system/vm/

./share/guile/2.0/system/vm/trace.scm

./share/guile/2.0/system/vm/trap-state.scm

./share/guile/2.0/system/vm/vm.scm

./share/guile/2.0/system/vm/coverage.scm

./share/guile/2.0/system/vm/program.scm

./share/guile/2.0/system/vm/objcode.scm

./share/guile/2.0/system/vm/traps.scm

./share/guile/2.0/system/vm/inspect.scm

./share/guile/2.0/system/vm/instruction.scm

./share/guile/2.0/system/vm/frame.scm

./share/guile/2.0/scripts/

./share/guile/2.0/scripts/scan-api.scm

./share/guile/2.0/scripts/autofrisk.scm

./share/guile/2.0/scripts/snarf-check-and-output-texi.scm

./share/guile/2.0/scripts/read-rfc822.scm

./share/guile/2.0/scripts/read-text-outline.scm

./share/guile/2.0/scripts/help.scm

./share/guile/2.0/scripts/frisk.scm

./share/guile/2.0/scripts/punify.scm

./share/guile/2.0/scripts/lint.scm

./share/guile/2.0/scripts/disassemble.scm

./share/guile/2.0/scripts/summarize-guile-TODO.scm

./share/guile/2.0/scripts/generate-autoload.scm

./share/guile/2.0/scripts/display-commentary.scm

./share/guile/2.0/scripts/compile.scm

./share/guile/2.0/scripts/api-diff.scm

./share/guile/2.0/scripts/use2dot.scm

./share/guile/2.0/scripts/doc-snarf.scm

./share/guile/2.0/scripts/read-scheme-source.scm

./share/guile/2.0/scripts/snarf-guile-m4-docs.scm

./share/guile/2.0/scripts/list.scm

./share/guile/2.0/texinfo/

./share/guile/2.0/texinfo/indexing.scm

./share/guile/2.0/texinfo/html.scm

./share/guile/2.0/texinfo/docbook.scm

./share/guile/2.0/texinfo/serialize.scm

./share/guile/2.0/texinfo/reflection.scm

./share/guile/2.0/texinfo/plain-text.scm

./share/guile/2.0/texinfo/string-utils.scm

./share/guile/2.0/ice-9/

./share/guile/2.0/ice-9/documentation.scm

./share/guile/2.0/ice-9/scm-style-repl.scm

./share/guile/2.0/ice-9/time.scm

./share/guile/2.0/ice-9/format.scm

./share/guile/2.0/ice-9/networking.scm

./share/guile/2.0/ice-9/getopt-long.scm

./share/guile/2.0/ice-9/vlist.scm

./share/guile/2.0/ice-9/psyntax.scm

./share/guile/2.0/ice-9/gap-buffer.scm

./share/guile/2.0/ice-9/and-let-star.scm

./share/guile/2.0/ice-9/posix.scm

./share/guile/2.0/ice-9/ls.scm

./share/guile/2.0/ice-9/syncase.scm

./share/guile/2.0/ice-9/save-stack.scm

./share/guile/2.0/ice-9/stack-catch.scm

./share/guile/2.0/ice-9/futures.scm

./share/guile/2.0/ice-9/debug.scm

./share/guile/2.0/ice-9/pretty-print.scm

./share/guile/2.0/ice-9/mapping.scm

./share/guile/2.0/ice-9/occam-channel.scm

./share/guile/2.0/ice-9/top-repl.scm

./share/guile/2.0/ice-9/boot-9.scm

./share/guile/2.0/ice-9/string-fun.scm

./share/guile/2.0/ice-9/i18n.scm

./share/guile/2.0/ice-9/match.upstream.scm

./share/guile/2.0/ice-9/streams.scm

./share/guile/2.0/ice-9/lineio.scm

./share/guile/2.0/ice-9/threads.scm

./share/guile/2.0/ice-9/weak-vector.scm

./share/guile/2.0/ice-9/history.scm

./share/guile/2.0/ice-9/expect.scm

./share/guile/2.0/ice-9/poll.scm

./share/guile/2.0/ice-9/popen.scm

./share/guile/2.0/ice-9/control.scm

./share/guile/2.0/ice-9/session.scm

./share/guile/2.0/ice-9/ftw.scm

./share/guile/2.0/ice-9/local-eval.scm

./share/guile/2.0/ice-9/receive.scm

./share/guile/2.0/ice-9/safe-r5rs.scm

./share/guile/2.0/ice-9/calling.scm

./share/guile/2.0/ice-9/curried-definitions.scm

./share/guile/2.0/ice-9/eval-string.scm

./share/guile/2.0/ice-9/q.scm

./share/guile/2.0/ice-9/serialize.scm

./share/guile/2.0/ice-9/quasisyntax.scm

./share/guile/2.0/ice-9/slib.scm

./share/guile/2.0/ice-9/hcons.scm

./share/guile/2.0/ice-9/rw.scm

./share/guile/2.0/ice-9/regex.scm

./share/guile/2.0/ice-9/match.scm

./share/guile/2.0/ice-9/buffered-input.scm

./share/guile/2.0/ice-9/iconv.scm

./share/guile/2.0/ice-9/poe.scm

./share/guile/2.0/ice-9/common-list.scm

./share/guile/2.0/ice-9/r5rs.scm

./share/guile/2.0/ice-9/command-line.scm

./share/guile/2.0/ice-9/deprecated.scm

./share/guile/2.0/ice-9/psyntax-pp.scm

./share/guile/2.0/ice-9/null.scm

./share/guile/2.0/ice-9/optargs.scm

./share/guile/2.0/ice-9/rdelim.scm

./share/guile/2.0/ice-9/runq.scm

./share/guile/2.0/ice-9/safe.scm

./share/guile/2.0/ice-9/channel.scm

./share/guile/2.0/ice-9/readline.scm

./share/guile/2.0/ice-9/binary-ports.scm

./share/guile/2.0/ice-9/eval.scm

./share/guile/2.0/ice-9/r4rs.scm

./share/guile/2.0/ice-9/r6rs-libraries.scm

./share/guile/2.0/ice-9/list.scm

./share/guile/2.0/language/

./share/guile/2.0/language/elisp/

./share/guile/2.0/language/elisp/compile-tree-il.scm

./share/guile/2.0/language/elisp/bindings.scm

./share/guile/2.0/language/elisp/runtime.scm

./share/guile/2.0/language/elisp/lexer.scm

./share/guile/2.0/language/elisp/spec.scm

./share/guile/2.0/language/elisp/runtime/

./share/guile/2.0/language/elisp/runtime/macros.scm

./share/guile/2.0/language/elisp/runtime/function-slot.scm

./share/guile/2.0/language/elisp/runtime/subrs.scm

./share/guile/2.0/language/elisp/runtime/value-slot.scm

./share/guile/2.0/language/elisp/parser.scm

./share/guile/2.0/language/assembly/

./share/guile/2.0/language/assembly/compile-bytecode.scm

./share/guile/2.0/language/assembly/disassemble.scm

./share/guile/2.0/language/assembly/spec.scm

./share/guile/2.0/language/assembly/decompile-bytecode.scm

./share/guile/2.0/language/scheme/

./share/guile/2.0/language/scheme/compile-tree-il.scm

./share/guile/2.0/language/scheme/decompile-tree-il.scm

./share/guile/2.0/language/scheme/spec.scm

./share/guile/2.0/language/brainfuck/

./share/guile/2.0/language/brainfuck/compile-tree-il.scm

./share/guile/2.0/language/brainfuck/compile-scheme.scm

./share/guile/2.0/language/brainfuck/spec.scm

./share/guile/2.0/language/brainfuck/parse.scm

./share/guile/2.0/language/objcode/

./share/guile/2.0/language/objcode/spec.scm

./share/guile/2.0/language/assembly.scm

./share/guile/2.0/language/bytecode/

./share/guile/2.0/language/bytecode/spec.scm

./share/guile/2.0/language/glil/

./share/guile/2.0/language/glil/spec.scm

./share/guile/2.0/language/glil/compile-assembly.scm

./share/guile/2.0/language/tree-il/

./share/guile/2.0/language/tree-il/analyze.scm

./share/guile/2.0/language/tree-il/inline.scm

./share/guile/2.0/language/tree-il/debug.scm

./share/guile/2.0/language/tree-il/primitives.scm

./share/guile/2.0/language/tree-il/optimize.scm

./share/guile/2.0/language/tree-il/fix-letrec.scm

./share/guile/2.0/language/tree-il/spec.scm

./share/guile/2.0/language/tree-il/peval.scm

./share/guile/2.0/language/tree-il/compile-glil.scm

./share/guile/2.0/language/tree-il/cse.scm

./share/guile/2.0/language/tree-il/canonicalize.scm

./share/guile/2.0/language/tree-il/effects.scm

./share/guile/2.0/language/ecmascript/

./share/guile/2.0/language/ecmascript/base.scm

./share/guile/2.0/language/ecmascript/compile-tree-il.scm

./share/guile/2.0/language/ecmascript/function.scm

./share/guile/2.0/language/ecmascript/array.scm

./share/guile/2.0/language/ecmascript/tokenize.scm

./share/guile/2.0/language/ecmascript/spec.scm

./share/guile/2.0/language/ecmascript/impl.scm

./share/guile/2.0/language/ecmascript/parse.scm

./share/guile/2.0/language/value/

./share/guile/2.0/language/value/spec.scm

./share/guile/2.0/language/glil.scm

./share/guile/2.0/language/tree-il.scm

./share/guile/2.0/rnrs.scm

./share/guile/2.0/statprof.scm

./share/guile/2.0/web/

./share/guile/2.0/web/client.scm

./share/guile/2.0/web/response.scm

./share/guile/2.0/web/uri.scm

./share/guile/2.0/web/server/

./share/guile/2.0/web/server/http.scm

./share/guile/2.0/web/request.scm

./share/guile/2.0/web/server.scm

./share/guile/2.0/web/http.scm

./share/guile/2.0/oop/

./share/guile/2.0/oop/goops.scm

./share/guile/2.0/oop/goops/

./share/guile/2.0/oop/goops/save.scm

./share/guile/2.0/oop/goops/stklos.scm

./share/guile/2.0/oop/goops/accessors.scm

./share/guile/2.0/oop/goops/describe.scm

./share/guile/2.0/oop/goops/dispatch.scm

./share/guile/2.0/oop/goops/active-slot.scm

./share/guile/2.0/oop/goops/composite-slot.scm

./share/guile/2.0/oop/goops/compile.scm

./share/guile/2.0/oop/goops/internal.scm

./share/guile/2.0/oop/goops/util.scm

./share/guile/2.0/oop/goops/simple.scm

./share/guile/2.0/guile-procedures.txt

./share/guile/2.0/texinfo.scm

./share/guile/2.0/rnrs/

./share/guile/2.0/rnrs/base.scm

./share/guile/2.0/rnrs/records/

./share/guile/2.0/rnrs/records/syntactic.scm

./share/guile/2.0/rnrs/records/inspection.scm

./share/guile/2.0/rnrs/records/procedural.scm

./share/guile/2.0/rnrs/arithmetic/

./share/guile/2.0/rnrs/arithmetic/bitwise.scm

./share/guile/2.0/rnrs/arithmetic/fixnums.scm

./share/guile/2.0/rnrs/arithmetic/flonums.scm

./share/guile/2.0/rnrs/unicode.scm

./share/guile/2.0/rnrs/enums.scm

./share/guile/2.0/rnrs/hashtables.scm

./share/guile/2.0/rnrs/control.scm

./share/guile/2.0/rnrs/syntax-case.scm

./share/guile/2.0/rnrs/sorting.scm

./share/guile/2.0/rnrs/lists.scm

./share/guile/2.0/rnrs/mutable-strings.scm

./share/guile/2.0/rnrs/conditions.scm

./share/guile/2.0/rnrs/r5rs.scm

./share/guile/2.0/rnrs/mutable-pairs.scm

./share/guile/2.0/rnrs/programs.scm

./share/guile/2.0/rnrs/exceptions.scm

./share/guile/2.0/rnrs/eval.scm

./share/guile/2.0/rnrs/files.scm

./share/guile/2.0/rnrs/io/

./share/guile/2.0/rnrs/io/ports.scm

./share/guile/2.0/rnrs/io/simple.scm

./share/guile/2.0/rnrs/bytevectors.scm

./share/guile/2.0/sxml/

./share/guile/2.0/sxml/sxml-match.ss

./share/guile/2.0/sxml/fold.scm

./share/guile/2.0/sxml/ssax.scm

./share/guile/2.0/sxml/apply-templates.scm

./share/guile/2.0/sxml/xpath.scm

./share/guile/2.0/sxml/upstream/

./share/guile/2.0/sxml/upstream/SSAX.scm

./share/guile/2.0/sxml/upstream/assert.scm

./share/guile/2.0/sxml/upstream/SXPath-old.scm

./share/guile/2.0/sxml/upstream/input-parse.scm

./share/guile/2.0/sxml/upstream/SXML-tree-trans.scm

./share/guile/2.0/sxml/transform.scm

./share/guile/2.0/sxml/match.scm

./share/guile/2.0/sxml/simple.scm

./share/guile/2.0/sxml/ssax/

./share/guile/2.0/sxml/ssax/input-parse.scm

./share/guile/2.0/srfi/

./share/guile/2.0/srfi/srfi-88.scm

./share/guile/2.0/srfi/srfi-14.scm

./share/guile/2.0/srfi/srfi-6.scm

./share/guile/2.0/srfi/srfi-67.scm

./share/guile/2.0/srfi/srfi-42/

./share/guile/2.0/srfi/srfi-42/ec.scm

./share/guile/2.0/srfi/srfi-19.scm

./share/guile/2.0/srfi/srfi-31.scm

./share/guile/2.0/srfi/srfi-41.scm

./share/guile/2.0/srfi/srfi-35.scm

./share/guile/2.0/srfi/srfi-34.scm

./share/guile/2.0/srfi/srfi-60.scm

./share/guile/2.0/srfi/srfi-18.scm

./share/guile/2.0/srfi/srfi-37.scm

./share/guile/2.0/srfi/srfi-4/

./share/guile/2.0/srfi/srfi-4/gnu.scm

./share/guile/2.0/srfi/srfi-16.scm

./share/guile/2.0/srfi/srfi-69.scm

./share/guile/2.0/srfi/srfi-17.scm

./share/guile/2.0/srfi/srfi-2.scm

./share/guile/2.0/srfi/srfi-27.scm

./share/guile/2.0/srfi/srfi-26.scm

./share/guile/2.0/srfi/srfi-8.scm

./share/guile/2.0/srfi/srfi-4.scm

./share/guile/2.0/srfi/srfi-11.scm

./share/guile/2.0/srfi/srfi-13.scm

./share/guile/2.0/srfi/srfi-67/

./share/guile/2.0/srfi/srfi-67/compare.scm

./share/guile/2.0/srfi/srfi-45.scm

./share/guile/2.0/srfi/srfi-9.scm

./share/guile/2.0/srfi/srfi-9/

./share/guile/2.0/srfi/srfi-9/gnu.scm

./share/guile/2.0/srfi/srfi-10.scm

./share/guile/2.0/srfi/srfi-42.scm

./share/guile/2.0/srfi/srfi-39.scm

./share/guile/2.0/srfi/srfi-1.scm

./share/guile/2.0/srfi/srfi-38.scm

./share/guile/2.0/srfi/srfi-98.scm

./lib/

./lib/guile/

./lib/guile/2.0/

./lib/guile/2.0/ccache/

./lib/guile/2.0/ccache/system/

./lib/guile/2.0/ccache/system/foreign.go

./lib/guile/2.0/ccache/system/repl/

./lib/guile/2.0/ccache/system/repl/command.go

./lib/guile/2.0/ccache/system/repl/error-handling.go

./lib/guile/2.0/ccache/system/repl/repl.go

./lib/guile/2.0/ccache/system/repl/debug.go

./lib/guile/2.0/ccache/system/repl/server.go

./lib/guile/2.0/ccache/system/repl/common.go

./lib/guile/2.0/ccache/system/xref.go

./lib/guile/2.0/ccache/system/base/

./lib/guile/2.0/ccache/system/base/ck.go

./lib/guile/2.0/ccache/system/base/lalr.go

./lib/guile/2.0/ccache/system/base/pmatch.go

./lib/guile/2.0/ccache/system/base/message.go

./lib/guile/2.0/ccache/system/base/syntax.go

./lib/guile/2.0/ccache/system/base/language.go

./lib/guile/2.0/ccache/system/base/target.go

./lib/guile/2.0/ccache/system/base/compile.go

./lib/guile/2.0/ccache/system/vm/

./lib/guile/2.0/ccache/system/vm/traps.go

./lib/guile/2.0/ccache/system/vm/frame.go

./lib/guile/2.0/ccache/system/vm/objcode.go

./lib/guile/2.0/ccache/system/vm/program.go

./lib/guile/2.0/ccache/system/vm/instruction.go

./lib/guile/2.0/ccache/system/vm/coverage.go

./lib/guile/2.0/ccache/system/vm/vm.go

./lib/guile/2.0/ccache/system/vm/trap-state.go

./lib/guile/2.0/ccache/system/vm/inspect.go

./lib/guile/2.0/ccache/system/vm/trace.go

./lib/guile/2.0/ccache/scripts/

./lib/guile/2.0/ccache/scripts/scan-api.go

./lib/guile/2.0/ccache/scripts/use2dot.go

./lib/guile/2.0/ccache/scripts/autofrisk.go

./lib/guile/2.0/ccache/scripts/api-diff.go

./lib/guile/2.0/ccache/scripts/read-text-outline.go

./lib/guile/2.0/ccache/scripts/punify.go

./lib/guile/2.0/ccache/scripts/snarf-guile-m4-docs.go

./lib/guile/2.0/ccache/scripts/read-scheme-source.go

./lib/guile/2.0/ccache/scripts/frisk.go

./lib/guile/2.0/ccache/scripts/summarize-guile-TODO.go

./lib/guile/2.0/ccache/scripts/lint.go

./lib/guile/2.0/ccache/scripts/display-commentary.go

./lib/guile/2.0/ccache/scripts/disassemble.go

./lib/guile/2.0/ccache/scripts/generate-autoload.go

./lib/guile/2.0/ccache/scripts/snarf-check-and-output-texi.go

./lib/guile/2.0/ccache/scripts/read-rfc822.go

./lib/guile/2.0/ccache/scripts/doc-snarf.go

./lib/guile/2.0/ccache/scripts/compile.go

./lib/guile/2.0/ccache/scripts/help.go

./lib/guile/2.0/ccache/scripts/list.go

./lib/guile/2.0/ccache/texinfo/

./lib/guile/2.0/ccache/texinfo/docbook.go

./lib/guile/2.0/ccache/texinfo/serialize.go

./lib/guile/2.0/ccache/texinfo/html.go

./lib/guile/2.0/ccache/texinfo/reflection.go

./lib/guile/2.0/ccache/texinfo/indexing.go

./lib/guile/2.0/ccache/texinfo/plain-text.go

./lib/guile/2.0/ccache/texinfo/string-utils.go

./lib/guile/2.0/ccache/ice-9/

./lib/guile/2.0/ccache/ice-9/r4rs.go

./lib/guile/2.0/ccache/ice-9/poll.go

./lib/guile/2.0/ccache/ice-9/syncase.go

./lib/guile/2.0/ccache/ice-9/common-list.go

./lib/guile/2.0/ccache/ice-9/stack-catch.go

./lib/guile/2.0/ccache/ice-9/control.go

./lib/guile/2.0/ccache/ice-9/binary-ports.go

./lib/guile/2.0/ccache/ice-9/regex.go

./lib/guile/2.0/ccache/ice-9/safe.go

./lib/guile/2.0/ccache/ice-9/buffered-input.go

./lib/guile/2.0/ccache/ice-9/boot-9.go

./lib/guile/2.0/ccache/ice-9/and-let-star.go

./lib/guile/2.0/ccache/ice-9/expect.go

./lib/guile/2.0/ccache/ice-9/gap-buffer.go

./lib/guile/2.0/ccache/ice-9/pretty-print.go

./lib/guile/2.0/ccache/ice-9/time.go

./lib/guile/2.0/ccache/ice-9/serialize.go

./lib/guile/2.0/ccache/ice-9/debug.go

./lib/guile/2.0/ccache/ice-9/rw.go

./lib/guile/2.0/ccache/ice-9/command-line.go

./lib/guile/2.0/ccache/ice-9/networking.go

./lib/guile/2.0/ccache/ice-9/posix.go

./lib/guile/2.0/ccache/ice-9/psyntax-pp.go

./lib/guile/2.0/ccache/ice-9/format.go

./lib/guile/2.0/ccache/ice-9/optargs.go

./lib/guile/2.0/ccache/ice-9/history.go

./lib/guile/2.0/ccache/ice-9/vlist.go

./lib/guile/2.0/ccache/ice-9/threads.go

./lib/guile/2.0/ccache/ice-9/safe-r5rs.go

./lib/guile/2.0/ccache/ice-9/streams.go

./lib/guile/2.0/ccache/ice-9/readline.go

./lib/guile/2.0/ccache/ice-9/slib.go

./lib/guile/2.0/ccache/ice-9/scm-style-repl.go

./lib/guile/2.0/ccache/ice-9/session.go

./lib/guile/2.0/ccache/ice-9/top-repl.go

./lib/guile/2.0/ccache/ice-9/channel.go

./lib/guile/2.0/ccache/ice-9/q.go

./lib/guile/2.0/ccache/ice-9/string-fun.go

./lib/guile/2.0/ccache/ice-9/r5rs.go

./lib/guile/2.0/ccache/ice-9/calling.go

./lib/guile/2.0/ccache/ice-9/futures.go

./lib/guile/2.0/ccache/ice-9/null.go

./lib/guile/2.0/ccache/ice-9/occam-channel.go

./lib/guile/2.0/ccache/ice-9/eval.go

./lib/guile/2.0/ccache/ice-9/receive.go

./lib/guile/2.0/ccache/ice-9/ftw.go

./lib/guile/2.0/ccache/ice-9/runq.go

./lib/guile/2.0/ccache/ice-9/rdelim.go

./lib/guile/2.0/ccache/ice-9/save-stack.go

./lib/guile/2.0/ccache/ice-9/local-eval.go

./lib/guile/2.0/ccache/ice-9/getopt-long.go

./lib/guile/2.0/ccache/ice-9/ls.go

./lib/guile/2.0/ccache/ice-9/lineio.go

./lib/guile/2.0/ccache/ice-9/i18n.go

./lib/guile/2.0/ccache/ice-9/deprecated.go

./lib/guile/2.0/ccache/ice-9/hcons.go

./lib/guile/2.0/ccache/ice-9/popen.go

./lib/guile/2.0/ccache/ice-9/curried-definitions.go

./lib/guile/2.0/ccache/ice-9/eval-string.go

./lib/guile/2.0/ccache/ice-9/match.go

./lib/guile/2.0/ccache/ice-9/weak-vector.go

./lib/guile/2.0/ccache/ice-9/poe.go

./lib/guile/2.0/ccache/ice-9/mapping.go

./lib/guile/2.0/ccache/ice-9/list.go

./lib/guile/2.0/ccache/ice-9/documentation.go

./lib/guile/2.0/ccache/ice-9/iconv.go

./lib/guile/2.0/ccache/language/

./lib/guile/2.0/ccache/language/assembly.go

./lib/guile/2.0/ccache/language/elisp/

./lib/guile/2.0/ccache/language/elisp/compile-tree-il.go

./lib/guile/2.0/ccache/language/elisp/spec.go

./lib/guile/2.0/ccache/language/elisp/parser.go

./lib/guile/2.0/ccache/language/elisp/runtime.go

./lib/guile/2.0/ccache/language/elisp/bindings.go

./lib/guile/2.0/ccache/language/elisp/lexer.go

./lib/guile/2.0/ccache/language/elisp/runtime/

./lib/guile/2.0/ccache/language/elisp/runtime/value-slot.go

./lib/guile/2.0/ccache/language/elisp/runtime/function-slot.go

./lib/guile/2.0/ccache/language/elisp/runtime/subrs.go

./lib/guile/2.0/ccache/language/elisp/runtime/macros.go

./lib/guile/2.0/ccache/language/assembly/

./lib/guile/2.0/ccache/language/assembly/decompile-bytecode.go

./lib/guile/2.0/ccache/language/assembly/spec.go

./lib/guile/2.0/ccache/language/assembly/compile-bytecode.go

./lib/guile/2.0/ccache/language/assembly/disassemble.go

./lib/guile/2.0/ccache/language/tree-il.go

./lib/guile/2.0/ccache/language/glil.go

./lib/guile/2.0/ccache/language/scheme/

./lib/guile/2.0/ccache/language/scheme/compile-tree-il.go

./lib/guile/2.0/ccache/language/scheme/spec.go

./lib/guile/2.0/ccache/language/scheme/decompile-tree-il.go

./lib/guile/2.0/ccache/language/brainfuck/

./lib/guile/2.0/ccache/language/brainfuck/compile-tree-il.go

./lib/guile/2.0/ccache/language/brainfuck/spec.go

./lib/guile/2.0/ccache/language/brainfuck/parse.go

./lib/guile/2.0/ccache/language/brainfuck/compile-scheme.go

./lib/guile/2.0/ccache/language/objcode/

./lib/guile/2.0/ccache/language/objcode/spec.go

./lib/guile/2.0/ccache/language/bytecode/

./lib/guile/2.0/ccache/language/bytecode/spec.go

./lib/guile/2.0/ccache/language/glil/

./lib/guile/2.0/ccache/language/glil/compile-assembly.go

./lib/guile/2.0/ccache/language/glil/spec.go

./lib/guile/2.0/ccache/language/tree-il/

./lib/guile/2.0/ccache/language/tree-il/debug.go

./lib/guile/2.0/ccache/language/tree-il/compile-glil.go

./lib/guile/2.0/ccache/language/tree-il/optimize.go

./lib/guile/2.0/ccache/language/tree-il/spec.go

./lib/guile/2.0/ccache/language/tree-il/canonicalize.go

./lib/guile/2.0/ccache/language/tree-il/inline.go

./lib/guile/2.0/ccache/language/tree-il/analyze.go

./lib/guile/2.0/ccache/language/tree-il/peval.go

./lib/guile/2.0/ccache/language/tree-il/cse.go

./lib/guile/2.0/ccache/language/tree-il/fix-letrec.go

./lib/guile/2.0/ccache/language/tree-il/effects.go

./lib/guile/2.0/ccache/language/tree-il/primitives.go

./lib/guile/2.0/ccache/language/ecmascript/

./lib/guile/2.0/ccache/language/ecmascript/compile-tree-il.go

./lib/guile/2.0/ccache/language/ecmascript/spec.go

./lib/guile/2.0/ccache/language/ecmascript/parse.go

./lib/guile/2.0/ccache/language/ecmascript/tokenize.go

./lib/guile/2.0/ccache/language/ecmascript/array.go

./lib/guile/2.0/ccache/language/ecmascript/impl.go

./lib/guile/2.0/ccache/language/ecmascript/function.go

./lib/guile/2.0/ccache/language/ecmascript/base.go

./lib/guile/2.0/ccache/language/value/

./lib/guile/2.0/ccache/language/value/spec.go

./lib/guile/2.0/ccache/web/

./lib/guile/2.0/ccache/web/http.go

./lib/guile/2.0/ccache/web/server/

./lib/guile/2.0/ccache/web/server/http.go

./lib/guile/2.0/ccache/web/client.go

./lib/guile/2.0/ccache/web/request.go

./lib/guile/2.0/ccache/web/server.go

./lib/guile/2.0/ccache/web/uri.go

./lib/guile/2.0/ccache/web/response.go

./lib/guile/2.0/ccache/oop/

./lib/guile/2.0/ccache/oop/goops.go

./lib/guile/2.0/ccache/oop/goops/

./lib/guile/2.0/ccache/oop/goops/composite-slot.go

./lib/guile/2.0/ccache/oop/goops/internal.go

./lib/guile/2.0/ccache/oop/goops/stklos.go

./lib/guile/2.0/ccache/oop/goops/save.go

./lib/guile/2.0/ccache/oop/goops/dispatch.go

./lib/guile/2.0/ccache/oop/goops/util.go

./lib/guile/2.0/ccache/oop/goops/active-slot.go

./lib/guile/2.0/ccache/oop/goops/simple.go

./lib/guile/2.0/ccache/oop/goops/describe.go

./lib/guile/2.0/ccache/oop/goops/compile.go

./lib/guile/2.0/ccache/oop/goops/accessors.go

./lib/guile/2.0/ccache/rnrs/

./lib/guile/2.0/ccache/rnrs/mutable-pairs.go

./lib/guile/2.0/ccache/rnrs/control.go

./lib/guile/2.0/ccache/rnrs/records/

./lib/guile/2.0/ccache/rnrs/records/procedural.go

./lib/guile/2.0/ccache/rnrs/records/syntactic.go

./lib/guile/2.0/ccache/rnrs/records/inspection.go

./lib/guile/2.0/ccache/rnrs/arithmetic/

./lib/guile/2.0/ccache/rnrs/arithmetic/fixnums.go

./lib/guile/2.0/ccache/rnrs/arithmetic/bitwise.go

./lib/guile/2.0/ccache/rnrs/arithmetic/flonums.go

./lib/guile/2.0/ccache/rnrs/enums.go

./lib/guile/2.0/ccache/rnrs/programs.go

./lib/guile/2.0/ccache/rnrs/exceptions.go

./lib/guile/2.0/ccache/rnrs/files.go

./lib/guile/2.0/ccache/rnrs/syntax-case.go

./lib/guile/2.0/ccache/rnrs/lists.go

./lib/guile/2.0/ccache/rnrs/mutable-strings.go

./lib/guile/2.0/ccache/rnrs/unicode.go

./lib/guile/2.0/ccache/rnrs/r5rs.go

./lib/guile/2.0/ccache/rnrs/hashtables.go

./lib/guile/2.0/ccache/rnrs/eval.go

./lib/guile/2.0/ccache/rnrs/conditions.go

./lib/guile/2.0/ccache/rnrs/bytevectors.go

./lib/guile/2.0/ccache/rnrs/sorting.go

./lib/guile/2.0/ccache/rnrs/base.go

./lib/guile/2.0/ccache/rnrs/io/

./lib/guile/2.0/ccache/rnrs/io/ports.go

./lib/guile/2.0/ccache/rnrs/io/simple.go

./lib/guile/2.0/ccache/sxml/

./lib/guile/2.0/ccache/sxml/transform.go

./lib/guile/2.0/ccache/sxml/ssax.go

./lib/guile/2.0/ccache/sxml/simple.go

./lib/guile/2.0/ccache/sxml/apply-templates.go

./lib/guile/2.0/ccache/sxml/xpath.go

./lib/guile/2.0/ccache/sxml/match.go

./lib/guile/2.0/ccache/sxml/fold.go

./lib/guile/2.0/ccache/sxml/ssax/

./lib/guile/2.0/ccache/sxml/ssax/input-parse.go

./lib/guile/2.0/ccache/rnrs.go

./lib/guile/2.0/ccache/srfi/

./lib/guile/2.0/ccache/srfi/srfi-4.go

./lib/guile/2.0/ccache/srfi/srfi-14.go

./lib/guile/2.0/ccache/srfi/srfi-26.go

./lib/guile/2.0/ccache/srfi/srfi-17.go

./lib/guile/2.0/ccache/srfi/srfi-27.go

./lib/guile/2.0/ccache/srfi/srfi-38.go

./lib/guile/2.0/ccache/srfi/srfi-34.go

./lib/guile/2.0/ccache/srfi/srfi-13.go

./lib/guile/2.0/ccache/srfi/srfi-41.go

./lib/guile/2.0/ccache/srfi/srfi-19.go

./lib/guile/2.0/ccache/srfi/srfi-67.go

./lib/guile/2.0/ccache/srfi/srfi-9.go

./lib/guile/2.0/ccache/srfi/srfi-2.go

./lib/guile/2.0/ccache/srfi/srfi-4/

./lib/guile/2.0/ccache/srfi/srfi-4/gnu.go

./lib/guile/2.0/ccache/srfi/srfi-60.go

./lib/guile/2.0/ccache/srfi/srfi-11.go

./lib/guile/2.0/ccache/srfi/srfi-69.go

./lib/guile/2.0/ccache/srfi/srfi-6.go

./lib/guile/2.0/ccache/srfi/srfi-37.go

./lib/guile/2.0/ccache/srfi/srfi-39.go

./lib/guile/2.0/ccache/srfi/srfi-1.go

./lib/guile/2.0/ccache/srfi/srfi-8.go

./lib/guile/2.0/ccache/srfi/srfi-9/

./lib/guile/2.0/ccache/srfi/srfi-9/gnu.go

./lib/guile/2.0/ccache/srfi/srfi-45.go

./lib/guile/2.0/ccache/srfi/srfi-42.go

./lib/guile/2.0/ccache/srfi/srfi-16.go

./lib/guile/2.0/ccache/srfi/srfi-31.go

./lib/guile/2.0/ccache/srfi/srfi-18.go

./lib/guile/2.0/ccache/srfi/srfi-88.go

./lib/guile/2.0/ccache/srfi/srfi-10.go

./lib/guile/2.0/ccache/srfi/srfi-35.go

./lib/guile/2.0/ccache/srfi/srfi-98.go

./lib/guile/2.0/ccache/texinfo.go

./lib/guile/2.0/ccache/statprof.go

./bin/

./bin/guile

guile (GNU Guile) 2.0.9

Copyright (C) 2013 Free Software Foundation, Inc.

License LGPLv3+: GNU LGPL 3 or later http://gnu.org/licenses/lgpl.html.

This is free software: you are free to change and redistribute it.

There is NO WARRANTY, to the extent permitted by law.

@ build-succeeded /tmp/guix-tests/store/kn0gx5na8k2nilq6c362bmavywnilkhq-guile-bootstrap-2.0.drv -

@ build-started /tmp/guix-tests/store/hwqvffm35c4xp24yvmamy8p5bg3j33rl-sleep-then-succeed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/hw//qvffm35c4xp24yvmamy8p5bg3j33rl-sleep-then-succeed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/hwqvffm35c4xp24yvmamy8p5bg3j33rl-sleep-then-succeed.drv -

@ build-started /tmp/guix-tests/store/nzs8yyjwcl3b3pw7yrwvshq7km0slqqg-bar.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/nz//s8yyjwcl3b3pw7yrwvshq7km0slqqg-bar.drv.bz2

@ build-succeeded /tmp/guix-tests/store/nzs8yyjwcl3b3pw7yrwvshq7km0slqqg-bar.drv -

@ build-started /tmp/guix-tests/store/7amfgi1b8y64ckydz2w6sl125ajdzh6w-foo.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/7a//mfgi1b8y64ckydz2w6sl125ajdzh6w-foo.drv.bz2

@ build-succeeded /tmp/guix-tests/store/7amfgi1b8y64ckydz2w6sl125ajdzh6w-foo.drv -

(search-path %load-path "ice-9/boot-9.scm"))

+ (input*

+ (add-to-store

+ %store

+ (basename input)

+ #t

+ "sha256"

+ input))

+ (drv (derivation

+ %store

+ "derivation-with-input-file"

+ %bash

+ `(,builder)

+ #:env-vars

+ `(("in" unquote input*))

+ #:inputs

+ `((,%bash) (,builder) (,input)))))

+ (and (build-derivations %store (list drv))

+ (valid-path?

+ %store

+ (derivation->output-path drv)))))

actual-value: #t

result: PASS

test-name: derivation fails but keep going

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:165

source:

+ (test-assert

+ "derivation fails but keep going"

+ (with-store

+ store

+ (let* ((d1 (derivation

+ %store

+ "fails"

+ %bash

+ `("-c" "false")

+ #:inputs

+ `((,%bash))))

+ (d2 (build-expression->derivation

+ %store

+ "sleep-then-succeed"

+ `(begin ,(random-text) (sleep 2) (mkdir %output)))))

+ (set-build-options

+ %store

+ #:use-substitutes?

+ #f

+ #:keep-going?

+ #t)

+ (guard (c ((nix-protocol-error? c)

+ (and (= 100 (nix-protocol-error-status c))

+ (string-contains

+ (nix-protocol-error-message c)

+ (derivation-file-name d1))

+ (not (valid-path? %store (derivation->output-path d1)))

+ (valid-path? %store (derivation->output-path d2)))))

+ (build-derivations %store (list d1 d2))

+ #f))))

actual-value: #t

result: PASS

test-name: identical files are deduplicated

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:192

source:

+ (test-assert

+ "identical files are deduplicated"

+ (let* ((build1

+ (add-text-to-store

+ %store

+ "one.sh"

+ "echo hello, world > \"$out\"\n"

+ '()))

+ (build2

+ (add-text-to-store

+ %store

+ "two.sh"

+ "# Hey!\necho hello, world > \"$out\"\n"

+ '()))

+ (drv1 (derivation

+ %store

+ "foo"

+ %bash

+ `(,build1)

+ #:inputs

+ `((,%bash) (,build1))))

+ (drv2 (derivation

+ %store

+ "bar"

+ %bash

+ `(,build2)

+ #:inputs

+ `((,%bash) (,build2)))))

+ (and (build-derivations %store (list drv1 drv2))

+ (let ((file1 (derivation->output-path drv1))

+ (file2 (derivation->output-path drv2)))

+ (and (valid-path? %store file1)

+ (valid-path? %store file2)

+ (string=?

+ (call-with-input-file file1 get-string-all)

+ "hello, world\n")

+ (= (stat:ino (lstat file1))

+ (stat:ino (lstat file2))))))))

actual-value: #t

result: PASS

test-name: built-in-builders

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:214

source:

+ (test-equal

+ "built-in-builders"

+ '("download")

+ (built-in-builders %store))

expected-value: ("download")

actual-value: ("download")

result: PASS

test-name: unknown built-in builder

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:218

source:

+ (test-assert

+ "unknown built-in builder"

+ (let ((drv (derivation

+ %store

+ "ohoh"

+ "builtin:does-not-exist"

+ '())))

+ (guard (c ((nix-protocol-error? c)

+ (string-contains

+ (nix-protocol-error-message c)

+ @ build-started /tmp/guix-tests/store/96bncx0a55ryyvb2i6z8i6rycxwlpwhg-ohoh.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/96//bncx0a55ryyvb2i6z8i6rycxwlpwhg-ohoh.drv.bz2

error: unsupported builtin function 'does-not-exist'

builder for `/tmp/guix-tests/store/96bncx0a55ryyvb2i6z8i6rycxwlpwhg-ohoh.drv' failed with exit code 1

@ build-failed /tmp/guix-tests/store/96bncx0a55ryyvb2i6z8i6rycxwlpwhg-ohoh.drv - 1 builder for `/tmp/guix-tests/store/96bncx0a55ryyvb2i6z8i6rycxwlpwhg-ohoh.drv' failed with exit code 1

@ build-started /tmp/guix-tests/store/smca5zf1p63b4gwk8al9x7pjjca91rd6-world.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/sm//ca5zf1p63b4gwk8al9x7pjjca91rd6-world.drv.bz2

Starting download of /tmp/guix-tests/store/nzg78pzn9mrwl35wq0lnz925cyjcrn5x-world

From http://localhost:10500/foo/bar...

 bar 64B 0B/s 00:00 [ ] 0.0%  bar 64B 305KiB/s 00:00 [####################] 100.0%

@ build-succeeded /tmp/guix-tests/store/smca5zf1p63b4gwk8al9x7pjjca91rd6-world.drv -

@ build-started /tmp/guix-tests/store/v45bx2cbgz6windf4w2mjs5nlnkf88ag-world.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/v4//5bx2cbgz6windf4w2mjs5nlnkf88ag-world.drv.bz2

Starting download of /tmp/guix-tests/store/56l4ckplfzx8y1mcrh11h4lg027krwgc-world

From http://localhost:10500/foo/bar...

 bar 13B 0B/s 00:00 [ ] 0.0%  bar 13B 59KiB/s 00:00 [####################] 100.0%

output path `/tmp/guix-tests/store/56l4ckplfzx8y1mcrh11h4lg027krwgc-world' should have sha256 hash `0srnayadyaqak1i9a7az1lxpbmgq8qpx6xpmi7v93qwra0nv49x4', instead has `0a7pd3rizm1qb3kz1ad1wzrijrhwsnq3lj7qprc86zp6a6r5drk8'

@ build-failed /tmp/guix-tests/store/v45bx2cbgz6windf4w2mjs5nlnkf88ag-world.drv - 1 output path `/tmp/guix-tests/store/56l4ckplfzx8y1mcrh11h4lg027krwgc-world' should have sha256 hash `0srnayadyaqak1i9a7az1lxpbmgq8qpx6xpmi7v93qwra0nv49x4', instead has `0a7pd3rizm1qb3kz1ad1wzrijrhwsnq3lj7qprc86zp6a6r5drk8'

@ build-started /tmp/guix-tests/store/169y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/16//9y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv.bz2

Starting download of /tmp/guix-tests/store/n98dcliqml18ylfx5a4ll82rvqprwhz0-will-never-be-found

From http://localhost:10500/foo/bar...

ERROR: download failed "http://localhost:10500/foo/bar"404 "Such is life"

failed to download "/tmp/guix-tests/store/n98dcliqml18ylfx5a4ll82rvqprwhz0-will-never-be-found" from "http://localhost:10500/foo/bar"

builder for `/tmp/guix-tests/store/169y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv' failed to produce output path `/tmp/guix-tests/store/n98dcliqml18ylfx5a4ll82rvqprwhz0-will-never-be-found'

@ build-failed /tmp/guix-tests/store/169y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv - 1 builder for `/tmp/guix-tests/store/169y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv' failed to produce output path `/tmp/guix-tests/store/n98dcliqml18ylfx5a4ll82rvqprwhz0-will-never-be-found'

@ build-started /tmp/guix-tests/store/5hqvbsh3kc0mgh41rda902fk0vqjcq01-world.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/5h//qvbsh3kc0mgh41rda902fk0vqjcq01-world.drv.bz2

guix perform-download: error: /tmp/guix-tests/store/5hqvbsh3kc0mgh41rda902fk0vqjcq01-world.drv is not a fixed-output derivation

builder for `/tmp/guix-tests/store/5hqvbsh3kc0mgh41rda902fk0vqjcq01-world.drv' failed with exit code 1

@ build-failed /tmp/guix-tests/store/5hqvbsh3kc0mgh41rda902fk0vqjcq01-world.drv - 1 builder for `/tmp/guix-tests/store/5hqvbsh3kc0mgh41rda902fk0vqjcq01-world.drv' failed with exit code 1

"failed")))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: 75

result: PASS

test-name: 'download' built-in builder

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:227

source:

+ (test-assert

+ "'download' built-in builder"

+ (let ((text (random-text)))

+ (with-http-server

+ 200

+ text

+ (let* ((drv (derivation

+ %store

+ "world"

+ "builtin:download"

+ '()

+ #:env-vars

+ `(("url" unquote (object->string (%local-url))))

+ #:hash-algo

+ 'sha256

+ #:hash

+ (sha256 (string->utf8 text)))))

+ (and (build-derivations %store (list drv))

+ (string=?

+ (call-with-input-file

+ (derivation->output-path drv)

+ get-string-all)

+ text))))))

actual-value: #t

result: PASS

test-name: 'download' built-in builder, invalid hash

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:243

source:

+ (test-assert

+ "'download' built-in builder, invalid hash"

+ (with-http-server

+ 200

+ "hello, world!"

+ (let* ((drv (derivation

+ %store

+ "world"

+ "builtin:download"

+ '()

+ #:env-vars

+ `(("url" unquote (object->string (%local-url))))

+ #:hash-algo

+ 'sha256

+ #:hash

+ (sha256 (random-bytevector 100)))))

+ (guard (c ((nix-protocol-error? c)

+ (string-contains

+ (nix-protocol-error-message c)

+ "failed")))

+ (build-derivations %store (list drv))

+ #f))))

actual-value: 76

result: PASS

test-name: 'download' built-in builder, not found

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:258

source:

+ (test-assert

+ "'download' built-in builder, not found"

+ (with-http-server

+ 404

+ "not found"

+ (let* ((drv (derivation

+ %store

+ "will-never-be-found"

+ "builtin:download"

+ '()

+ #:env-vars

+ `(("url" unquote (object->string (%local-url))))

+ #:hash-algo

+ 'sha256

+ #:hash

+ (sha256 (random-bytevector 100)))))

+ (guard (c ((nix-protocol-error? c)

+ (string-contains

+ (nix-protocol-error-message (pk c))

+ "failed")))

+ (build-derivations %store (list drv))

+ #f))))

;;; (#<condition &nix-protocol-error [message: "build of `/tmp/guix-tests/store/169y82wnbs4qkhccgqfm10i7zxpq1ind-will-never-be-found.drv' failed" status: 1] 1b94000>)

actual-value: 90

result: PASS

test-name: 'download' built-in builder, not fixed-output

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:271

source:

+ (test-assert

+ "'download' built-in builder, not fixed-output"

+ (let* ((source (add-text-to-store %store "hello" "hi!"))

+ (url (string-append "file://" source))

+ (drv (derivation

+ %store

+ "world"

+ "builtin:download"

+ '()

+ #:env-vars

+ `(("url" unquote (object->string url))))))

+ (guard (c ((nix-protocol-error? c)

+ (string-contains

+ (nix-protocol-error-message c)

+ "failed")))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: 76

result: PASS

test-name: 'download' built-in builder, check mode

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:284

source:

+ (test-assert

+ "'download' built-in builder, check mode"

+ (let* ((text (random-text))

@ build-started /tmp/guix-tests/store/4qa12ysg1cfvj6z8ldlnsk48c73jyndg-world.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/4q//a12ysg1cfvj6z8ldlnsk48c73jyndg-world.drv.bz2

Starting download of /tmp/guix-tests/store/6fjrvl6qgrfmk4j891vjj2srnm5s1993-world

From http://localhost:10500/foo/bar...

 bar 64B 0B/s 00:00 [ ] 0.0%  bar 64B 293KiB/s 00:00 [####################] 100.0%

@ build-succeeded /tmp/guix-tests/store/4qa12ysg1cfvj6z8ldlnsk48c73jyndg-world.drv -

@ build-started /tmp/guix-tests/store/4qa12ysg1cfvj6z8ldlnsk48c73jyndg-world.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/4q//a12ysg1cfvj6z8ldlnsk48c73jyndg-world.drv.bz2

Starting download of /tmp/guix-tests/store/0ki5sxlqh77r1x4n9ra7qqiqzdl194r9-world

From http://localhost:10500/foo/bar...

 bar 64B 0B/s 00:00 [ ] 0.0%  bar 64B 298KiB/s 00:00 [####################] 100.0%

warning: rewriting hashes in `/tmp/guix-tests/store/6fjrvl6qgrfmk4j891vjj2srnm5s1993-world'; cross fingers

+ (drv (derivation

+ %store

+ "world"

+ "builtin:download"

+ '()

+ #:env-vars

+ `(("url" unquote (object->string (%local-url))))

+ #:hash-algo

+ 'sha256

+ #:hash

+ (sha256 (string->utf8 text)))))

+ (and (with-http-server

+ 200

+ text

+ (build-derivations %store (list drv)))

+ (with-http-server

+ 200

+ text

+ (build-derivations

+ %store

+ (list drv)

+ (build-mode check)))

+ (string=?

+ (call-with-input-file

+ (derivation->output-path drv)

+ get-string-all)

+ text))))

actual-value: #t

result: PASS

test-name: derivation-name

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:303

source:

+ (test-equal

+ "derivation-name"

+ "foo-0.0"

+ (let ((drv (derivation %store "foo-0.0" %bash '())))

+ (derivation-name drv)))

expected-value: "foo-0.0"

actual-value: "foo-0.0"

result: PASS

test-name: derivation-output-names

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:308

source:

+ (test-equal

+ "derivation-output-names"

+ '(("out") ("bar" "chbouib"))

+ (let ((drv1 (derivation %store "foo-0.0" %bash '()))

+ (drv2 (derivation

+ %store

+ "foo-0.0"

+ %bash

+ '()

+ #:outputs

+ '("bar" "chbouib"))))

+ (list (derivation-output-names drv1)

+ (derivation-output-names drv2))))

expected-value: (("out") ("bar" "chbouib"))

actual-value: (("out") ("bar" "chbouib"))

result: PASS

test-name: offloadable-derivation?

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:316

source:

+ (test-assert

+ "offloadable-derivation?"

+ (and (offloadable-derivation?

+ (derivation %store "foo" %bash '()))

+ (offloadable-derivation?

+ (derivation

+ %store

+ "foo"

+ %bash

+ '()

+ #:substitutable?

+ #f))

+ (not (offloadable-derivation?

+ (derivation

+ %store

+ "foo"

+ %bash

+ '()

+ #:local-build?

+ #t)))))

actual-value: #t

result: PASS

test-name: substitutable-derivation?

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:325

source:

+ (test-assert

+ "substitutable-derivation?"

+ (and (substitutable-derivation?

+ (derivation %store "foo" %bash '()))

+ (substitutable-derivation?

+ (derivation

+ %store

+ "foo"

+ %bash

+ '()

+ #:local-build?

+ #t))

+ (not (substitutable-derivation?

+ (derivation

+ %store

+ "foo"

+ %bash

+ '()

+ #:substitutable?

+ #f)))))

actual-value: #t

result: PASS

test-name: fixed-output-derivation?

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:334

source:

+ (test-assert

+ "fixed-output-derivation?"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-fixed-builder.sh"

+ "echo -n hello > $out"

+ '()))

+ (hash (sha256 (string->utf8 "hello")))

+ (drv (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder)

+ #:inputs

+ `((,builder))

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256)))

+ (fixed-output-derivation? drv)))

actual-value: #t

result: PASS

test-name: fixed-output derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:344

source:

+ (test-assert

+ "fixed-output derivation"

+ (let* @ build-started /tmp/guix-tests/store/k4nhzjjfk1acbcpsvm2yhxkj5jvqm59l-fixed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/k4//nhzjjfk1acbcpsvm2yhxkj5jvqm59l-fixed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/k4nhzjjfk1acbcpsvm2yhxkj5jvqm59l-fixed.drv -

@ build-started /tmp/guix-tests/store/b85qz6zrg22iilj4wcvja2w69vvzp9hy-fixed-rec.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/b8//5qz6zrg22iilj4wcvja2w69vvzp9hy-fixed-rec.drv.bz2

@ build-succeeded /tmp/guix-tests/store/b85qz6zrg22iilj4wcvja2w69vvzp9hy-fixed-rec.drv -

((builder

+ (add-text-to-store

+ %store

+ "my-fixed-builder.sh"

+ "echo -n hello > $out"

+ '()))

+ (hash (sha256 (string->utf8 "hello")))

+ (drv (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder)

+ #:inputs

+ `((,builder))

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((p (derivation->output-path drv)))

+ (and (equal?

+ (string->utf8 "hello")

+ (call-with-input-file p get-bytevector-all))

+ (bytevector? (query-path-hash %store p)))))))

actual-value: #t

result: PASS

test-name: fixed-output derivation: output paths are equal

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:359

source:

+ (test-assert

+ "fixed-output derivation: output paths are equal"

+ (let* ((builder1

+ (add-text-to-store

+ %store

+ "fixed-builder1.sh"

+ "echo -n hello > $out"

+ '()))

+ (builder2

+ (add-text-to-store

+ %store

+ "fixed-builder2.sh"

+ "echo hey; echo -n hello > $out"

+ '()))

+ (hash (sha256 (string->utf8 "hello")))

+ (drv1 (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder1)

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (drv2 (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder2)

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (succeeded?

+ (build-derivations %store (list drv1 drv2))))

+ (and succeeded?

+ (equal?

+ (derivation->output-path drv1)

+ (derivation->output-path drv2)))))

actual-value: #t

result: PASS

test-name: fixed-output derivation, recursive

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:376

source:

+ (test-assert

+ "fixed-output derivation, recursive"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-fixed-builder.sh"

+ "echo -n hello > $out"

+ '()))

+ (hash (sha256 (string->utf8 "hello")))

+ (drv (derivation

+ %store

+ "fixed-rec"

+ %bash

+ `(,builder)

+ #:inputs

+ `((,builder))

+ #:hash

+ (base32

+ "0sg9f58l1jj88w6pdrfdpj5x9b1zrwszk84j81zvby36q9whhhqa")

+ #:hash-algo

+ 'sha256

+ #:recursive?

+ #t))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((p (derivation->output-path drv)))

+ (and (equal?

+ (string->utf8 "hello")

+ (call-with-input-file p get-bytevector-all))

+ (bytevector? (query-path-hash %store p)))))))

actual-value: #t

result: PASS

test-name: derivation with a fixed-output input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:393

source:

+ (test-assert

+ "derivation with a fixed-output input"

+ (let* ((builder1

+ (add-text-to-store

+ %store

+ "fixed-builder1.sh"

+ "echo -n hello > $out"

+ '()))

+ (builder2

+ (add-text-to-store

+ %store

+ "fixed-builder2.sh"

+ "echo hey; echo -n hello > $out"

+ '()))

+ (hash (sha256 (string->utf8 "hello")))

+ (fixed1

+ (derivation

+ @ build-started /tmp/guix-tests/store/2q3q6qs3wvi5d5v807lgn76ab0q4341v-final.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/2q//3q6qs3wvi5d5v807lgn76ab0q4341v-final.drv.bz2

/tmp/guix-tests/store/7bdcga4xc915pgzf524xhjk677521whr-fixed

@ build-succeeded /tmp/guix-tests/store/2q3q6qs3wvi5d5v807lgn76ab0q4341v-final.drv -

@ build-started /tmp/guix-tests/store/jgsbqbf10dnfyjmyjsphx715znbn8rhv-fixed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/jg//sbqbf10dnfyjmyjsphx715znbn8rhv-fixed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/jgsbqbf10dnfyjmyjsphx715znbn8rhv-fixed.drv -

@ build-started /tmp/guix-tests/store/1s96ljyrlllvp5b91s56i5hdy2chhyw2-fixed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/1s//96ljyrlllvp5b91s56i5hdy2chhyw2-fixed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/1s96ljyrlllvp5b91s56i5hdy2chhyw2-fixed.drv -

%store

+ "fixed"

+ %bash

+ `(,builder1)

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (fixed2

+ (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder2)

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (fixed-out (derivation->output-path fixed1))

+ (builder3

+ (add-text-to-store

+ %store

+ "final-builder.sh"

+ "echo $in ; (read -u 3 c; echo $c) 3< $in > $out"

+ '()))

+ (final1

+ (derivation

+ %store

+ "final"

+ %bash

+ `(,builder3)

+ #:env-vars

+ `(("in" unquote fixed-out))

+ #:inputs

+ `((,%bash) (,builder3) (,fixed1))))

+ (final2

+ (derivation

+ %store

+ "final"

+ %bash

+ `(,builder3)

+ #:env-vars

+ `(("in" unquote fixed-out))

+ #:inputs

+ `((,%bash) (,builder3) (,fixed2))))

+ (succeeded?

+ (build-derivations %store (list final1 final2))))

+ (and succeeded?

+ (equal?

+ (derivation->output-path final1)

+ (derivation->output-path final2)))))

actual-value: #t

result: PASS

test-name: multiple-output derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:427

source:

+ (test-assert

+ "multiple-output derivation"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-fixed-builder.sh"

+ "echo one > $out ; echo two > $second"

+ '()))

+ (drv (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder)

+ #:env-vars

+ '(("HOME" . "/homeless")

+ ("zzz" . "Z!")

+ ("AAA" . "A!"))

+ #:inputs

+ `((,%bash) (,builder))

+ #:outputs

+ '("out" "second")))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((one (derivation->output-path drv "out"))

+ (two (derivation->output-path drv "second")))

+ (and (lset= equal?

+ (derivation->output-paths drv)

+ `(("out" unquote one) ("second" unquote two)))

+ (eq? 'one (call-with-input-file one read))

+ (eq? 'two (call-with-input-file two read)))))))

actual-value: #t

result: PASS

test-name: multiple-output derivation, non-alphabetic order

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:448

source:

+ (test-assert

+ "multiple-output derivation, non-alphabetic order"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "my-fixed-builder.sh"

+ "echo one > $out ; echo two > $AAA"

+ '()))

+ (drv (derivation

+ %store

+ "fixed"

+ %bash

+ `(,builder)

+ #:inputs

+ `((,%bash) (,builder))

+ #:outputs

+ '("out" "AAA")))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((one (derivation->output-path drv "out"))

+ (two (derivation->output-path drv "AAA")))

+ (and (eq? 'one (call-with-input-file one read))

+ (eq? 'two (call-with-input-file two read)))))))

actual-value: #t

result: PASS

test-name: read-derivation vs. derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:465

source:

+ (test-assert

+ "read-derivation vs. derivation"

+ (let* ((sources

+ (unfold

+ (cut >= <> 10)

+ (lambda (n)

+ (add-text-to-store

+ %store

+ (format #f "input~a" n)

+ (random-text)))

+ #{1+}#

+ 0))

+ (inputs

+ (map (lambda (file)

+ (derivation

+ %store

+ "derivation-input"

+ %bash

+ '()

+ #:inputs

+ `((,%bash) (,file))))

+ sources))

+ (builder

+ (add-text-to-store

+ %store

+ "builder.sh"

+ "echo one > $one ; echo two > $two"

+ '()))

+ (drv (derivation

+ %store

+ "derivation"

+ %bash

+ `(,builder)

+ #:inputs

+ `((,%bash)

+ (,builder)

+ ,@(map list (append sources inputs)))

+ #:outputs

+ '("two" "one")))

+ (drv* (call-with-input-file

+ (derivation-file-name drv)

+ read-derivation)))

+ (equal? drv* drv)))

actual-value: #t

result: PASS

test-name: multiple-output derivation, derivation-path->output-path

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:492

source:

+ (test-assert

+ "multiple-output derivation, derivation-path->output-path"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "builder.sh"

+ "echo one > $out ; echo two > $second"

+ '()))

+ (drv (derivation

+ %store

+ "multiple"

+ %bash

+ `(,builder)

+ #:outputs

+ '("out" "second")))

+ (drv-file (derivation-file-name drv))

+ (one (derivation->output-path drv "out"))

+ (two (derivation->output-path drv "second"))

+ (first (derivation-path->output-path drv-file "out"))

+ (second

+ (derivation-path->output-path drv-file "second")))

+ (and (not (string=? one two))

+ (string-suffix? "-second" two)

+ (string=? first one)

+ (string=? second two))))

actual-value: #t

result: PASS

test-name: user of multiple-output derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:509

source:

+ (test-assert

+ "user of multiple-output derivation"

+ (let* ((builder1

+ (add-text-to-store

+ %store

+ "my-mo-builder.sh"

+ "echo one > $out ; echo two > $two"

+ '()))

+ (mdrv (derivation

+ %store

+ "multiple-output"

+ %bash

+ `(,builder1)

+ #:inputs

+ `((,%bash) (,builder1))

+ #:outputs

+ '("out" "two")))

+ (builder2

+ (add-text-to-store

+ %store

+ "my-mo-user-builder.sh"

+ "read x < $one;\n read y < $two;\n echo \"($x $y)\" > $out"

+ '()))

+ (udrv (derivation

+ %store

+ "multiple-output-user"

+ %bash

+ `(,builder2)

+ #:env-vars

+ `(("one"

+ unquote

+ (derivation->output-path mdrv "out"))

+ ("two"

+ unquote

+ (derivation->output-path mdrv "two")))

+ #:inputs

+ `((,%bash) (,builder2) (,mdrv) (,mdrv "two")))))

+ (and (build-derivations %store (list (pk 'udrv udrv)))

+ (let ((p (derivation->output-path udrv)))

+ (and (valid-path? %store p)

+ (equal? '(one two) (call-with-input-file p read)))))))

;;; (udrv #<derivation /tmp/guix-tests/store/d1iq16cxzglxwmv478pk9viic0vm0ca2-multiple-output-user.drv => @ build-started /tmp/guix-tests/store/iryf8h5akyy02qd3dd9ps1ka026cyanz-multiple-output.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/ir//yf8h5akyy02qd3dd9ps1ka026cyanz-multiple-output.drv.bz2

@ build-succeeded /tmp/guix-tests/store/iryf8h5akyy02qd3dd9ps1ka026cyanz-multiple-output.drv -

@ build-started /tmp/guix-tests/store/d1iq16cxzglxwmv478pk9viic0vm0ca2-multiple-output-user.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/d1//iq16cxzglxwmv478pk9viic0vm0ca2-multiple-output-user.drv.bz2

@ build-succeeded /tmp/guix-tests/store/d1iq16cxzglxwmv478pk9viic0vm0ca2-multiple-output-user.drv -

@ build-started /tmp/guix-tests/store/mbi7gj0nlckkz5xchza6rl5vwsnybh73-closure-graphs.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/mb//i7gj0nlckkz5xchza6rl5vwsnybh73-closure-graphs.drv.bz2

@ build-succeeded /tmp/guix-tests/store/mbi7gj0nlckkz5xchza6rl5vwsnybh73-closure-graphs.drv -

@ build-started /tmp/guix-tests/store/q4wh93j1i84snrx51al231wnj4g5i99b-allowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/q4//wh93j1i84snrx51al231wnj4g5i99b-allowed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/q4wh93j1i84snrx51al231wnj4g5i99b-allowed.drv -

@ build-started /tmp/guix-tests/store/nxjmh1ipl69ak2x01igkqr2m0qg312bs-disallowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/nx//jmh1ipl69ak2x01igkqr2m0qg312bs-disallowed.drv.bz2

output (`/tmp/guix-tests/store/sjsz32mf9z3nwz33v72l68x0l3m4gdy0-disallowed') is not allowed to refer to path `/tmp/guix-tests/store/bdx3lhq3793i8lz6fvldrp917ba52v1v-foo'

@ build-failed /tmp/guix-tests/store/nxjmh1ipl69ak2x01igkqr2m0qg312bs-disallowed.drv - 1 output (`/tmp/guix-tests/store/sjsz32mf9z3nwz33v72l68x0l3m4gdy0-disallowed') is not allowed to refer to path `/tmp/guix-tests/store/bdx3lhq3793i8lz6fvldrp917ba52v1v-foo'

/tmp/guix-tests/store/01sib6yydjyifqm8is82l8q4xr6g84lx-multiple-output-user 1d7c8c0>)

actual-value: #t

result: PASS

test-name: derivation with #:references-graphs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:542

source:

+ (test-assert

+ "derivation with #:references-graphs"

+ (let* ((input1

+ (add-text-to-store

+ %store

+ "foo"

+ "hello"

+ (list %bash)))

+ (input2

+ (add-text-to-store

+ %store

+ "bar"

+ (number->string (random 7777))

+ (list input1)))

+ (builder

+ (add-text-to-store

+ %store

+ "build-graph"

+ (format

+ #f

+ "\n~a $out\n (while read l ; do echo $l ; done) < bash > $out/bash\n (while read l ; do echo $l ; done) < input1 > $out/input1\n (while read l ; do echo $l ; done) < input2 > $out/input2"

+ %mkdir)

+ (list %mkdir)))

+ (drv (derivation

+ %store

+ "closure-graphs"

+ %bash

+ `(,builder)

+ #:references-graphs

+ `(("bash" unquote %bash)

+ ("input1" unquote input1)

+ ("input2" unquote input2))

+ #:inputs

+ `((,%bash) (,builder))))

+ (out (derivation->output-path drv)))

+ (define (deps path . deps)

+ (let ((count (length deps)))

+ (string-append

+ path

+ "\n\n"

+ (number->string count)

+ "\n"

+ (string-join (sort deps string<?) "\n")

+ (if (zero? count) "" "\n"))))

+ (and (build-derivations %store (list drv))

+ (equal?

+ (directory-contents out get-string-all)

+ `(("/bash" unquote (string-append %bash "\n\n0\n"))

+ ("/input1"

+ unquote

+ (if (string>? input1 %bash)

+ (string-append (deps %bash) (deps input1 %bash))

+ (string-append (deps input1 %bash) (deps %bash))))

+ ("/input2"

+ unquote

+ (string-concatenate

+ (map cdr

+ (sort (map (lambda (p d) (cons p (apply deps p d)))

+ (list %bash input1 input2)

+ (list '() (list %bash) (list input1)))

+ (lambda (x y)

+ (match x

+ ((p1 . _)

+ (match y

+ ((p2 . _)

+ (string<? p1 p2)))))))))))))))

actual-value: #t

result: PASS

test-name: derivation #:allowed-references, ok

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:592

source:

+ (test-assert

+ "derivation #:allowed-references, ok"

+ (let ((drv (derivation

+ %store

+ "allowed"

+ %bash

+ '("-c" "echo hello > $out")

+ #:inputs

+ `((,%bash))

+ #:allowed-references

+ '())))

+ (build-derivations %store (list drv))))

actual-value: #t

result: PASS

test-name: derivation #:allowed-references, not allowed

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:599

source:

+ (test-assert

+ "derivation #:allowed-references, not allowed"

+ (let* ((txt (add-text-to-store %store "foo" "Hello, world."))

+ (drv (derivation

+ %store

+ "disallowed"

+ %bash

+ `("-c" ,(string-append "echo " txt "> $out"))

+ #:inputs

+ `((,%bash) (,txt))

+ #:allowed-references

+ '())))

+ (guard (c ((nix-protocol-error? c) #t))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: @ build-started /tmp/guix-tests/store/gn8l3dbhnpjd4xnaq16jnigicb2yqv68-allowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/gn//8l3dbhnpjd4xnaq16jnigicb2yqv68-allowed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/gn8l3dbhnpjd4xnaq16jnigicb2yqv68-allowed.drv -

@ build-started /tmp/guix-tests/store/wi2xv7yipw4nx5xls95bygbj7dl62ml8-disallowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/wi//2xv7yipw4nx5xls95bygbj7dl62ml8-disallowed.drv.bz2

output (`/tmp/guix-tests/store/x16606f0yf78viwdwhzcgvqcm8p8m1zf-disallowed') is not allowed to refer to path `/tmp/guix-tests/store/x16606f0yf78viwdwhzcgvqcm8p8m1zf-disallowed'

@ build-failed /tmp/guix-tests/store/wi2xv7yipw4nx5xls95bygbj7dl62ml8-disallowed.drv - 1 output (`/tmp/guix-tests/store/x16606f0yf78viwdwhzcgvqcm8p8m1zf-disallowed') is not allowed to refer to path `/tmp/guix-tests/store/x16606f0yf78viwdwhzcgvqcm8p8m1zf-disallowed'

@ build-started /tmp/guix-tests/store/vbnwanpq295lszpzd9x5rw8gyvzdai6f-disallowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/vb//nwanpq295lszpzd9x5rw8gyvzdai6f-disallowed.drv.bz2

@ build-succeeded /tmp/guix-tests/store/vbnwanpq295lszpzd9x5rw8gyvzdai6f-disallowed.drv -

@ build-started /tmp/guix-tests/store/cbw7ax1vdz8i453gibbky564xs1iggmr-disdisallowed.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/cb//w7ax1vdz8i453gibbky564xs1iggmr-disdisallowed.drv.bz2

output (`/tmp/guix-tests/store/lnay1n74vhpqndqwd4r7k439xw98kd2a-disdisallowed') is not allowed to refer to path `/tmp/guix-tests/store/bdx3lhq3793i8lz6fvldrp917ba52v1v-foo'

@ build-failed /tmp/guix-tests/store/cbw7ax1vdz8i453gibbky564xs1iggmr-disdisallowed.drv - 1 output (`/tmp/guix-tests/store/lnay1n74vhpqndqwd4r7k439xw98kd2a-disdisallowed') is not allowed to refer to path `/tmp/guix-tests/store/bdx3lhq3793i8lz6fvldrp917ba52v1v-foo'

@ build-started /tmp/guix-tests/store/h9mpwgprl6b5b966ravblk34ffy4qaq0-leaked-env-vars.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/h9//mpwgprl6b5b966ravblk34ffy4qaq0-leaked-env-vars.drv.bz2

@ build-succeeded /tmp/guix-tests/store/h9mpwgprl6b5b966ravblk34ffy4qaq0-leaked-env-vars.drv -

derivation #:allowed-references, self allowed

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:611

source:

+ (test-assert

+ "derivation #:allowed-references, self allowed"

+ (let ((drv (derivation

+ %store

+ "allowed"

+ %bash

+ '("-c" "echo $out > $out")

+ #:inputs

+ `((,%bash))

+ #:allowed-references

+ '("out"))))

+ (build-derivations %store (list drv))))

actual-value: #t

result: PASS

test-name: derivation #:allowed-references, self not allowed

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:618

source:

+ (test-assert

+ "derivation #:allowed-references, self not allowed"

+ (let ((drv (derivation

+ %store

+ "disallowed"

+ %bash

+ `("-c" ,"echo $out > $out")

+ #:inputs

+ `((,%bash))

+ #:allowed-references

+ '())))

+ (guard (c ((nix-protocol-error? c) #t))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: derivation #:disallowed-references, ok

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:629

source:

+ (test-assert

+ "derivation #:disallowed-references, ok"

+ (let ((drv (derivation

+ %store

+ "disallowed"

+ %bash

+ '("-c" "echo hello > $out")

+ #:inputs

+ `((,%bash))

+ #:disallowed-references

+ '("out"))))

+ (build-derivations %store (list drv))))

actual-value: #t

result: PASS

test-name: derivation #:disallowed-references, not ok

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:636

source:

+ (test-assert

+ "derivation #:disallowed-references, not ok"

+ (let* ((txt (add-text-to-store %store "foo" "Hello, world."))

+ (drv (derivation

+ %store

+ "disdisallowed"

+ %bash

+ `("-c" ,(string-append "echo " txt "> $out"))

+ #:inputs

+ `((,%bash) (,txt))

+ #:disallowed-references

+ (list txt))))

+ (guard (c ((nix-protocol-error? c) #t))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: derivation #:leaked-env-vars

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:651

source:

+ (test-equal

+ "derivation #:leaked-env-vars"

+ (getenv "NIX_STATE_DIR")

+ (let* ((value (getenv "NIX_STATE_DIR"))

+ (drv (derivation

+ %store

+ "leaked-env-vars"

+ %bash

+ '("-c" "echo -n $NIX_STATE_DIR > $out")

+ #:hash

+ (sha256 (string->utf8 value))

+ #:hash-algo

+ 'sha256

+ #:inputs

+ `((,%bash))

+ #:leaked-env-vars

+ '("NIX_STATE_DIR"))))

+ (and (build-derivations %store (list drv))

+ (call-with-input-file

+ (derivation->output-path drv)

+ get-string-all))))

expected-value: "/tmp/guix-tests/var/11678"

actual-value: "/tmp/guix-tests/var/11678"

result: PASS

test-name: build derivation with coreutils

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:672

source:

+ (test-assert

+ "build derivation with coreutils"

+ (let* ((builder

+ (add-text-to-store

+ %store

+ "build-with-coreutils.sh"

+ "echo $PATH ; mkdir --version ; mkdir $out ; touch $out/good"

+ '()))

+ (drv (derivation

+ %store

+ "foo"

+ %bash

+ `(,builder)

+ #:env-vars

+ `(("PATH"

+ unquote

+ (string-append

+ (derivation->output-path %coreutils)

+ @ build-started /tmp/guix-tests/store/9d7mw11w6hmhnzq7ns8fl91plvyyimpj-a.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/9d//7mw11w6hmhnzq7ns8fl91plvyyimpj-a.drv.bz2

@ build-succeeded /tmp/guix-tests/store/9d7mw11w6hmhnzq7ns8fl91plvyyimpj-a.drv -

"/bin")))

+ #:inputs

+ `((,builder) (,%coreutils))))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((p (derivation->output-path drv)))

+ (and (valid-path? %store p)

+ (file-exists? (string-append p "/good")))))))

result: SKIP

test-name: build-expression->derivation and invalid module name

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:695

source:

+ (test-equal

+ "build-expression->derivation and invalid module name"

+ '(file-search-error

+ "guix/module/that/does/not/exist.scm")

+ (guard (c ((file-search-error? c)

+ (list 'file-search-error

+ (file-search-error-file-name c))))

+ (build-expression->derivation

+ %store

+ "foo"

+ #t

+ #:modules

+ '((guix module that does not exist)))))

expected-value: (file-search-error "guix/module/that/does/not/exist.scm")

actual-value: (file-search-error "guix/module/that/does/not/exist.scm")

result: PASS

test-name: build-expression->derivation and builder encoding

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:704

source:

+ (test-equal

+ "build-expression->derivation and builder encoding"

+ '("UTF-8" #t)

+ (let* ((exp '(λ (α) (+ α 1)))

+ (drv (build-expression->derivation %store "foo" exp)))

+ (match (derivation-builder-arguments drv)

+ ((... builder)

+ (with-fluids

+ ((%default-port-encoding "UTF-8"))

+ (call-with-input-file

+ builder

+ (lambda (port)

+ (list (port-encoding port)

+ (->bool

+ (string-contains

+ (get-string-all port)

+ "(λ (α) (+ α 1))"))))))))))

expected-value: ("UTF-8" #t)

actual-value: ("UTF-8" #t)

result: PASS

test-name: build-expression->derivation and derivation-prerequisites

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:718

source:

+ (test-assert

+ "build-expression->derivation and derivation-prerequisites"

+ (let ((drv (build-expression->derivation %store "fail" #f)))

+ (any (match-lambda

+ (($ <derivation-input> path)

+ (string=?

+ path

+ (derivation-file-name (%guile-for-build)))))

+ (derivation-prerequisites drv))))

actual-value: #t

result: PASS

test-name: derivation-prerequisites and valid-derivation-input?

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:725

source:

+ (test-assert

+ "derivation-prerequisites and valid-derivation-input?"

+ (let* ((a (build-expression->derivation

+ %store

+ "a"

+ '(mkdir %output)))

+ (b (build-expression->derivation

+ %store

+ "b"

+ `(list ,(random-text))))

+ (c (build-expression->derivation

+ %store

+ "c"

+ `(mkdir %output)

+ #:inputs

+ `(("a" ,a) ("b" ,b)))))

+ (build-derivations

+ %store

+ (list a

+ (package-derivation %store %bootstrap-guile)))

+ (match (derivation-prerequisites

+ c

+ (cut valid-derivation-input? %store <>))

+ ((($ <derivation-input> file ("out")))

+ (string=? file (derivation-file-name b)))

+ (x (pk 'fail x #f)))))

actual-value: #t

result: PASS

test-name: build-expression->derivation without inputs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:743

source:

+ (test-assert

+ "build-expression->derivation without inputs"

+ (let* ((builder

+ '(begin

+ (mkdir %output)

+ (call-with-output-file

+ (string-append %output "/test")

+ (lambda (p) (display '(hello guix) p)))))

+ (drv (@ build-started /tmp/guix-tests/store/siz27i7vk0g1xngsx049p9vrvss9c712-goo.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/si//z27i7vk0g1xngsx049p9vrvss9c712-goo.drv.bz2

@ build-succeeded /tmp/guix-tests/store/siz27i7vk0g1xngsx049p9vrvss9c712-goo.drv -

substitute: warning: authentication and authorization of substitutes disabled!

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable

@ build-started /tmp/guix-tests/store/qfl2559affw2jnz43j8c6dx0rjngqns3-silent.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/qf//l2559affw2jnz43j8c6dx0rjngqns3-silent.drv.bz2

building of `/tmp/guix-tests/store/qfl2559affw2jnz43j8c6dx0rjngqns3-silent.drv' timed out after 1 seconds of silence

@ build-failed /tmp/guix-tests/store/qfl2559affw2jnz43j8c6dx0rjngqns3-silent.drv - timeout

killing process 11945

substitute: warning: authentication and authorization of substitutes disabled!

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable

@ build-started /tmp/guix-tests/store/6d3dbcj98inv78d5abwp41fbis15kvy6-slow.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/6d//3dbcj98inv78d5abwp41fbis15kvy6-slow.drv.bz2

building of `/tmp/guix-tests/store/6d3dbcj98inv78d5abwp41fbis15kvy6-slow.drv' timed out after 1 seconds

@ build-failed /tmp/guix-tests/store/6d3dbcj98inv78d5abwp41fbis15kvy6-slow.drv - timeout

killing process 11959

@ build-started /tmp/guix-tests/store/cbc4v7vanc01h71qnngr0k35kvvvik9v-input.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/cb//c4v7vanc01h71qnngr0k35kvvvik9v-input.drv.bz2

@ build-succeeded /tmp/guix-tests/store/cbc4v7vanc01h71qnngr0k35kvvvik9v-input.drv -

@ build-started /tmp/guix-tests/store/5ykgrvz6nsm8rz51hww0wfb7kj83s5x7-something.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/5y//kgrvz6nsm8rz51hww0wfb7kj83s5x7-something.drv.bz2

@ build-succeeded /tmp/guix-tests/store/5ykgrvz6nsm8rz51hww0wfb7kj83s5x7-something.drv -

finding garbage collector roots...

removing stale temporary roots file `/tmp/guix-tests/var/11678/temproots/11696'

deleting unused links...

build-expression->derivation

+ %store

+ "goo"

+ builder))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((p (derivation->output-path drv)))

+ (equal?

+ '(hello guix)

+ (call-with-input-file

+ (string-append p "/test")

+ read))))))

actual-value: #t

result: PASS

test-name: build-expression->derivation and max-silent-time

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:756

source:

+ (test-assert

+ "build-expression->derivation and max-silent-time"

+ (let* ((store (let ((s (open-connection)))

+ (set-build-options s #:max-silent-time 1)

+ s))

+ (builder '(begin (sleep 100) (mkdir %output) #t))

+ (drv (build-expression->derivation

+ store

+ "silent"

+ builder))

+ (out-path (derivation->output-path drv)))

+ (guard (c ((nix-protocol-error? c)

+ (and (string-contains

+ (nix-protocol-error-message c)

+ "failed")

+ (not (valid-path? store out-path)))))

+ (build-derivations store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: build-expression->derivation and timeout

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:770

source:

+ (test-assert

+ "build-expression->derivation and timeout"

+ (let* ((store (let ((s (open-connection)))

+ (set-build-options s #:timeout 1)

+ s))

+ (builder '(begin (sleep 100) (mkdir %output) #t))

+ (drv (build-expression->derivation

+ store

+ "slow"

+ builder))

+ (out-path (derivation->output-path drv)))

+ (guard (c ((nix-protocol-error? c)

+ (and (string-contains

+ (nix-protocol-error-message c)

+ "failed")

+ (not (valid-path? store out-path)))))

+ (build-derivations store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: build-expression->derivation and derivation-prerequisites-to-build

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:784

source:

+ (test-assert

+ "build-expression->derivation and derivation-prerequisites-to-build"

+ (let ((drv (build-expression->derivation %store "fail" #f)))

+ (null? (derivation-prerequisites-to-build %store drv))))

actual-value: #t

result: PASS

test-name: derivation-prerequisites-to-build when outputs already present

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:790

source:

+ (test-assert

+ "derivation-prerequisites-to-build when outputs already present"

+ (let* ((builder '(begin (mkdir %output) #t))

+ (input-drv

+ (build-expression->derivation

+ %store

+ "input"

+ builder))

+ (input-path

+ (derivation-output-path

+ (assoc-ref (derivation-outputs input-drv) "out")))

+ (drv (build-expression->derivation

+ %store

+ "something"

+ builder

+ #:inputs

+ `(("i" ,input-drv))))

+ (output (derivation->output-path drv)))

+ (when (valid-path? %store input-path)

+ (delete-paths %store (list input-path)))

+ (when (valid-path? %store output)

+ (delete-paths %store (list output)))

+ (and (equal?

+ (map derivation-input-path

+ (derivation-prerequisites-to-build %store drv))

+ (list (derivation-file-name input-drv)))

+ (build-derivations %store (list drv))

+ (delete-paths %store (list input-path))

+ (not (valid-path? %store input-path))

+ (null? (derivation-prerequisites-to-build %store drv)))))

actual-value: #t

result: PASS

test-name: substitute: warning: authentication and authorization of substitutes disabled!

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable

substitute: warning: authentication and authorization of substitutes disabled!

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable

derivation-prerequisites-to-build and substitutes

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:819

source:

+ (test-assert

+ "derivation-prerequisites-to-build and substitutes"

+ (let* ((store (open-connection))

+ (drv (build-expression->derivation

+ store

+ "prereq-subst"

+ (random 1000)))

+ (output (derivation->output-path drv)))

+ (set-build-options

+ store

+ #:use-substitutes?

+ #t

+ #:substitute-urls

+ (%test-substitute-urls))

+ (with-derivation-narinfo

+ drv

+ (let-values

+ (((build download)

+ (derivation-prerequisites-to-build store drv))

+ ((build* download*)

+ (derivation-prerequisites-to-build

+ store

+ drv

+ #:substitutable?

+ (const #f))))

+ (and (null? build)

+ (equal? download (list output))

+ (null? download*)

+ (null? build*))))))

actual-value: #t

result: PASS

test-name: derivation-prerequisites-to-build and substitutes, non-substitutable build

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:841

source:

+ (test-assert

+ "derivation-prerequisites-to-build and substitutes, non-substitutable build"

+ (let* ((store (open-connection))

+ (drv (build-expression->derivation

+ store

+ "prereq-no-subst"

+ (random 1000)

+ #:substitutable?

+ #f))

+ (output (derivation->output-path drv)))

+ (set-build-options

+ store

+ #:use-substitutes?

+ #t

+ #:substitute-urls

+ (%test-substitute-urls))

+ (with-derivation-narinfo

+ drv

+ (let-values

+ (((build download)

+ (derivation-prerequisites-to-build store drv)))

+ (and (null? download)

+ (match build

+ (((? derivation-input? input))

+ (string=?

+ (derivation-input-path input)

+ (derivation-file-name drv)))))))))

actual-value: #t

result: PASS

test-name: derivation-prerequisites-to-build and substitutes, local build

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:863

source:

+ (test-assert

+ "derivation-prerequisites-to-build and substitutes, local build"

+ (with-store

+ store

+ (let* ((drv (build-expression->derivation

+ store

+ "prereq-subst-local"

+ (random 1000)

+ #:local-build?

+ #t))

+ (output (derivation->output-path drv)))

+ (set-build-options

+ store

+ #:use-substitutes?

+ #t

+ #:substitute-urls

+ (%test-substitute-urls))

+ (with-derivation-narinfo

+ drv

+ (let-values

+ (((build download)

+ (derivation-prerequisites-to-build store drv)))

+ (and (null? build)

+ (match download

+ (((? string? item))

+ (string=? item (derivation->output-path drv))))))))))

actual-value: #t

result: PASS

test-name: derivation-prerequisites-to-build in 'check' mode

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:885

source:

+ (test-assert

+ "derivation-prerequisites-to-build in 'check' mode"

+ (with-store

+ store

+ (let* ((dep (build-expression->derivation

+ store

+ "dep"

+ `(begin ,(random-text) (mkdir %output))))

+ (drv (build-expression->derivation

+ store

+ "to-check"

+ '(mkdir %output)

+ #:inputs

+ `(("dep" ,dep)))))

+ (build-derivations store (list drv))

+ (delete-paths

+ store

+ (list (derivation->output-path dep)))

+ (and (null? (derivation-prerequisites-to-build store drv))

+ (match (substitute: warning: authentication and authorization of substitutes disabled!

substitute: guix substitute: warning: ACL for archive imports seems to be uninitialized, substitutes may be unavailable

building path(s) `/tmp/guix-tests/store/0qkhy40mh59all8jx9v72ywpjlivjjwj-dep'

building path(s) `/tmp/guix-tests/store/nak33yc70xvmanh7yy1swx9hv5n119l4-to-check'

finding garbage collector roots...

removing stale temporary roots file `/tmp/guix-tests/var/11678/temproots/11989'

removing stale temporary roots file `/tmp/guix-tests/var/11678/temproots/.fuse_hidden0000f99a0000237f'

deleting `/tmp/guix-tests/store/0qkhy40mh59all8jx9v72ywpjlivjjwj-dep'

deleting `/tmp/guix-tests/store/trash'

deleting unused links...

note: currently hard linking saves 0.14 MiB

@ build-started /tmp/guix-tests/store/kvz3csrwpha43pk3mvhwsrzw2yz5qviv-fail.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/kv//z3csrwpha43pk3mvhwsrzw2yz5qviv-fail.drv.bz2

builder for `/tmp/guix-tests/store/kvz3csrwpha43pk3mvhwsrzw2yz5qviv-fail.drv' failed with exit code 1

@ build-failed /tmp/guix-tests/store/kvz3csrwpha43pk3mvhwsrzw2yz5qviv-fail.drv - 1 builder for `/tmp/guix-tests/store/kvz3csrwpha43pk3mvhwsrzw2yz5qviv-fail.drv' failed with exit code 1

@ build-started /tmp/guix-tests/store/v3d6ak4h46illn6yqkid6fsid3i749yy-double.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/v3//d6ak4h46illn6yqkid6fsid3i749yy-double.drv.bz2

@ build-succeeded /tmp/guix-tests/store/v3d6ak4h46illn6yqkid6fsid3i749yy-double.drv -

derivation-prerequisites-to-build

+ store

+ drv

+ #:mode

+ (build-mode check))

+ ((input)

+ (string=?

+ (derivation-input-path input)

+ (derivation-file-name dep))))))))

actual-value: #t

result: PASS

test-name: substitution-oracle and #:substitute? #f

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:905

source:

+ (test-assert

+ "substitution-oracle and #:substitute? #f"

+ (with-store

+ store

+ (let* ((dep (build-expression->derivation

+ store

+ "dep"

+ `(begin ,(random-text) (mkdir %output))))

+ (drv (build-expression->derivation

+ store

+ "not-subst"

+ `(begin ,(random-text) (mkdir %output))

+ #:substitutable?

+ #f

+ #:inputs

+ `(("dep" ,dep))))

+ (query #f))

+ (define (record-substitutable-path-query store paths)

+ (when query (error "already called!" query))

+ (set! query paths)

+ '())

+ (mock ((guix store)

+ substitutable-paths

+ record-substitutable-path-query)

+ (let ((pred (substitution-oracle store (list drv))))

+ (pred (derivation->output-path drv))))

+ (equal?

+ (pk 'query query)

+ (list (derivation->output-path dep))))))

;;; (query ("/tmp/guix-tests/store/93m3pmns6b2f5pmvkmrbcz3wjf8mncpg-dep"))

actual-value: #t

result: PASS

test-name: build-expression->derivation with expression returning #f

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:934

source:

+ (test-assert

+ "build-expression->derivation with expression returning #f"

+ (let* ((builder '(begin (mkdir %output) #f))

+ (drv (build-expression->derivation

+ %store

+ "fail"

+ builder))

+ (out-path (derivation->output-path drv)))

+ (guard (c ((nix-protocol-error? c)

+ (and (string-match

+ "build .* failed"

+ (nix-protocol-error-message c))

+ (not (valid-path? %store out-path)))))

+ (build-derivations %store (list drv))

+ #f)))

actual-value: #t

result: PASS

test-name: build-expression->derivation with two outputs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:949

source:

+ (test-assert

+ "build-expression->derivation with two outputs"

+ (let* ((builder

+ '(begin

+ (call-with-output-file

+ (assoc-ref %outputs "out")

+ (lambda (p) (display '(hello) p)))

+ (call-with-output-file

+ (assoc-ref %outputs "second")

+ (lambda (p) (display '(world) p)))))

+ (drv (build-expression->derivation

+ %store

+ "double"

+ builder

+ #:outputs

+ '("out" "second")))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((one (derivation->output-path drv))

+ (two (derivation->output-path drv "second")))

+ (and (equal? '(hello) (call-with-input-file one read))

+ (equal? '(world) (call-with-input-file two read)))))))

actual-value: #t

result: PASS

test-name: build-expression->derivation with one input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:968

source:

+ (test-assert

+ "build-expression->derivation with one input"

+ (let* ((builder

+ '(call-with-output-file

+ %output

+ (lambda (p)

+ (let ((cu (assoc-ref %build-inputs "cu")))

+ (close 1)

+ (dup2 (port->fdes p) 1)

+ (execl (string-append cu "/bin/uname")

+ @ build-started /tmp/guix-tests/store/vs63w833h9dn987d6j80x9nggmjhjj6n-module-import.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/vs//63w833h9dn987d6j80x9nggmjhjj6n-module-import.drv.bz2

@ build-succeeded /tmp/guix-tests/store/vs63w833h9dn987d6j80x9nggmjhjj6n-module-import.drv -

@ build-started /tmp/guix-tests/store/9xp57zkgn9n85i77xd2975k2lh6hlxrl-module-import-compiled.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/9x//p57zkgn9n85i77xd2975k2lh6hlxrl-module-import-compiled.drv.bz2

@ build-succeeded /tmp/guix-tests/store/9xp57zkgn9n85i77xd2975k2lh6hlxrl-module-import-compiled.drv -

@ build-started /tmp/guix-tests/store/yz1m0dxzg68vryd8yra1fiaxlni4ppfp-test-with-modules.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/yz//1m0dxzg68vryd8yra1fiaxlni4ppfp-test-with-modules.drv.bz2

@ build-succeeded /tmp/guix-tests/store/yz1m0dxzg68vryd8yra1fiaxlni4ppfp-test-with-modules.drv -

"uname"

+ "-a")))))

+ (drv (build-expression->derivation

+ %store

+ "uname"

+ builder

+ #:inputs

+ `(("cu" ,%coreutils))))

+ (succeeded?

+ (build-derivations %store (list drv))))

+ (and succeeded?

+ (let ((p (derivation->output-path drv)))

+ (string-contains

+ (call-with-input-file p read-line)

+ "GNU")))))

result: SKIP

test-name: build-expression->derivation with modules

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:984

source:

+ (test-assert

+ "build-expression->derivation with modules"

+ (let* ((builder

+ `(begin

+ (use-modules (guix build utils))

+ (let ((out (assoc-ref %outputs "out")))

+ (mkdir-p (string-append out "/guile/guix/nix"))

+ #t)))

+ (drv (build-expression->derivation

+ %store

+ "test-with-modules"

+ builder

+ #:modules

+ '((guix build utils)))))

+ (and (build-derivations %store (list drv))

+ (let* ((p (derivation->output-path drv))

+ (s (stat (string-append p "/guile/guix/nix"))))

+ (eq? (stat:type s) 'directory)))))

actual-value: #t

result: PASS

test-name: build-expression->derivation: same fixed-output path

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:999

source:

+ (test-assert

+ "build-expression->derivation: same fixed-output path"

+ (let* ((builder1

+ '(call-with-output-file

+ %output

+ (lambda (p) (write "hello" p))))

+ (builder2

+ '(call-with-output-file

+ (pk 'difference-here! %output)

+ (lambda (p) (write "hello" p))))

+ (hash (sha256 (string->utf8 "hello")))

+ (input1

+ (build-expression->derivation

+ %store

+ "fixed"

+ builder1

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (input2

+ (build-expression->derivation

+ %store

+ "fixed"

+ builder2

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (succeeded?

+ (build-derivations %store (list input1 input2))))

+ (and succeeded?

+ (not (string=?

+ (derivation-file-name input1)

+ (derivation-file-name input2)))

+ (string=?

+ (derivation->output-path input1)

+ (derivation->output-path input2)))))

actual-value: #t

result: PASS

test-name: build-expression->derivation with a fixed-output input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1020

source:

+ (test-assert

+ "build-expression->derivation with a fixed-output input"

+ (let* ((builder1

+ '(call-with-output-file

+ %output

+ (lambda (p) (write "hello" p))))

+ (builder2

+ '(call-with-output-file

+ (pk 'difference-here! %output)

+ (lambda (p) (write "hello" p))))

+ (hash (sha256 (string->utf8 "hello")))

+ (input1

+ (build-expression->derivation

+ %store

+ "fixed"

+ builder1

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (input2

+ (build-expression->derivation

+ %store

+ "fixed"

+ builder2

+ #:hash

+ hash

+ #:hash-algo

+ 'sha256))

+ (builder3

+ '(let ((input (assoc-ref %build-inputs "input")))

+ (call-with-output-file

+ %output

+ (lambda (out)

+ (format #f "My input is ~a.~%" input)))))

+ (final1

+ (@ build-started /tmp/guix-tests/store/8dkhnfprkjn6p5hh6abjbvhcypif1djn-final.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/8d//khnfprkjn6p5hh6abjbvhcypif1djn-final.drv.bz2

@ build-succeeded /tmp/guix-tests/store/8dkhnfprkjn6p5hh6abjbvhcypif1djn-final.drv -

@ build-started /tmp/guix-tests/store/q9ml6iwz4b8jffgd6l3jkllm0lm9g7aw-fixed-rec.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/q9//ml6iwz4b8jffgd6l3jkllm0lm9g7aw-fixed-rec.drv.bz2

@ build-succeeded /tmp/guix-tests/store/q9ml6iwz4b8jffgd6l3jkllm0lm9g7aw-fixed-rec.drv -

@ build-started /tmp/guix-tests/store/9a2z4zz7sraa065z4fa12g9sg6mlhkj5-small-fixed-rec.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/9a//2z4zz7sraa065z4fa12g9sg6mlhkj5-small-fixed-rec.drv.bz2

@ build-succeeded /tmp/guix-tests/store/9a2z4zz7sraa065z4fa12g9sg6mlhkj5-small-fixed-rec.drv -

@ build-started /tmp/guix-tests/store/aakag457jih22azd1mkhcvnlnv9115ky-fixed-rec-user.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/aa//kag457jih22azd1mkhcvnlnv9115ky-fixed-rec-user.drv.bz2

@ build-succeeded /tmp/guix-tests/store/aakag457jih22azd1mkhcvnlnv9115ky-fixed-rec-user.drv -

build-expression->derivation

+ %store

+ "final"

+ builder3

+ #:inputs

+ `(("input" ,input1))))

+ (final2

+ (build-expression->derivation

+ %store

+ "final"

+ builder3

+ #:inputs

+ `(("input" ,input2)))))

+ (and (string=?

+ (derivation->output-path final1)

+ (derivation->output-path final2))

+ (string=?

+ (derivation->output-path final1)

+ (derivation-path->output-path

+ (derivation-file-name final1)))

+ (build-derivations %store (list final1 final2)))))

actual-value: #t

result: PASS

test-name: build-expression->derivation produces recursive fixed-output

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1051

source:

+ (test-assert

+ "build-expression->derivation produces recursive fixed-output"

+ (let* ((builder

+ '(begin

+ (use-modules (srfi srfi-26))

+ (mkdir %output)

+ (chdir %output)

+ (call-with-output-file

+ "exe"

+ (cut display "executable" <>))

+ (chmod "exe" 511)

+ (symlink "exe" "symlink")

+ (mkdir "subdir")))

+ (drv (build-expression->derivation

+ %store

+ "fixed-rec"

+ builder

+ #:hash-algo

+ 'sha256

+ #:hash

+ (base32

+ "10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics4ppir13g7d74p")

+ #:recursive?

+ #t)))

+ (and (build-derivations %store (list drv))

+ (let* ((dir (derivation->output-path drv))

+ (exe (string-append dir "/exe"))

+ (link (string-append dir "/symlink"))

+ (subdir (string-append dir "/subdir")))

+ (and (executable-file? exe)

+ (string=?

+ "executable"

+ (call-with-input-file exe get-string-all))

+ (string=? "exe" (readlink link))

+ (file-is-directory? subdir))))))

actual-value: #t

result: PASS

test-name: build-expression->derivation uses recursive fixed-output

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1077

source:

+ (test-assert

+ "build-expression->derivation uses recursive fixed-output"

+ (let* ((builder

+ '(call-with-output-file

+ %output

+ (lambda (port) (display "hello" port))))

+ (fixed (build-expression->derivation

+ %store

+ "small-fixed-rec"

+ builder

+ #:hash-algo

+ 'sha256

+ #:hash

+ (base32

+ "0sg9f58l1jj88w6pdrfdpj5x9b1zrwszk84j81zvby36q9whhhqa")

+ #:recursive?

+ #t))

+ (in (derivation->output-path fixed))

+ (builder

+ `(begin

+ (mkdir %output)

+ (chdir %output)

+ (symlink ,in "symlink")))

+ (drv (build-expression->derivation

+ %store

+ "fixed-rec-user"

+ builder

+ #:inputs

+ `(("fixed" ,fixed)))))

+ (and (build-derivations %store (list drv))

+ (let ((out (derivation->output-path drv)))

+ (string=?

+ (readlink (string-append out "/symlink"))

+ in)))))

actual-value: #t

result: PASS

test-name: build-expression->derivation with #:references-graphs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1099

source:

+ (test-assert

+ "build-expression->derivation with #:references-graphs"

+ (let* ((input (add-text-to-store

+ %store

+ "foo"

+ "hello"

+ (list %bash %mkdir)))

+ (builder '(copy-file "input" %output))

+ @ build-started /tmp/guix-tests/store/33xr95dfil5qna3dxlzlzyvrlw9nycn0-references-graphs.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/33//xr95dfil5qna3dxlzlzyvrlw9nycn0-references-graphs.drv.bz2

@ build-succeeded /tmp/guix-tests/store/33xr95dfil5qna3dxlzlzyvrlw9nycn0-references-graphs.drv -

@ build-started /tmp/guix-tests/store/ajqc0l1rbgd83hdid7ain2wr0wiwvvh4-original-drv2.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/aj//qc0l1rbgd83hdid7ain2wr0wiwvvh4-original-drv2.drv.bz2

@ build-succeeded /tmp/guix-tests/store/ajqc0l1rbgd83hdid7ain2wr0wiwvvh4-original-drv2.drv -

@ build-started /tmp/guix-tests/store/vks5g20fjlmi5daip35rrd34869fnql9-drv-to-remap.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/vk//s5g20fjlmi5daip35rrd34869fnql9-drv-to-remap.drv.bz2

@ build-succeeded /tmp/guix-tests/store/vks5g20fjlmi5daip35rrd34869fnql9-drv-to-remap.drv -

(drv (build-expression->derivation

+ %store

+ "references-graphs"

+ builder

+ #:references-graphs

+ `(("input" unquote input))))

+ (out (derivation->output-path drv)))

+ (define (deps path . deps)

+ (let ((count (length deps)))

+ (string-append

+ path

+ "\n\n"

+ (number->string count)

+ "\n"

+ (string-join (sort deps string<?) "\n")

+ (if (zero? count) "" "\n"))))

+ (and (build-derivations %store (list drv))

+ (equal?

+ (call-with-input-file out get-string-all)

+ (string-concatenate

+ (map cdr

+ (sort (map (lambda (p d) (cons p (apply deps p d)))

+ (list input %bash %mkdir)

+ (list (list %bash %mkdir) '() '()))

+ (lambda (x y)

+ (match x

+ ((p1 . _)

+ (match y

+ ((p2 . _)

+ (string<? p1 p2)))))))))))))

actual-value: #t

result: PASS

test-name: map-derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1130

source:

+ (test-equal

+ "map-derivation"

+ "hello"

+ (let* ((joke (package-derivation %store guile-1.8))

+ (good (package-derivation %store %bootstrap-guile))

+ (drv1 (build-expression->derivation

+ %store

+ "original-drv1"

+ #f

+ #:guile-for-build

+ joke))

+ (drv2 (build-expression->derivation

+ %store

+ "original-drv2"

+ '(call-with-output-file

+ %output

+ (lambda (p) (display "hello" p)))))

+ (drv3 (build-expression->derivation

+ %store

+ "drv-to-remap"

+ '(let ((in (assoc-ref %build-inputs "in")))

+ (copy-file in %output))

+ #:inputs

+ `(("in" ,drv1))

+ #:guile-for-build

+ joke))

+ (drv4 (map-derivation

+ %store

+ drv3

+ `((,drv1 unquote drv2) (,joke unquote good))))

+ (out (derivation->output-path drv4)))

+ (and (build-derivations

+ %store

+ (list (pk 'remapped drv4)))

+ (call-with-input-file out get-string-all))))

;;; (remapped #<derivation /tmp/guix-tests/store/vks5g20fjlmi5daip35rrd34869fnql9-drv-to-remap.drv => /tmp/guix-tests/store/f8prvykpaplzl0gw9qykipviq3vil9ws-drv-to-remap 223ff00>)

expected-value: "hello"

actual-value: "hello"

result: PASS

test-name: map-derivation, sources

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/derivations.scm:1153

source:

+ (test-equal

+ "map-derivation, sources"

+ "hello"

+ (let* ((script1

+ (add-text-to-store %store "fail.sh" "exit 1"))

+ (script2

+ (add-text-to-store

+ %store

+ "hi.sh"

+ "echo -n hello > $out"))

+ (bash-full

+ (package-derivation

+ %store

+ (@ (gnu packages bash) bash)))

+ (drv1 (derivation

+ %store

+ "drv-to-remap"

+ (derivation->output-path bash-full)

+ `("-e" ,script1)

+ #:inputs

+ `((,bash-full) (,script1))))

+ (drv2 (map-derivation

+ %store

+ drv1

+ `((,bash-full unquote %bash)

+ (,script1 unquote script2))))

+ (out (derivation->output-path drv2)))

+ (and (build-derivations

+ %store

+ (list (pk 'remapped* drv2)))

+ (call-with-input-file out get-string-all))))

;;; (remapped* #<derivation @ build-started /tmp/guix-tests/store/3b1r9qvgpcami02g66iqgnbfm3xxsx95-drv-to-remap.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/3b//1r9qvgpcami02g66iqgnbfm3xxsx95-drv-to-remap.drv.bz2

@ build-succeeded /tmp/guix-tests/store/3b1r9qvgpcami02g66iqgnbfm3xxsx95-drv-to-remap.drv -

/tmp/guix-tests/store/3b1r9qvgpcami02g66iqgnbfm3xxsx95-drv-to-remap.drv => /tmp/guix-tests/store/d16rf6zch2w23cn1v1gm8r3w12pc7y2m-drv-to-remap 23b6190>)

expected-value: "hello"

actual-value: "hello"

result: PASS

SKIP: tests/packages

====================

test-name: printer with location

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:69

source:

+ (test-assert

+ "printer with location"

+ (string-match

+ "^#<package foo@0 foo.scm:42 [[:xdigit:]]+>$"

+ (with-output-to-string

+ (lambda ()

+ (write (dummy-package

+ "foo"

+ (location (make-location "foo.scm" 42 7))))))))

actual-value: #("#<package foo@0 foo.scm:42 1938000>" (0 . 35))

result: PASS

test-name: printer without location

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:77

source:

+ (test-assert

+ "printer without location"

+ (string-match

+ "^#<package foo@0 [[:xdigit:]]+>$"

+ (with-output-to-string

+ (lambda ()

+ (write (dummy-package "foo" (location #f)))))))

actual-value: #("#<package foo@0 1a2ce40>" (0 . 24))

result: PASS

test-name: hidden-package

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:84

source:

+ (test-assert

+ "hidden-package"

+ (and (hidden-package?

+ (hidden-package (dummy-package "foo")))

+ (not (hidden-package? (dummy-package "foo")))))

actual-value: #t

result: PASS

test-name: package-superseded

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:88

source:

+ (test-assert

+ "package-superseded"

+ (let* ((new (dummy-package "bar"))

+ (old (deprecated-package "foo" new)))

+ (and (eq? (package-superseded old) new)

+ (mock ((gnu packages)

+ find-best-packages-by-name

+ (const (list old)))

+ (specification->package "foo")

+ (and (eq? new (specification->package "foo"))

+ (eq? new (specification->package+output "foo")))))))

actual-value: #t

result: PASS

test-name: transaction-upgrade-entry, zero upgrades

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:97

source:

+ (test-assert

+ "transaction-upgrade-entry, zero upgrades"

+ (let* ((old (dummy-package "foo" (version "1")))

+ (tx (mock ((gnu packages)

+ find-newest-available-packages

+ (const vlist-null))

+ ((@@ (guix scripts package)

+ transaction-upgrade-entry)

+ (manifest-entry

+ (inherit (package->manifest-entry old))

+ (item (string-append

+ (%store-prefix)

+ "/"

+ (make-string 32 #\e)

+ "-foo-1")))

+ (manifest-transaction)))))

+ (manifest-transaction-null? tx)))

actual-value: #t

result: PASS

test-name: transaction-upgrade-entry, one upgrade

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:109

source:

+ (test-assert

+ "transaction-upgrade-entry, one upgrade"

+ (let* ((old (dummy-package "foo" (version "1")))

+ (new (dummy-package "foo" (version "2")))

+ (tx (mock ((gnu packages)

+ find-newest-available-packages

+ (const (vhash-cons "foo" (list "2" new) vlist-null)))

+ ((@@ (guix scripts package)

+ transaction-upgrade-entry)

+ (manifest-entry

+ (inherit (package->manifest-entry old))

+ (item (string-append

+ (%store-prefix)

+ "/"

+ (make-string 32 #\e)

+ "-foo-1")))

+ (manifest-transaction)))))

+ (and (match (manifest-transaction-install tx)

+ ((($ <manifest-entry> "foo" "2" "out" item))

+ (eq? item new)))

+ (null? (manifest-transaction-remove tx)))))

actual-value: #t

result: PASS

test-name: transaction-upgrade-entry, superseded package

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:125

source:

+ (test-assert

+ "transaction-upgrade-entry, superseded package"

+ (let* ((old (dummy-package "foo" (version "1")))

+ (new (dummy-package "bar" (version "2")))

+ (dep (deprecated-package "foo" new))

+ (tx (mock ((gnu packages)

+ find-newest-available-packages

+ (const (vhash-cons "foo" (list "2" dep) vlist-null)))

+ ((@@ (guix scripts package)

+ transaction-upgrade-entry)

+ (manifest-entry

+ (inherit (package->manifest-entry old))

+ (item (string-append

+ (%store-prefix)

+ "/"

+ (make-string 32 #\e)

+ "-foo-1")))

+ (manifest-transaction)))))

+ (and (match (manifest-transaction-install tx)

+ ((($ <manifest-entry> "bar" "2" "out" item))

+ (eq? item new)))

+ (match (manifest-transaction-remove tx)

+ (((? manifest-pattern? pattern))

+ (and (string=? (manifest-pattern-name pattern) "foo")

+ (string=? (manifest-pattern-version pattern) "1")

+ (string=?

+ (manifest-pattern-output pattern)

+ "out")))))))

actual-value: #t

result: PASS

test-name: package-field-location

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:146

source:

+ (test-assert

+ "package-field-location"

+ (let ()

+ (define (goto port line column)

+ (unless

+ (and (= (port-column port) (- column 1))

+ (= (port-line port) (- line 1)))

+ (unless

+ (eof-object? (get-char port))

+ (goto port line column))))

+ (define read-at

+ (match-lambda

+ (($ <location> file line column)

+ (call-with-input-file

+ (search-path %load-path file)

+ (lambda (port)

+ (goto port line column)

+ (read port))))))

+ (and (member

+ (read-at

+ (package-field-location %bootstrap-guile 'name))

+ (let ((name (package-name %bootstrap-guile)))

+ (list name `(name ,name))))

+ (member

+ (read-at

+ (package-field-location

+ %bootstrap-guile

+ 'version))

+ (let ((version (package-version %bootstrap-guile)))

+ (list version `(version ,version))))

+ (not (package-field-location

+ %bootstrap-guile

+ 'does-not-exist)))))

actual-value: #t

result: PASS

test-name: package-field-location, relative file name

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:173

source:

+ (test-equal

+ "package-field-location, relative file name"

+ (location-file

+ (package-location %bootstrap-guile))

+ (with-fluids

+ ((%file-port-name-canonicalization 'absolute))

+ (location-file

+ (package-field-location

+ %bootstrap-guile

+ 'version))))

expected-value: "gnu/packages/bootstrap.scm"

actual-value: "gnu/packages/bootstrap.scm"

result: PASS

test-name: package-transitive-inputs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:178

source:

+ (test-assert

+ "package-transitive-inputs"

+ (let* ((a (dummy-package "a"))

+ (b (dummy-package

+ "b"

+ (propagated-inputs `(("a" ,a)))))

+ (c (dummy-package "c" (inputs `(("a" ,a)))))

+ (d (dummy-package

+ "d"

+ (propagated-inputs `(("x" "something.drv")))))

+ (e (dummy-package

+ "e"

+ (inputs `(("b" ,b) ("c" ,c) ("d" ,d))))))

+ (and (null? (package-transitive-inputs a))

+ (equal?

+ `(("a" ,a))

+ (package-transitive-inputs b))

+ (equal?

+ `(("a" ,a))

+ (package-transitive-inputs c))

+ (equal?

+ (package-propagated-inputs d)

+ (package-transitive-inputs d))

+ (equal?

+ `(("b" ,b)

+ ("c" ,c)

+ ("d" ,d)

+ ("a" ,a)

+ ("x" "something.drv"))

+ (pk 'x (package-transitive-inputs e))))))

;;; (x (("b" #<package b@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:180 10eaa80>) ("c" #<package c@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:182 10ea900>) ("d" #<package d@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:184 10ea780>) ("a" #<package a@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:179 10eac00>) ("x" "something.drv")))

actual-value: #t

result: PASS

test-name: package-transitive-inputs, no duplicates

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:197

source:

+ (test-assert

+ "package-transitive-inputs, no duplicates"

+ (let* ((a (dummy-package "a"))

+ (b (dummy-package

+ "b"

+ (inputs `(("a+" ,a)))

+ (native-inputs `(("a*" ,a)))

+ (propagated-inputs `(("a" ,a)))))

+ (c (dummy-package

+ "c"

+ (propagated-inputs `(("b" ,b)))))

+ (d (dummy-package "d" (inputs `(("a" ,a) ("c" ,c)))))

+ (e (dummy-package "e" (inputs `(("b" ,b) ("c" ,c))))))

+ (and (null? (package-transitive-inputs a))

+ (equal?

+ `(("a*" ,a) ("a+" ,a) ("a" ,a))

+ (package-transitive-inputs b))

+ (equal?

+ `(("b" ,b) ("a" ,a))

+ (package-transitive-inputs c))

+ (equal?

+ `(("a" ,a) ("c" ,c) ("b" ,b))

+ (package-transitive-inputs d))

+ (equal?

+ `(("b" ,b) ("c" ,c) ("a" ,a))

+ (package-transitive-inputs e)))))

actual-value: #t

result: PASS

test-name: package-transitive-supported-systems

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:219

source:

+ (test-equal

+ "package-transitive-supported-systems"

+ '(("x" "y" "z") ("x" "y") ("y") ("y") ("y"))

+ (let* ((a (dummy-package

+ "a"

+ (build-system trivial-build-system)

+ (supported-systems '("x" "y" "z"))))

+ (b (dummy-package

+ "b"

+ (build-system trivial-build-system)

+ (supported-systems '("x" "y"))

+ (inputs `(("a" ,a)))))

+ (c (dummy-package

+ "c"

+ (build-system trivial-build-system)

+ (supported-systems '("y" "z"))

+ (inputs `(("b" ,b)))))

+ (d (dummy-package

+ "d"

+ (build-system trivial-build-system)

+ (supported-systems '("x" "y" "z"))

+ (inputs `(("b" ,b) ("c" ,c)))))

+ (e (dummy-package

+ "e"

+ (build-system trivial-build-system)

+ (supported-systems '("x" "y" "z"))

+ (inputs `(("d" ,d))))))

+ (list (package-transitive-supported-systems a)

+ (package-transitive-supported-systems b)

+ (package-transitive-supported-systems c)

+ (package-transitive-supported-systems d)

+ (package-transitive-supported-systems e))))

expected-value: (("x" "y" "z") ("x" "y") ("y") ("y") ("y"))

actual-value: (("x" "y" "z") ("x" "y") ("y") ("y") ("y"))

result: PASS

test-name: origin-actual-file-name

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:252

source:

+ (test-equal

+ "origin-actual-file-name"

+ "foo-1.tar.gz"

+ (let ((o (dummy-origin

+ (uri "http://www.example.com/foo-1.tar.gz"))))

+ (origin-actual-file-name o)))

expected-value: "foo-1.tar.gz"

actual-value: "foo-1.tar.gz"

result: PASS

test-name: origin-actual-file-name, file-name

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:257

source:

+ (test-equal

+ "origin-actual-file-name, file-name"

+ "foo-1.tar.gz"

+ (let ((o (dummy-origin

+ (uri "http://www.example.com/tarball")

+ (file-name "foo-1.tar.gz"))))

+ (origin-actual-file-name o)))

expected-value: "foo-1.tar.gz"

actual-value: "foo-1.tar.gz"

result: PASS

test-name: package-direct-sources, no source

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:274

source:

+ (test-assert

+ "package-direct-sources, no source"

+ (null? (package-direct-sources a)))

actual-value: #t

result: PASS

test-name: package-direct-sources, #f source

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:276

source:

+ (test-equal

+ "package-direct-sources, #f source"

+ (list i)

+ (package-direct-sources b))

expected-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>)

actual-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>)

result: PASS

test-name: package-direct-sources, not input source

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:279

source:

+ (test-equal

+ "package-direct-sources, not input source"

+ (list u)

+ (package-direct-sources d))

expected-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7420>)

actual-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7420>)

result: PASS

test-name: package-direct-sources

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:282

source:

+ (test-assert

+ "package-direct-sources"

+ (let ((s (package-direct-sources c)))

+ (and (= (length (pk 's-sources s)) 2)

+ (member o s)

+ (member i s))))

;;; (s-sources (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a74e0> #<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>))

actual-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>)

result: PASS

test-name: package-transitive-sources

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:287

source:

+ (test-assert

+ "package-transitive-sources"

+ (let ((s (package-transitive-sources d)))

+ (and (= (length (pk 'd-sources s)) 3)

+ (member o s)

+ (member i s)

+ (member u s))))

;;; (d-sources (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7420> #<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a74e0> #<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>))

actual-value: (#<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7420> #<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a74e0> #<origin "http://www.example.com" xx35467pxx35467pxx35467pxx35467pxx35467pxx35467pxx3q () 18a7360>)

result: PASS

test-name: transitive-input-references

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:294

source:

+ (test-assert

+ "transitive-input-references"

+ (let* ((a (dummy-package "a"))

+ (b (dummy-package "b"))

+ (c (dummy-package

+ "c"

+ (inputs `(("a" ,a)))

+ (propagated-inputs `(("boo" ,b)))))

+ (d (dummy-package "d" (inputs `(("c*" ,c)))))

+ (keys (map (match-lambda (('assoc-ref 'l key) key))

+ (pk 'refs

+ (transitive-input-references

+ 'l

+ (package-inputs d))))))

+ (and (= (length keys) 2)

+ (member "c*" keys)

+ (member "boo" keys))))

;;; (refs ((assoc-ref l "c*") (assoc-ref l "boo")))

actual-value: ("boo")

result: PASS

test-name: package-transitive-supported-systems, implicit inputs

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:311

source:

+ (test-equal

+ "package-transitive-supported-systems, implicit inputs"

+ %supported-systems

+ (let ((p (dummy-package

+ "foo"

+ (build-system gnu-build-system)

+ (supported-systems

+ `("does-not-exist" "foobar" ,@%supported-systems)))))

+ (package-transitive-supported-systems p)))

expected-value: ("x86_64-linux" "i686-linux" "armhf-linux" "mips64el-linux")

actual-value: ("x86_64-linux" "i686-linux" "armhf-linux" "mips64el-linux")

result: PASS

test-name: supported-package?

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:322

source:

+ (test-assert

+ "supported-package?"

+ (let ((p (dummy-package

+ "foo"

+ (build-system gnu-build-system)

+ (supported-systems

+ '("x86_64-linux" "does-not-exist")))))

+ (and (supported-package? p "x86_64-linux")

+ (not (supported-package? p "does-not-exist"))

+ (not (supported-package? p "i686-linux")))))

actual-value: #t

result: PASS

test-name: package-source-derivation, file

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:332

source:

+ (test-assert

+ "package-source-derivation, file"

+ (let* ((file (search-path %load-path "guix.scm"))

+ (package

+ (package

+ (inherit (dummy-package "p"))

+ (source file)))

+ (source

+ (package-source-derivation

+ %store

+ (package-source package))))

+ (and (store-path? source)

+ (valid-path? %store source)

+ (equal?

+ (call-with-input-file source get-bytevector-all)

+ (call-with-input-file file get-bytevector-all)))))

actual-value: #t

result: PASS

test-name: package-source-derivation, store path

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:343

source:

+ (test-assert

+ "package-source-derivation, store path"

+ (let* ((file (add-to-store

+ %store

+ "guix.scm"

+ #t

+ "sha256"

+ (search-path %load-path "guix.scm")))

+ (package

+ (package

+ (inherit (dummy-package "p"))

+ (source file)))

+ (source

+ (package-source-derivation

+ %store

+ (package-source package))))

+ (string=? file source)))

actual-value: #t

result: PASS

test-name: package-source-derivation, indirect store path

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:352

source:

+ (test-assert

+ "package-source-derivation, indirect store path"

+ (let* ((dir (add-to-store

+ %store

+ "guix-build"

+ #t

+ "sha256"

+ (dirname

+ (search-path %load-path "guix/build/utils.scm"))))

+ (package

+ (package

+ (inherit (dummy-package "p"))

+ (source (string-append dir "/utils.scm"))))

+ (source

+ (package-source-derivation

+ %store

+ (package-source package))))

+ (and (direct-store-path? source)

+ (string-suffix? "utils.scm" source))))

actual-value: #t

result: PASS

test-name: package-source-derivation, local-file

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:363

source:

+ (test-assert

+ "package-source-derivation, local-file"

+ (let* ((file (local-file "../guix/base32.scm"))

+ (package

+ (package

+ (inherit (dummy-package "p"))

+ (source file)))

+ (source

+ (package-source-derivation

+ %store

+ (package-source package))))

+ (and (store-path? source)

+ (string-suffix? "base32.scm" source)

+ (valid-path? %store source)

+ (equal?

+ (call-with-input-file source get-bytevector-all)

+ (call-with-input-file

+ (search-path %load-path "guix/base32.scm")

+ get-bytevector-all)))))

actual-value: #t

result: PASS

test-name: package-source-derivation, snippet

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:378

source:

+ (test-equal

+ "package-source-derivation, snippet"

+ "OK"

+ (let* ((file (search-bootstrap-binary

+ (match (%current-system)

+ ("armhf-linux" "guile-2.0.11.tar.xz")

+ ("aarch64-linux" "guile-2.0.14.tar.xz")

+ (_ "guile-2.0.9.tar.xz"))

+ (%current-system)))

+ (sha256 (call-with-input-file file port-sha256))

+ (fetch (lambda* (url hash-algo hash #:optional name #:key system)

+ (pk 'fetch url hash-algo hash name system)

+ (interned-file url)))

+ (source

+ (bootstrap-origin

+ (origin

+ (method fetch)

+ (uri file)

+ (sha256 sha256)

+ (patch-inputs

+ `(("tar" ,%bootstrap-coreutils&co)

+ ("xz" ,%bootstrap-coreutils&co)

+ ("patch" ,%bootstrap-coreutils&co)))

+ (patch-guile %bootstrap-guile)

+ (modules '((guix build utils)))

+ (snippet

+ '(begin

+ (chmod "." 511)

+ (symlink "guile" "guile-rocks")

+ (copy-recursively

+ "../share/guile/2.0/scripts"

+ "scripts")

+ (chmod ".." 511))))))

+ (package

+ (package

+ (inherit (dummy-package "with-snippet"))

+ (source source)

+ (build-system trivial-build-system)

+ (inputs

+ `(("tar"

+ ,(search-bootstrap-binary "tar" (%current-system)))

+ ("xz"

+ ,(search-bootstrap-binary "xz" (%current-system)))))

+ (arguments

+ `(#:guile

+ ,%bootstrap-guile

+ #:builder

+ (let ((tar (assoc-ref %build-inputs "tar"))

+ (xz (assoc-ref %build-inputs "xz"))

+ (source (assoc-ref %build-inputs "source")))

+ (and (zero? (system*

+ tar

+ "xvf"

+ source

+ "--use-compress-program"

+ xz))

+ (string=? "guile" (readlink "bin/guile-rocks"))

+ (file-exists? "bin/scripts/compile.scm")

+ (let ((out (assoc-ref %outputs "out")))

+ (call-with-output-file

+ out

+ (lambda (p) (display "OK" p))))))))))

+ (drv (package-derivation %store package))

+ (out (derivation->output-path drv)))

+ (and (build-derivations

+ %store

+ (list (pk 'snippet-drv drv)))

+ (call-with-input-file out get-string-all))))

result: SKIP

test-name: return value

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:442

source:

+ (test-assert

+ "return value"

+ (let ((drv (package-derivation %store (dummy-package "p"))))

+ (and (derivation? drv)

+ (file-exists? (derivation-file-name drv)))))

actual-value: #t

result: PASS

test-name: package-output

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:447

source:

+ (test-assert

+ "package-output"

+ (let* ((package (dummy-package "p"))

+ (drv (package-derivation %store package)))

+ (and (derivation? drv)

+ (string=?

+ (derivation->output-path drv)

+ (package-output %store package "out")))))

actual-value: #t

result: PASS

test-name: patch not found yields a run-time error

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:454

source:

+ (test-assert

+ "patch not found yields a run-time error"

+ (guard (c ((condition-has-type? c &message)

+ (and (string-contains

+ random seed for tests: 1495495375

package 'foo' has been superseded by 'bar'

package 'foo' has been superseded by 'bar'

package 'foo' has been superseded by 'bar'

package 'foo' has been superseded by 'bar'

@ build-started /tmp/guix-tests/store/hvyvgjygf729vfvbpl2k3dqvsiwx59cw-trivial-0.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/hv//yvgjygf729vfvbpl2k3dqvsiwx59cw-trivial-0.drv.bz2

@ build-succeeded /tmp/guix-tests/store/hvyvgjygf729vfvbpl2k3dqvsiwx59cw-trivial-0.drv -

(condition-message c)

+ "does-not-exist.patch")

+ (string-contains

+ (condition-message c)

+ "not found"))))

+ (let ((p (package

+ (inherit (dummy-package "p"))

+ (source

+ (origin

+ (method (const #f))

+ (uri "http://whatever")

+ (patches

+ (list (search-patch "does-not-exist.patch")))

+ (sha256

+ (base32

+ "0amn0bbwqvsvvsh6drfwz20ydc2czk374lzw5kksbh6bf78k4ks4")))))))

+ (package-derivation %store p)

+ #f)))

actual-value: 28

result: PASS

test-name: &package-input-error

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:474

source:

+ (test-equal

+ "&package-input-error"

+ (list dummy (current-module))

+ (guard (c ((package-input-error? c)

+ (list (package-error-package c)

+ (package-error-invalid-input c))))

+ (package-derivation %store dummy)))

expected-value: (#<package foo@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:473 20f7900> #<directory (test-packages) 801320>)

actual-value: (#<package foo@0 /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:473 20f7900> #<directory (test-packages) 801320>)

result: PASS

test-name: reference to non-existent output

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:481

source:

+ (test-assert

+ "reference to non-existent output"

+ (parameterize

+ ((%graft? #f))

+ (let* ((dep (dummy-package "dep"))

+ (p (dummy-package

+ "p"

+ (inputs `(("dep" ,dep "non-existent"))))))

+ (guard (c ((derivation-missing-output-error? c)

+ (and (string=?

+ (derivation-missing-output c)

+ "non-existent")

+ (equal?

+ (package-derivation %store dep)

+ (derivation-error-derivation c)))))

+ (package-derivation %store p)))))

actual-value: #t

result: PASS

test-name: trivial

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:493

source:

+ (test-assert

+ "trivial"

+ (let* ((p (package

+ (inherit (dummy-package "trivial"))

+ (build-system trivial-build-system)

+ (source #f)

+ (arguments

+ `(#:guile

+ ,%bootstrap-guile

+ #:builder

+ (begin

+ (mkdir %output)

+ (call-with-output-file

+ (string-append %output "/test")

+ (lambda (p) (display '(hello guix) p))))))))

+ (d (package-derivation %store p)))

+ (and (build-derivations %store (list d))

+ (let ((p (pk 'drv d (derivation->output-path d))))

+ (equal?

+ '(hello guix)

+ (call-with-input-file

+ (string-append p "/test")

+ read))))))

;;; (drv #<derivation /tmp/guix-tests/store/hvyvgjygf729vfvbpl2k3dqvsiwx59cw-trivial-0.drv => /tmp/guix-tests/store/3pp7cs8ycxg16yldqd62lrk306ck1g72-trivial-0 1ab4f00> "/tmp/guix-tests/store/3pp7cs8ycxg16yldqd62lrk306ck1g72-trivial-0")

actual-value: #t

result: PASS

test-name: trivial with local file as input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:511

source:

+ (test-assert

+ "trivial with local file as input"

+ (let* ((i (search-path %load-path "ice-9/boot-9.scm"))

+ (p (package

+ (inherit

+ (dummy-package "trivial-with-input-file"))

+ (build-system trivial-build-system)

+ (source #f)

+ (arguments

+ `(#:guile

+ ,%bootstrap-guile

+ #:builder

+ (copy-file

+ @ build-started /tmp/guix-tests/store/a6yjh360wy274bw6v69b7i4ybgznhc72-trivial-with-input-file-0.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/a6//yjh360wy274bw6v69b7i4ybgznhc72-trivial-with-input-file-0.drv.bz2

@ build-succeeded /tmp/guix-tests/store/a6yjh360wy274bw6v69b7i4ybgznhc72-trivial-with-input-file-0.drv -

@ build-started /tmp/guix-tests/store/62hvlyvzl8zdm919i5f51clhvy5a5yab-trivial-with-source-0.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/62//hvlyvzl8zdm919i5f51clhvy5a5yab-trivial-with-source-0.drv.bz2

@ build-succeeded /tmp/guix-tests/store/62hvlyvzl8zdm919i5f51clhvy5a5yab-trivial-with-source-0.drv -

@ build-started /tmp/guix-tests/store/jmw8n1jv0clislyswj0gnc7mm52q0kjv-trivial-system-dependent-input-0.drv - x86_64-linux /tmp/guix-tests/var/log/guix/drvs/jm//w8n1jv0clislyswj0gnc7mm52q0kjv-trivial-system-dependent-input-0.drv.bz2

@ build-succeeded /tmp/guix-tests/store/jmw8n1jv0clislyswj0gnc7mm52q0kjv-trivial-system-dependent-input-0.drv -

(assoc-ref %build-inputs "input")

+ %output)))

+ (inputs `(("input" ,i)))))

+ (d (package-derivation %store p)))

+ (and (build-derivations %store (list d))

+ (let ((p (pk 'drv d (derivation->output-path d))))

+ (equal?

+ (call-with-input-file p get-bytevector-all)

+ (call-with-input-file i get-bytevector-all))))))

;;; (drv #<derivation /tmp/guix-tests/store/a6yjh360wy274bw6v69b7i4ybgznhc72-trivial-with-input-file-0.drv => /tmp/guix-tests/store/ig6yxsjih7q2g4zmlplm1psjz5yprqad-trivial-with-input-file-0 1ab4dc0> "/tmp/guix-tests/store/ig6yxsjih7q2g4zmlplm1psjz5yprqad-trivial-with-input-file-0")

actual-value: #t

result: PASS

test-name: trivial with source

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:527

source:

+ (test-assert

+ "trivial with source"

+ (let* ((i (search-path %load-path "ice-9/boot-9.scm"))

+ (p (package

+ (inherit (dummy-package "trivial-with-source"))

+ (build-system trivial-build-system)

+ (source i)

+ (arguments

+ `(#:guile

+ ,%bootstrap-guile

+ #:builder

+ (copy-file

+ (assoc-ref %build-inputs "source")

+ %output)))))

+ (d (package-derivation %store p)))

+ (and (build-derivations %store (list d))

+ (let ((p (derivation->output-path d)))

+ (equal?

+ (call-with-input-file p get-bytevector-all)

+ (call-with-input-file i get-bytevector-all))))))

actual-value: #t

result: PASS

test-name: trivial with system-dependent input

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:542

source:

+ (test-assert

+ "trivial with system-dependent input"

+ (let* ((p (package

+ (inherit

+ (dummy-package "trivial-system-dependent-input"))

+ (build-system trivial-build-system)

+ (source #f)

+ (arguments

+ `(#:guile

+ ,%bootstrap-guile

+ #:builder

+ (let ((out (assoc-ref %outputs "out"))

+ (bash (assoc-ref %build-inputs "bash")))

+ (zero? (system*

+ bash

+ "-c"

+ (format #f "echo hello > ~a" out))))))

+ (inputs

+ `(("bash"

+ ,(search-bootstrap-binary

+ "bash"

+ (%current-system)))))))

+ (d (package-derivation %store p)))

+ (and (build-derivations %store (list d))

+ (let ((p (pk 'drv d (derivation->output-path d))))

+ (eq? 'hello (call-with-input-file p read))))))

;;; (drv #<derivation /tmp/guix-tests/store/jmw8n1jv0clislyswj0gnc7mm52q0kjv-trivial-system-dependent-input-0.drv => /tmp/guix-tests/store/8pqmam9mmnpd071ya49hv33dnp8p24f5-trivial-system-dependent-input-0 1ab4960> "/tmp/guix-tests/store/8pqmam9mmnpd071ya49hv33dnp8p24f5-trivial-system-dependent-input-0")

actual-value: #t

result: PASS

test-name: search paths

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:560

source:

+ (test-assert

+ "search paths"

+ (let* ((p (make-prompt-tag "return-search-paths"))

+ (s (build-system

+ (name 'raw)

+ (description

+ "Raw build system with direct store access")

+ (lower (lambda* (name

+ #:key

+ source

+ inputs

+ system

+ target

+ #:allow-other-keys)

+ (bag (name name)

+ (system system)

+ (target target)

+ (build-inputs inputs)

+ (build (lambda* (store

+ name

+ inputs

+ #:key

+ outputs

+ system

+ search-paths)

+ search-paths)))))))

+ (x (list (search-path-specification

+ (variable "GUILE_LOAD_PATH")

+ (files '("share/guile/site/2.0")))

+ (search-path-specification

+ (variable "GUILE_LOAD_COMPILED_PATH")

+ (files '("share/guile/site/2.0")))))

+ (a (package

+ (inherit (dummy-package "guile"))

+ (build-system s)

+ (native-search-paths x)))

+ (b (package

+ (inherit (dummy-package "guile-foo"))

+ (build-system s)

+ (inputs `(("guile" ,a)))))

+ (c (package

+ (inherit (dummy-package "guile-bar"))

+ (build-system s)

+ (inputs `(("guile" ,a) ("guile-foo" ,b))))))

+ (let-syntax ((collect

+ (syntax-rules ()

+ ((_ body ...)

+ (call-with-prompt

+ p

+ (lambda () body ...)

+ (lambda (k search-paths) search-paths))))))

+ (and (null? (collect (package-derivation %store a)))

+ (equal?

+ x

+ (collect (package-derivation %store b)))

+ (equal?

+ x

+ (collect (package-derivation %store c)))))))

actual-value: #t

result: PASS

test-name: package-transitive-native-search-paths

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:602

source:

+ (test-assert

+ "package-transitive-native-search-paths"

+ (let* ((sp (lambda (name)

+ (list (search-path-specification

+ (variable name)

+ (files '("foo/bar"))))))

+ (p0 (dummy-package

+ "p0"

+ (native-search-paths (sp "PATH0"))))

+ (p1 (dummy-package

+ "p1"

+ (native-search-paths (sp "PATH1"))))

+ (p2 (dummy-package

+ "p2"

+ (native-search-paths (sp "PATH2"))

+ (inputs `(("p0" ,p0)))

+ (propagated-inputs `(("p1" ,p1)))))

+ (p3 (dummy-package

+ "p3"

+ (native-search-paths (sp "PATH3"))

+ (native-inputs `(("p0" ,p0)))

+ (propagated-inputs `(("p2" ,p2))))))

+ (lset= string=?

+ '("PATH1" "PATH2" "PATH3")

+ (map search-path-specification-variable

+ (package-transitive-native-search-paths p3)))))

actual-value: #t

result: PASS

test-name: package-cross-derivation

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:622

source:

+ (test-assert

+ "package-cross-derivation"

+ (let ((drv (package-cross-derivation

+ %store

+ (dummy-package "p")

+ "mips64el-linux-gnu")))

+ (and (derivation? drv)

+ (file-exists? (derivation-file-name drv)))))

actual-value: #t

result: PASS

test-name: package-cross-derivation, trivial-build-system

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:628

source:

+ (test-assert

+ "package-cross-derivation, trivial-build-system"

+ (let ((p (package

+ (inherit (dummy-package "p"))

+ (build-system trivial-build-system)

+ (arguments '(#:builder (exit 1))))))

+ (let ((drv (package-cross-derivation

+ %store

+ p

+ "mips64el-linux-gnu")))

+ (derivation? drv))))

actual-value: #t

result: PASS

test-name: package-cross-derivation, no cross builder

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:635

source:

+ (test-assert

+ "package-cross-derivation, no cross builder"

+ (let* ((b (build-system

+ (inherit trivial-build-system)

+ (lower (const #f))))

+ (p (package

+ (inherit (dummy-package "p"))

+ (build-system b))))

+ (guard (c ((package-cross-build-system-error? c)

+ (eq? (package-error-package c) p)))

+ (package-cross-derivation

+ %store

+ p

+ "mips64el-linux-gnu")

+ #f)))

actual-value: #t

result: PASS

test-name: package-grafts, indirect grafts

location: /tmp/guix-build-guix-0.13.0.drv-0/source/tests/packages.scm:663

source:

+ (test-assert

+ "package-grafts, indirect grafts"

+ (let* ((new (dummy-package

+ "dep"

+ (arguments '(#:implicit-inputs? #f))))

+ (dep (package (inherit new) (version "0.0")))

+ (dep* (package (inherit dep) (replacement new)))

+ (dummy (dummy-package

+ "dummy"

+ (arguments '(#:implicit-inputs? #f))

+ (inputs `(("dep" ,dep*))))))

+ (equal?

+ (package-grafts %store dummy)

+ (list (graft (origin (package-derivation %store dep))

+ (replacement (package-derivation %store new)))))))

actual-value: #t

result: PASS

test-name: package-grafts, indirect grafts, propagated inputs