%%%% Starting test builders
Group begin: builders
Test begin:
  test-name: "url-fetch"
  source-file: "tests/builders.scm"
  source-line: 68
  source-form: (test-assert "url-fetch" (let* ((url (quote ("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 (quote 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))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "gnu-build-system"
  source-file: "tests/builders.scm"
  source-line: 80
  source-form: (test-assert "gnu-build-system" (and (build-system? gnu-build-system) (eq? gnu-build (build-system-builder gnu-build-system))))
Test end:
  result-kind: pass
  actual-value: #t
Test begin:
  test-name: "gnu-build"
  source-file: "tests/builders.scm"
  source-line: 85
  source-form: (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 (quote sha256) hash #:guile %bootstrap-guile)) (build (gnu-build %store "hello-2.8" tarball %bootstrap-inputs #:implicit-inputs? #f #:guile %bootstrap-guile #:search-paths %bootstrap-search-paths)) (out (derivation->output-path build))) (and (build-derivations %store (list (pk (quote hello-drv) build))) (valid-path? %store out) (file-exists? (string-append out "/bin/hello")))))
Test end:
  result-kind: fail
  actual-value: #f
  actual-error: (srfi-34 #<condition &nix-protocol-error [message: "closing file descriptor 1599602736: Bad file descriptor" status: 1] 8a62798>)
Group end: builders
# of expected passes      2
# of unexpected failures  1