From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nikita Karetnikov Subject: Re: Proposal: prefetch tarballs in a batch Date: Thu, 08 May 2014 03:14:19 +0400 Message-ID: <87oaz9i3lg.fsf@karetnikov.org> References: <87ha6jkyv8.fsf@karetnikov.org> <877g7epico.fsf@gnu.org> <87wqf8prau.fsf@karetnikov.org> <87ha6blwii.fsf@gnu.org> <87d2gznysk.fsf@karetnikov.org> <87vbuqvpsc.fsf@gnu.org> <87ha62dtmh.fsf@karetnikov.org> <87vbuhbnn8.fsf@gnu.org> <87ioqe2tdg.fsf@karetnikov.org> <87bnw6yxql.fsf@gnu.org> <871twmo25m.fsf@karetnikov.org> <874n1haa47.fsf@gnu.org> <87r447t75q.fsf@karetnikov.org> <87r4461xrj.fsf@gnu.org> Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha1; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:41556) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WiB8c-0007m7-2I for guix-devel@gnu.org; Wed, 07 May 2014 19:20:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1WiB8P-00081h-06 for guix-devel@gnu.org; Wed, 07 May 2014 19:20:34 -0400 List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: Ludovic =?utf-8?Q?Court=C3=A8s?= Cc: guix-devel@gnu.org --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable > The SRFI-64 log files of the failing tests, plus test-suite.log. Test > failures must not remain uncorrected! ;-) Attached. > What Guile and libgc version is this, and what platform? 2.0.9; 1:7.1-8ubuntu0.12.04.1 (from Trisquel); i686. > Does the installation seem sane, basically? Do =E2=80=98guix build=E2=80= =99, =E2=80=98guix > package=E2=80=99 etc. work somehow, or not even? Turns out I can=E2=80=99t even build =E2=80=98hello=E2=80=99 (though the bu= ild succeeded in the logs). I didn=E2=80=99t expect this because Guix had worked on this machine previously. IIRC, I did the following: deleted =E2=80=98/gnu/store=E2=80= =99 and =E2=80=98/usr/local/var/guix/*=E2=80=99, cloned, and ran =E2=80=98./bootstr= ap=E2=80=99 & co. Regarding =E2=80=98test-suite.log=E2=80=99: > substitute-binary: warning: authentication and authorization of substitut= es disabled! How can I enable them? Are they specifically disabled for testing purposes? > SQLite header and source version mismatch > 2011-11-01 00:52:41 c7c6050ef060877ebe77b41d959e9df13f8c9b5e > 2013-09-03 17:11:13 7dd4968f235d6e1ca9547cda9cf3bd570e1609ef This was discussed before and should be fixed by upgrading SQLite. --=-=-= Content-Disposition: attachment; filename=builders.log %%%% 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 #) Group end: builders # of expected passes 2 # of unexpected failures 1 --=-=-= Content-Disposition: attachment; filename=derivations.log Content-Transfer-Encoding: quoted-printable %%%% Starting test derivations Group begin: derivations Test begin: test-name: "parse & export" source-file: "tests/derivations.scm" source-line: 84 source-form: (test-assert "parse & export" (let* ((f (search-path %load-p= ath "tests/test.drv")) (b1 (call-with-input-file f get-bytevector-all)) (d1= (read-derivation (open-bytevector-input-port b1))) (b2 (call-with-bytevect= or-output-port (cut write-derivation d1 <>))) (d2 (read-derivation (open-by= tevector-input-port b2)))) (and (equal? b1 b2) (equal? d1 d2)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "add-to-store, flat" source-file: "tests/derivations.scm" source-line: 95 source-form: (test-assert "add-to-store, flat" (let* ((file (search-path = %load-path "language/tree-il/spec.scm")) (drv (add-to-store %store "flat-te= st" #f "sha256" file))) (and (eq? (quote regular) (stat:type (stat drv))) (= valid-path? %store drv) (equal? (call-with-input-file file get-bytevector-a= ll) (call-with-input-file drv get-bytevector-all))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "add-to-store, recursive" source-file: "tests/derivations.scm" source-line: 103 source-form: (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? (quote directory) (stat:= type (stat drv))) (valid-path? %store drv) (equal? (directory-contents dir)= (directory-contents drv))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "derivation with no inputs" source-file: "tests/derivations.scm" source-line: 111 source-form: (test-assert "derivation with no inputs" (let* ((builder (ad= d-text-to-store %store "my-builder.sh" "echo hello, world\n" (quote ()))) (= drv (derivation %store "foo" %bash (quasiquote ("-e" (unquote builder))) #:= env-vars (quote (("HOME" . "/homeless")))))) (and (store-path? (derivation-= file-name drv)) (valid-path? %store (derivation-file-name drv))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "build derivation with 1 source" source-file: "tests/derivations.scm" source-line: 121 source-form: (test-assert "build derivation with 1 source" (let* ((builde= r (add-text-to-store %store "my-builder.sh" "echo hello, world > \"$out\"\n= " (quote ()))) (drv (derivation %store "foo" %bash (quasiquote ((unquote bu= ilder))) #:env-vars (quote (("HOME" . "/homeless") ("zzz" . "Z!") ("AAA" . = "A!"))) #:inputs (quasiquote (((unquote %bash)) ((unquote builder)))))) (su= cceeded? (build-derivations %store (list drv)))) (and succeeded? (let ((pat= h (derivation->output-path drv))) (and (valid-path? %store path) (string=3D= ? (call-with-input-file path read-line) "hello, world")))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "derivation with local file as input" source-file: "tests/derivations.scm" source-line: 139 source-form: (test-assert "derivation with local file as input" (let* ((b= uilder (add-text-to-store %store "my-builder.sh" "(while read line ; do ech= o \"$line\" ; done) < $in > $out" (quote ()))) (input (search-path %load-pa= th "ice-9/boot-9.scm")) (input* (add-to-store %store (basename input) #t "s= ha256" input)) (drv (derivation %store "derivation-with-input-file" %bash (= quasiquote ((unquote builder))) #:env-vars (quasiquote (("in" unquote input= *))) #:inputs (quasiquote (((unquote %bash)) ((unquote builder)) ((unquote = input))))))) (and (build-derivations %store (list drv)) (valid-path? %store= (derivation->output-path drv))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "fixed-output-derivation?" source-file: "tests/derivations.scm" source-line: 162 source-form: (test-assert "fixed-output-derivation?" (let* ((builder (add= -text-to-store %store "my-fixed-builder.sh" "echo -n hello > $out" (quote (= )))) (hash (sha256 (string->utf8 "hello"))) (drv (derivation %store "fixed"= %bash (quasiquote ((unquote builder))) #:inputs (quasiquote (((unquote bui= lder)))) #:hash hash #:hash-algo (quote sha256)))) (fixed-output-derivation= ? drv))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "fixed-output derivation" source-file: "tests/derivations.scm" source-line: 172 source-form: (test-assert "fixed-output derivation" (let* ((builder (add-= text-to-store %store "my-fixed-builder.sh" "echo -n hello > $out" (quote ()= ))) (hash (sha256 (string->utf8 "hello"))) (drv (derivation %store "fixed" = %bash (quasiquote ((unquote builder))) #:inputs (quasiquote (((unquote buil= der)))) #:hash hash #:hash-algo (quote sha256))) (succeeded? (build-derivat= ions %store (list drv)))) (and succeeded? (let ((p (derivation->output-path= drv))) (and (equal? (string->utf8 "hello") (call-with-input-file p get-byt= evector-all)) (bytevector? (query-path-hash %store p))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "fixed-output derivation: output paths are equal" source-file: "tests/derivations.scm" source-line: 187 source-form: (test-assert "fixed-output derivation: output paths are equa= l" (let* ((builder1 (add-text-to-store %store "fixed-builder1.sh" "echo -n = hello > $out" (quote ()))) (builder2 (add-text-to-store %store "fixed-build= er2.sh" "echo hey; echo -n hello > $out" (quote ()))) (hash (sha256 (string= ->utf8 "hello"))) (drv1 (derivation %store "fixed" %bash (quasiquote ((unqu= ote builder1))) #:hash hash #:hash-algo (quote sha256))) (drv2 (derivation = %store "fixed" %bash (quasiquote ((unquote builder2))) #:hash hash #:hash-a= lgo (quote sha256))) (succeeded? (build-derivations %store (list drv1 drv2)= ))) (and succeeded? (equal? (derivation->output-path drv1) (derivation->out= put-path drv2))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "fixed-output derivation, recursive" source-file: "tests/derivations.scm" source-line: 204 source-form: (test-assert "fixed-output derivation, recursive" (let* ((bu= ilder (add-text-to-store %store "my-fixed-builder.sh" "echo -n hello > $out= " (quote ()))) (hash (sha256 (string->utf8 "hello"))) (drv (derivation %sto= re "fixed-rec" %bash (quasiquote ((unquote builder))) #:inputs (quasiquote = (((unquote builder)))) #:hash (base32 "0sg9f58l1jj88w6pdrfdpj5x9b1zrwszk84j= 81zvby36q9whhhqa") #:hash-algo (quote sha256) #:recursive? #t)) (succeeded?= (build-derivations %store (list drv)))) (and succeeded? (let ((p (derivati= on->output-path drv))) (and (equal? (string->utf8 "hello") (call-with-input= -file p get-bytevector-all)) (bytevector? (query-path-hash %store p))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "derivation with a fixed-output input" source-file: "tests/derivations.scm" source-line: 221 source-form: (test-assert "derivation with a fixed-output input" (let* ((= builder1 (add-text-to-store %store "fixed-builder1.sh" "echo -n hello > $ou= t" (quote ()))) (builder2 (add-text-to-store %store "fixed-builder2.sh" "ec= ho hey; echo -n hello > $out" (quote ()))) (hash (sha256 (string->utf8 "hel= lo"))) (fixed1 (derivation %store "fixed" %bash (quasiquote ((unquote build= er1))) #:hash hash #:hash-algo (quote sha256))) (fixed2 (derivation %store = "fixed" %bash (quasiquote ((unquote builder2))) #:hash hash #:hash-algo (qu= ote sha256))) (fixed-out (derivation->output-path fixed1)) (builder3 (add-t= ext-to-store %store "final-builder.sh" "echo $in ; (read -u 3 c; echo $c) 3= < $in > $out" (quote ()))) (final1 (derivation %store "final" %bash (quasiq= uote ((unquote builder3))) #:env-vars (quasiquote (("in" unquote fixed-out)= )) #:inputs (quasiquote (((unquote %bash)) ((unquote builder3)) ((unquote f= ixed1)))))) (final2 (derivation %store "final" %bash (quasiquote ((unquote = builder3))) #:env-vars (quasiquote (("in" unquote fixed-out))) #:inputs (qu= asiquote (((unquote %bash)) ((unquote builder3)) ((unquote fixed2)))))) (su= cceeded? (build-derivations %store (list final1 final2)))) (and succeeded? = (equal? (derivation->output-path final1) (derivation->output-path final2)))= )) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "multiple-output derivation" source-file: "tests/derivations.scm" source-line: 255 source-form: (test-assert "multiple-output derivation" (let* ((builder (a= dd-text-to-store %store "my-fixed-builder.sh" "echo one > $out ; echo two >= $second" (quote ()))) (drv (derivation %store "fixed" %bash (quasiquote ((= unquote builder))) #:env-vars (quote (("HOME" . "/homeless") ("zzz" . "Z!")= ("AAA" . "A!"))) #:inputs (quasiquote (((unquote %bash)) ((unquote builder= )))) #:outputs (quote ("out" "second")))) (succeeded? (build-derivations %s= tore (list drv)))) (and succeeded? (let ((one (derivation->output-path drv = "out")) (two (derivation->output-path drv "second"))) (and (lset=3D equal? = (derivation->output-paths drv) (quasiquote (("out" unquote one) ("second" u= nquote two)))) (eq? (quote one) (call-with-input-file one read)) (eq? (quot= e two) (call-with-input-file two read))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "multiple-output derivation, non-alphabetic order" source-file: "tests/derivations.scm" source-line: 276 source-form: (test-assert "multiple-output derivation, non-alphabetic ord= er" (let* ((builder (add-text-to-store %store "my-fixed-builder.sh" "echo o= ne > $out ; echo two > $AAA" (quote ()))) (drv (derivation %store "fixed" %= bash (quasiquote ((unquote builder))) #:inputs (quasiquote (((unquote %bash= )) ((unquote builder)))) #:outputs (quote ("out" "AAA")))) (succeeded? (bui= ld-derivations %store (list drv)))) (and succeeded? (let ((one (derivation-= >output-path drv "out")) (two (derivation->output-path drv "AAA"))) (and (e= q? (quote one) (call-with-input-file one read)) (eq? (quote two) (call-with= -input-file two read))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "multiple-output derivation, derivation-path->output-path" source-file: "tests/derivations.scm" source-line: 293 source-form: (test-assert "multiple-output derivation, derivation-path->o= utput-path" (let* ((builder (add-text-to-store %store "builder.sh" "echo on= e > $out ; echo two > $second" (quote ()))) (drv (derivation %store "multip= le" %bash (quasiquote ((unquote builder))) #:outputs (quote ("out" "second"= )))) (drv-file (derivation-file-name drv)) (one (derivation->output-path dr= v "out")) (two (derivation->output-path drv "second")) (first (derivation-p= ath->output-path drv-file "out")) (second (derivation-path->output-path drv= -file "second"))) (and (not (string=3D? one two)) (string-suffix? "-second"= two) (string=3D? first one) (string=3D? second two)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "user of multiple-output derivation" source-file: "tests/derivations.scm" source-line: 310 source-form: (test-assert "user of multiple-output derivation" (let* ((bu= ilder1 (add-text-to-store %store "my-mo-builder.sh" "echo one > $out ; echo= two > $two" (quote ()))) (mdrv (derivation %store "multiple-output" %bash = (quasiquote ((unquote builder1))) #:inputs (quasiquote (((unquote %bash)) (= (unquote builder1)))) #:outputs (quote ("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" (quote ()))) (udrv (derivation %store "multi= ple-output-user" %bash (quasiquote ((unquote builder2))) #:env-vars (quasiq= uote (("one" unquote (derivation->output-path mdrv "out")) ("two" unquote (= derivation->output-path mdrv "two")))) #:inputs (quasiquote (((unquote %bas= h)) ((unquote builder2)) ((unquote mdrv)) ((unquote mdrv) "two")))))) (and = (build-derivations %store (list (pk (quote udrv) udrv))) (let ((p (derivati= on->output-path udrv))) (and (valid-path? %store p) (equal? (quote (one two= )) (call-with-input-file p read))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "derivation with #:references-graphs" source-file: "tests/derivations.scm" source-line: 343 source-form: (test-assert "derivation with #:references-graphs" (let* ((i= nput1 (add-text-to-store %store "foo" "hello" (list %bash))) (input2 (add-t= ext-to-store %store "bar" (number->string (random 7777)) (list input1))) (b= uilder (add-text-to-store %store "build-graph" (format #f "\n~a $out\n (whi= le 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) < i= nput2 > $out/input2" %mkdir) (list %mkdir))) (drv (derivation %store "closu= re-graphs" %bash (quasiquote ((unquote builder))) #:references-graphs (quas= iquote (("bash" unquote %bash) ("input1" unquote input1) ("input2" unquote = input2))) #:inputs (quasiquote (((unquote %bash)) ((unquote builder)))))) (= out (derivation->output-path drv))) (define (deps path . deps) (let ((count= (length deps))) (string-append path "\n\n" (number->string count) "\n" (st= ring-join (sort deps string? input1 %bash) (string-append (deps %bash) (dep= s input1 %bash)) (string-append (deps input1 %bash) (deps %bash)))) ("/inpu= t2" unquote (string-concatenate (map cdr (sort (map (lambda (p d) (cons p (= apply deps p d))) (list %bash input1 input2) (list (quote ()) (list %bash) = (list input1))) (lambda (x y) (match x ((p1 . _) (match y ((p2 . _) (string= ) Test begin: test-name: "build derivation with coreutils" source-file: "tests/derivations.scm" source-line: 402 source-form: (test-assert "build derivation with coreutils" (let* ((build= er (add-text-to-store %store "build-with-coreutils.sh" "echo $PATH ; mkdir = --version ; mkdir $out ; touch $out/good" (quote ()))) (drv (derivation %st= ore "foo" %bash (quasiquote ((unquote builder))) #:env-vars (quasiquote (("= PATH" unquote (string-append (derivation->output-path %coreutils) "/bin")))= ) #:inputs (quasiquote (((unquote builder)) ((unquote %coreutils)))))) (suc= ceeded? (build-derivations %store (list drv)))) (and succeeded? (let ((p (d= erivation->output-path drv))) (and (valid-path? %store p) (file-exists? (st= ring-append p "/good"))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation and derivation-prerequisites" source-file: "tests/derivations.scm" source-line: 425 source-form: (test-assert "build-expression->derivation and derivation-pr= erequisites" (let ((drv (build-expression->derivation %store "fail" #f))) (= any (match-lambda (($ path) (string=3D? path (derivation= -file-name (%guile-for-build))))) (derivation-prerequisites drv)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "build-expression->derivation without inputs" source-file: "tests/derivations.scm" source-line: 432 source-form: (test-assert "build-expression->derivation without inputs" (= let* ((builder (quote (begin (mkdir %output) (call-with-output-file (string= -append %output "/test") (lambda (p) (display (quote (hello guix)) p)))))) = (drv (build-expression->derivation %store "goo" builder)) (succeeded? (buil= d-derivations %store (list drv)))) (and succeeded? (let ((p (derivation->ou= tput-path drv))) (equal? (quote (hello guix)) (call-with-input-file (string= -append p "/test") read)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation and max-silent-time" source-file: "tests/derivations.scm" source-line: 445 source-form: (test-assert "build-expression->derivation and max-silent-ti= me" (let* ((store (let ((s (open-connection))) (set-build-options s #:max-s= ilent-time 1) s)) (builder (quote (begin (sleep 100) (mkdir %output) #t))) = (drv (build-expression->derivation store "silent" builder)) (out-path (deri= vation->output-path drv))) (guard (c ((nix-protocol-error? c) (and (string-= contains (nix-protocol-error-message c) "failed") (not (valid-path? store o= ut-path))))) (build-derivations store (list drv)) #f))) Test end: result-kind: fail actual-value: #f Test begin: test-name: "build-expression->derivation and timeout" source-file: "tests/derivations.scm" source-line: 459 source-form: (test-assert "build-expression->derivation and timeout" (let= * ((store (let ((s (open-connection))) (set-build-options s #:timeout 1) s)= ) (builder (quote (begin (sleep 100) (mkdir %output) #t))) (drv (build-expr= ession->derivation store "slow" builder)) (out-path (derivation->output-pat= h drv))) (guard (c ((nix-protocol-error? c) (and (string-contains (nix-prot= ocol-error-message c) "failed") (not (valid-path? store out-path))))) (buil= d-derivations store (list drv)) #f))) Test end: result-kind: fail actual-value: #f Test begin: test-name: "build-expression->derivation and derivation-prerequisites-to-= build" source-file: "tests/derivations.scm" source-line: 473 source-form: (test-assert "build-expression->derivation and derivation-pr= erequisites-to-build" (let ((drv (build-expression->derivation %store "fail= " #f))) (null? (derivation-prerequisites-to-build %store drv)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "derivation-prerequisites-to-build when outputs already presen= t" source-file: "tests/derivations.scm" source-line: 479 source-form: (test-assert "derivation-prerequisites-to-build when outputs= already present" (let* ((builder (quote (begin (mkdir %output) #t))) (inpu= t-drv (build-expression->derivation %store "input" builder)) (input-path (d= erivation-output-path (assoc-ref (derivation-outputs input-drv) "out"))) (d= rv (build-expression->derivation %store "something" builder #:inputs (quasi= quote (("i" (unquote input-drv)))))) (output (derivation->output-path drv))= ) (when (valid-path? %store input-path) (delete-paths %store (list input-pa= th))) (when (valid-path? %store output) (delete-paths %store (list output))= ) (and (equal? (map derivation-input-path (derivation-prerequisites-to-buil= d %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)= )))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "derivation-prerequisites-to-build and substitutes" source-file: "tests/derivations.scm" source-line: 509 source-form: (test-assert "derivation-prerequisites-to-build and substitu= tes" (let* ((store (open-connection)) (drv (build-expression->derivation st= ore "prereq-subst" (random 1000))) (output (derivation->output-path drv)) (= dir (and=3D> (getenv "GUIX_BINARY_SUBSTITUTE_URL") (compose uri-path string= ->uri)))) (call-with-output-file (string-append dir "/nix-cache-info") (lam= bda (p) (format p "StoreDir: ~a\nWantMassQuery: 0\n" (%store-prefix)))) (ca= ll-with-output-file (string-append dir "/" (store-path-hash-part output) ".= narinfo") (lambda (p) (format p "StorePath: ~a\nURL: ~a\nCompression: none\= nNarSize: 1234\nReferences: \nSystem: ~a\nDeriver: ~a~%" output (string-app= end dir "/example.nar") (%current-system) (basename (derivation-file-name d= rv))))) (set-build-options store #:use-substitutes? #t) (let-values (((buil= d download) (derivation-prerequisites-to-build store drv)) ((build* downloa= d*) (derivation-prerequisites-to-build store drv #:use-substitutes? #f))) (= pk build download build* download*) (and (null? build) (equal? download (li= st output)) (null? download*) (null? build*))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "build-expression->derivation with expression returning #f" source-file: "tests/derivations.scm" source-line: 551 source-form: (test-assert "build-expression->derivation with expression r= eturning #f" (let* ((builder (quote (begin (mkdir %output) #f))) (drv (buil= d-expression->derivation %store "fail" builder)) (out-path (derivation->out= put-path drv))) (guard (c ((nix-protocol-error? c) (and (string-match "buil= d .* failed" (nix-protocol-error-message c)) (not (valid-path? %store out-p= ath))))) (build-derivations %store (list drv)) #f))) Test end: result-kind: fail actual-value: #f Test begin: test-name: "build-expression->derivation with two outputs" source-file: "tests/derivations.scm" source-line: 566 source-form: (test-assert "build-expression->derivation with two outputs"= (let* ((builder (quote (begin (call-with-output-file (assoc-ref %outputs "= out") (lambda (p) (display (quote (hello)) p))) (call-with-output-file (ass= oc-ref %outputs "second") (lambda (p) (display (quote (world)) p)))))) (drv= (build-expression->derivation %store "double" builder #:outputs (quote ("o= ut" "second")))) (succeeded? (build-derivations %store (list drv)))) (and s= ucceeded? (let ((one (derivation->output-path drv)) (two (derivation->outpu= t-path drv "second"))) (and (equal? (quote (hello)) (call-with-input-file o= ne read)) (equal? (quote (world)) (call-with-input-file two read))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation with one input" source-file: "tests/derivations.scm" source-line: 585 source-form: (test-assert "build-expression->derivation with one input" (= let* ((builder (quote (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") "uname" "-a")))))) (drv (build-expression->d= erivation %store "uname" builder #:inputs (quasiquote (("cu" (unquote %core= utils)))))) (succeeded? (build-derivations %store (list drv)))) (and succee= ded? (let ((p (derivation->output-path drv))) (string-contains (call-with-i= nput-file p read-line) "GNU"))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "imported-files" source-file: "tests/derivations.scm" source-line: 601 source-form: (test-assert "imported-files" (let* ((files (quasiquote (("x= " unquote (search-path %load-path "ice-9/q.scm")) ("a/b/c" unquote (search-= path %load-path "guix/derivations.scm")) ("p/q" unquote (search-path %load-= path "guix.scm")) ("p/z" unquote (search-path %load-path "guix/store.scm"))= ))) (drv (imported-files %store files))) (and (build-derivations %store (li= st drv)) (let ((dir (derivation->output-path drv))) (every (match-lambda ((= path . source) (equal? (call-with-input-file (string-append dir "/" path) g= et-bytevector-all) (call-with-input-file source get-bytevector-all)))) file= s))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "build-expression->derivation with modules" source-file: "tests/derivations.scm" source-line: 618 source-form: (test-assert "build-expression->derivation with modules" (le= t* ((builder (quasiquote (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" bui= lder #:modules (quote ((guix build utils)))))) (and (build-derivations %sto= re (list drv)) (let* ((p (derivation->output-path drv)) (s (stat (string-ap= pend p "/guile/guix/nix")))) (eq? (stat:type s) (quote directory)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation: same fixed-output path" source-file: "tests/derivations.scm" source-line: 633 source-form: (test-assert "build-expression->derivation: same fixed-outpu= t path" (let* ((builder1 (quote (call-with-output-file %output (lambda (p) = (write "hello" p))))) (builder2 (quote (call-with-output-file (pk (quote di= fference-here!) %output) (lambda (p) (write "hello" p))))) (hash (sha256 (s= tring->utf8 "hello"))) (input1 (build-expression->derivation %store "fixed"= builder1 #:hash hash #:hash-algo (quote sha256))) (input2 (build-expressio= n->derivation %store "fixed" builder2 #:hash hash #:hash-algo (quote sha256= ))) (succeeded? (build-derivations %store (list input1 input2)))) (and succ= eeded? (not (string=3D? (derivation-file-name input1) (derivation-file-name= input2))) (string=3D? (derivation->output-path input1) (derivation->output= -path input2))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation with a fixed-output input" source-file: "tests/derivations.scm" source-line: 654 source-form: (test-assert "build-expression->derivation with a fixed-outp= ut input" (let* ((builder1 (quote (call-with-output-file %output (lambda (p= ) (write "hello" p))))) (builder2 (quote (call-with-output-file (pk (quote = difference-here!) %output) (lambda (p) (write "hello" p))))) (hash (sha256 = (string->utf8 "hello"))) (input1 (build-expression->derivation %store "fixe= d" builder1 #:hash hash #:hash-algo (quote sha256))) (input2 (build-express= ion->derivation %store "fixed" builder2 #:hash hash #:hash-algo (quote sha2= 56))) (builder3 (quote (let ((input (assoc-ref %build-inputs "input"))) (ca= ll-with-output-file %output (lambda (out) (format #f "My input is ~a.~%" in= put)))))) (final1 (build-expression->derivation %store "final" builder3 #:i= nputs (quasiquote (("input" (unquote input1)))))) (final2 (build-expression= ->derivation %store "final" builder3 #:inputs (quasiquote (("input" (unquot= e input2))))))) (and (string=3D? (derivation->output-path final1) (derivati= on->output-path final2)) (string=3D? (derivation->output-path final1) (deri= vation-path->output-path (derivation-file-name final1))) (build-derivations= %store (list final1 final2))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation produces recursive fixed-output" source-file: "tests/derivations.scm" source-line: 685 source-form: (test-assert "build-expression->derivation produces recursiv= e fixed-output" (let* ((builder (quote (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 (quote sha256) #:hash (base32 "10k1lw41wyrjf9mxydi0is5nkpynlsvgslinics= 4ppir13g7d74p") #: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 "/subd= ir"))) (and (executable-file? exe) (string=3D? "executable" (call-with-inpu= t-file exe get-string-all)) (string=3D? "exe" (readlink link)) (file-is-dir= ectory? subdir)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation uses recursive fixed-output" source-file: "tests/derivations.scm" source-line: 711 source-form: (test-assert "build-expression->derivation uses recursive fi= xed-output" (let* ((builder (quote (call-with-output-file %output (lambda (= port) (display "hello" port))))) (fixed (build-expression->derivation %stor= e "small-fixed-rec" builder #:hash-algo (quote sha256) #:hash (base32 "0sg9= f58l1jj88w6pdrfdpj5x9b1zrwszk84j81zvby36q9whhhqa") #:recursive? #t)) (in (d= erivation->output-path fixed)) (builder (quasiquote (begin (mkdir %output) = (chdir %output) (symlink (unquote in) "symlink")))) (drv (build-expression-= >derivation %store "fixed-rec-user" builder #:inputs (quasiquote (("fixed" = (unquote fixed))))))) (and (build-derivations %store (list drv)) (let ((out= (derivation->output-path drv))) (string=3D? (readlink (string-append out "= /symlink")) in))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "build-expression->derivation with #:references-graphs" source-file: "tests/derivations.scm" source-line: 733 source-form: (test-assert "build-expression->derivation with #:references= -graphs" (let* ((input (add-text-to-store %store "foo" "hello" (list %bash = %mkdir))) (builder (quote (copy-file "input" %output))) (drv (build-express= ion->derivation %store "references-graphs" builder #:references-graphs (qua= siquote (("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) Test begin: test-name: "map-derivation" source-file: "tests/derivations.scm" source-line: 765 source-form: (test-equal "map-derivation" "hello" (let* ((joke (package-d= erivation %store guile-1.8)) (good (package-derivation %store %bootstrap-gu= ile)) (drv1 (build-expression->derivation %store "original-drv1" #f #:guile= -for-build joke)) (drv2 (build-expression->derivation %store "original-drv2= " (quote (call-with-output-file %output (lambda (p) (display "hello" p)))))= ) (drv3 (build-expression->derivation %store "drv-to-remap" (quote (let ((i= n (assoc-ref %build-inputs "in"))) (copy-file in %output))) #:inputs (quasi= quote (("in" (unquote drv1)))) #:guile-for-build joke)) (drv4 (map-derivati= on %store drv3 (quasiquote (((unquote drv1) unquote drv2) ((unquote joke) u= nquote good))))) (out (derivation->output-path drv4))) (and (build-derivati= ons %store (list (pk (quote remapped) drv4))) (call-with-input-file out get= -string-all)))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) expected-value: "hello" Test begin: test-name: "map-derivation, sources" source-file: "tests/derivations.scm" source-line: 788 source-form: (test-equal "map-derivation, sources" "hello" (let* ((script= 1 (add-text-to-store %store "fail.sh" "exit 1")) (script2 (add-text-to-stor= e %store "hi.sh" "echo -n hello > $out")) (bash-full (package-derivation %s= tore (@ (gnu packages bash) bash))) (drv1 (derivation %store "drv-to-remap"= (derivation->output-path bash-full) (quasiquote ("-e" (unquote script1))) = #:inputs (quasiquote (((unquote bash-full)) ((unquote script1)))))) (drv2 (= map-derivation %store drv1 (quasiquote (((unquote bash-full) unquote %bash)= ((unquote script1) unquote script2))))) (out (derivation->output-path drv2= ))) (and (build-derivations %store (list (pk (quote remapped*) drv2))) (cal= l-with-input-file out get-string-all)))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) expected-value: "hello" Group end: derivations # of expected passes 10 # of unexpected failures 26 --=-=-= Content-Disposition: attachment; filename=gexp.log Content-Transfer-Encoding: quoted-printable %%%% Starting test gexp Group begin: gexp Test begin: test-name: "no refs" source-file: "tests/gexp.scm" source-line: 61 source-form: (test-equal "no refs" (quote (display "hello!")) (let ((exp = (gexp (display "hello!")))) (and (gexp? exp) (null? (gexp-inputs exp)) (gex= p->sexp* exp)))) Test end: result-kind: pass actual-value: (display "hello!") expected-value: (display "hello!") Test begin: test-name: "unquote" source-file: "tests/gexp.scm" source-line: 68 source-form: (test-equal "unquote" (quote (display (quasiquote (foo (unqu= ote (+ 2 3)))))) (let ((exp (gexp (display (quasiquote (foo (unquote (+ 2 3= )))))))) (and (gexp? exp) (null? (gexp-inputs exp)) (gexp->sexp* exp)))) Test end: result-kind: pass actual-value: (display (quasiquote (foo (unquote (+ 2 3))))) expected-value: (display (quasiquote (foo (unquote (+ 2 3))))) Test begin: test-name: "one input package" source-file: "tests/gexp.scm" source-line: 75 source-form: (test-assert "one input package" (let ((exp (gexp (display (= ungexp coreutils))))) (and (gexp? exp) (match (gexp-inputs exp) (((p "out")= ) (eq? p coreutils))) (equal? (quasiquote (display (unquote (derivation->ou= tput-path (package-derivation %store coreutils))))) (gexp->sexp* exp))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "one input origin" source-file: "tests/gexp.scm" source-line: 85 source-form: (test-assert "one input origin" (let ((exp (gexp (display (u= ngexp (package-source coreutils)))))) (and (gexp? exp) (match (gexp-inputs = exp) (((o "out")) (eq? o (package-source coreutils)))) (equal? (quasiquote = (display (unquote (derivation->output-path (package-source-derivation %stor= e (package-source coreutils)))))) (gexp->sexp* exp))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "same input twice" source-file: "tests/gexp.scm" source-line: 96 source-form: (test-assert "same input twice" (let ((exp (gexp (begin (dis= play (ungexp coreutils)) (display (ungexp coreutils)))))) (and (gexp? exp) = (match (gexp-inputs exp) (((p "out")) (eq? p coreutils))) (let ((e (quasiqu= ote (display (unquote (derivation->output-path (package-derivation %store c= oreutils))))))) (equal? (quasiquote (begin (unquote e) (unquote e))) (gexp-= >sexp* exp)))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "two input packages, one derivation, one file" source-file: "tests/gexp.scm" source-line: 108 source-form: (test-assert "two input packages, one derivation, one file" = (let* ((drv (build-expression->derivation %store "foo" (quote bar) #:guile-= for-build (package-derivation %store %bootstrap-guile))) (txt (add-text-to-= store %store "foo" "Hello, world!")) (exp (gexp (begin (display (ungexp cor= eutils)) (display (ungexp %bootstrap-guile)) (display (ungexp drv)) (displa= y (ungexp txt)))))) (define (match-input thing) (match-lambda ((drv-or-pkg = _ ...) (eq? thing drv-or-pkg)))) (and (gexp? exp) (=3D 4 (length (gexp-inpu= ts exp))) (every (lambda (input) (find (match-input input) (gexp-inputs exp= ))) (list drv coreutils %bootstrap-guile txt)) (let ((e0 (quasiquote (displ= ay (unquote (derivation->output-path (package-derivation %store coreutils))= )))) (e1 (quasiquote (display (unquote (derivation->output-path (package-de= rivation %store %bootstrap-guile)))))) (e2 (quasiquote (display (unquote (d= erivation->output-path drv))))) (e3 (quasiquote (display (unquote txt))))) = (equal? (quasiquote (begin (unquote e0) (unquote e1) (unquote e2) (unquote = e3))) (gexp->sexp* exp)))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "input list" source-file: "tests/gexp.scm" source-line: 136 source-form: (test-assert "input list" (let ((exp (gexp (display (quote (= ungexp (list %bootstrap-guile coreutils)))))) (guile (derivation->output-pa= th (package-derivation %store %bootstrap-guile))) (cu (derivation->output-p= ath (package-derivation %store coreutils)))) (and (lset=3D equal? (quasiquo= te (((unquote %bootstrap-guile) "out") ((unquote coreutils) "out"))) (gexp-= inputs exp)) (equal? (quasiquote (display (quote ((unquote guile) (unquote = cu))))) (gexp->sexp* exp))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "input list splicing" source-file: "tests/gexp.scm" source-line: 149 source-form: (test-assert "input list splicing" (let* ((inputs (list (lis= t glibc "debug") %bootstrap-guile)) (outputs (list (derivation->output-path= (package-derivation %store glibc) "debug") (derivation->output-path (packa= ge-derivation %store %bootstrap-guile)))) (exp (gexp (list (ungexp-splicing= (cons (+ 2 3) inputs)))))) (and (lset=3D equal? (quasiquote (((unquote gli= bc) "debug") ((unquote %bootstrap-guile) "out"))) (gexp-inputs exp)) (equal= ? (gexp->sexp* exp) (quasiquote (list (unquote-splicing (cons 5 outputs))))= )))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "gexp->file" source-file: "tests/gexp.scm" source-line: 163 source-form: (test-assert "gexp->file" (run-with-store %store (mlet* %sto= re-monad ((exp -> (gexp (display (ungexp %bootstrap-guile)))) (guile (packa= ge-file %bootstrap-guile)) (sexp (gexp->sexp exp)) (drv (gexp->file "foo" e= xp)) (out -> (derivation->output-path drv)) (done (built-derivations (list = drv))) (refs ((store-lift references) out))) (return (and (equal? sexp (cal= l-with-input-file out read)) (equal? (list guile) refs)))) #:guile-for-buil= d guile-for-build)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "gexp->derivation" source-file: "tests/gexp.scm" source-line: 174 source-form: (test-assert "gexp->derivation" (run-with-store %store (mlet= * %store-monad ((file (text-file "foo" "Hello, world!")) (exp -> (gexp (beg= in (mkdir (ungexp output)) (chdir (ungexp output)) (symlink (string-append = (ungexp %bootstrap-guile) "/bin/guile") "foo") (symlink (ungexp file) (unge= xp output "2nd"))))) (drv (gexp->derivation "foo" exp)) (out -> (derivation= ->output-path drv)) (out2 -> (derivation->output-path drv "2nd")) (done (bu= ilt-derivations (list drv))) (refs ((store-lift references) out)) (refs2 ((= store-lift references) out2)) (guile (package-file %bootstrap-guile "bin/gu= ile"))) (return (and (string=3D? (readlink (string-append out "/foo")) guil= e) (string=3D? (readlink out2) file) (equal? refs (list (dirname (dirname g= uile)))) (equal? refs2 (list file))))) #:guile-for-build guile-for-build)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "gexp->derivation, composed gexps" source-file: "tests/gexp.scm" source-line: 198 source-form: (test-assert "gexp->derivation, composed gexps" (run-with-st= ore %store (mlet* %store-monad ((exp0 -> (gexp (begin (mkdir (ungexp output= )) (chdir (ungexp output))))) (exp1 -> (gexp (symlink (string-append (ungex= p %bootstrap-guile) "/bin/guile") "foo"))) (exp -> (gexp (begin (ungexp exp= 0) (ungexp exp1)))) (drv (gexp->derivation "foo" exp)) (out -> (derivation-= >output-path drv)) (done (built-derivations (list drv))) (guile (package-fi= le %bootstrap-guile "bin/guile"))) (return (string=3D? (readlink (string-ap= pend out "/foo")) guile))) #:guile-for-build guile-for-build)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "gexp->script" source-file: "tests/gexp.scm" source-line: 214 source-form: (test-assert "gexp->script" (run-with-store %store (mlet* %s= tore-monad ((n -> (random (expt 2 50))) (exp -> (gexp (system* (string-appe= nd (ungexp %bootstrap-guile) "/bin/guile") "-c" (object->string (quote (dis= play (expt (ungexp n) 2))))))) (drv (gexp->script "guile-thing" exp #:guile= %bootstrap-guile)) (out -> (derivation->output-path drv)) (done (built-der= ivations (list drv)))) (let* ((pipe (open-input-pipe out)) (str (get-string= -all pipe))) (return (and (zero? (close-pipe pipe)) (=3D (expt n 2) (string= ->number str)))))) #:guile-for-build guile-for-build)) Test end: result-kind: fail actual-value: #f Test begin: test-name: "sugar" source-file: "tests/gexp.scm" source-line: 231 source-form: (test-equal "sugar" (quote (gexp (foo (ungexp bar) (ungexp b= az "out") (ungexp (chbouib 42)) (ungexp-splicing (list x y z))))) (quote (g= exp (foo (ungexp bar) (ungexp baz "out") (ungexp (chbouib 42)) (ungexp-spli= cing (list x y z)))))) Test end: result-kind: pass actual-value: (gexp (foo (ungexp bar) (ungexp baz "out") (ungexp (chbouib= 42)) (ungexp-splicing (list x y z)))) expected-value: (gexp (foo (ungexp bar) (ungexp baz "out") (ungexp (chbou= ib 42)) (ungexp-splicing (list x y z)))) Group end: gexp # of expected passes 12 # of unexpected failures 1 --=-=-= Content-Disposition: attachment; filename=monads.log %%%% Starting test monads Group begin: monads Test begin: test-name: "monad?" source-file: "tests/monads.scm" source-line: 51 source-form: (test-assert "monad?" (and (every monad? %monads) (every (compose procedure? monad-bind) %monads) (every (compose procedure? monad-return) %monads))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "left identity" source-file: "tests/monads.scm" source-line: 58 source-form: (test-assert "left identity" (every (lambda (monad run) (let ((number (random 777))) (with-monad monad (define (f x) (return (* (#{1+}# number) 2))) (= (run (>>= (return number) f)) (run (f number)))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "right identity" source-file: "tests/monads.scm" source-line: 70 source-form: (test-assert "right identity" (every (lambda (monad run) (with-monad monad (let ((number (return (random 777)))) (= (run (>>= number return)) (run number))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "associativity" source-file: "tests/monads.scm" source-line: 79 source-form: (test-assert "associativity" (every (lambda (monad run) (with-monad monad (define (f x) (return (+ 1 x))) (define (g x) (return (* 2 x))) (let ((number (return (random 777)))) (= (run (>>= (>>= number f) g)) (run (>>= number (lambda (x) (>>= (f x) g)))))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "lift" source-file: "tests/monads.scm" source-line: 93 source-form: (test-assert "lift" (every (lambda (monad run) (let ((f (lift1 #{1+}# monad))) (with-monad monad (let ((number (random 777))) (= (run (>>= (return number) f)) (#{1+}# number)))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "mlet* + text-file + package-file" source-file: "tests/monads.scm" source-line: 103 source-form: (test-assert "mlet* + text-file + package-file" (run-with-store %store (mlet* %store-monad ((guile (package-file %bootstrap-guile "bin/guile")) (file (text-file "monadic" guile))) (return (equal? (call-with-input-file file get-string-all) guile))) #:guile-for-build (package-derivation %store %bootstrap-guile))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "mlet* + derivation-expression" source-file: "tests/monads.scm" source-line: 114 source-form: (test-assert "mlet* + derivation-expression" (run-with-store %store (mlet* %store-monad ((guile (package-file %bootstrap-guile "bin/guile")) (gdrv (package->derivation %bootstrap-guile)) (exp -> (quasiquote (let ((out (assoc-ref %outputs "out"))) (mkdir out) (symlink (unquote guile) (string-append out "/guile-rocks"))))) (drv (derivation-expression "rocks" exp #:inputs (quasiquote (("g" (unquote gdrv)))))) (out -> (derivation->output-path drv)) (built? (built-derivations (list drv)))) (return (and built? (equal? guile (readlink (string-append out "/guile-rocks")))))) #:guile-for-build (package-derivation %store %bootstrap-guile))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "text-file*" source-file: "tests/monads.scm" source-line: 132 source-form: (test-assert "text-file*" (let ((references (store-lift references))) (run-with-store %store (mlet* %store-monad ((drv (package->derivation %bootstrap-guile)) (guile -> (derivation->output-path drv)) (file (text-file "bar" "This is bar.")) (text (text-file* "foo" %bootstrap-guile "/bin/guile " (quasiquote ((unquote %bootstrap-guile) "out")) "/bin/guile " drv "/bin/guile " file)) (done (built-derivations (list text))) (out -> (derivation->output-path text)) (refs (references out))) (return (and (lset= string=? refs (list guile file)) (equal? (call-with-input-file out get-string-all) (string-append guile "/bin/guile " guile "/bin/guile " guile "/bin/guile " file))))) #:guile-for-build (package-derivation %store %bootstrap-guile)))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "mapm" source-file: "tests/monads.scm" source-line: 156 source-form: (test-assert "mapm" (every (lambda (monad run) (with-monad monad (equal? (run (mapm monad (lift1 #{1+}# monad) (map return (iota 10)))) (map #{1+}# (iota 10))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "sequence" source-file: "tests/monads.scm" source-line: 164 source-form: (test-assert "sequence" (every (lambda (monad run) (let* ((input (iota 100)) (order (quote ()))) (define (frob i) (set! order (cons i order)) i) (and (equal? input (run (sequence monad (map (lift1 frob monad) input)))) (equal? order (reverse input))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "listm" source-file: "tests/monads.scm" source-line: 183 source-form: (test-assert "listm" (every (lambda (monad run) (run (with-monad monad (let ((lst (listm monad (return 1) (return 2) (return 3)))) (mlet monad ((lst lst)) (return (equal? (quote (1 2 3)) lst))))))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Test begin: test-name: "anym" source-file: "tests/monads.scm" source-line: 193 source-form: (test-assert "anym" (every (lambda (monad run) (eq? (run (with-monad monad (let ((lst (list (return 1) (return 2) (return 3)))) (anym monad (lambda (x) (and (odd? x) (quote odd!))) lst)))) (quote odd!))) %monads %monad-run)) Test end: result-kind: pass actual-value: #t Group end: monads # of expected passes 10 # of unexpected failures 2 --=-=-= Content-Disposition: attachment; filename=packages.log Content-Transfer-Encoding: quoted-printable %%%% Starting test packages Group begin: packages Test begin: test-name: "package-field-location" source-file: "tests/packages.scm" source-line: 58 source-form: (test-assert "package-field-location" (let () (define (goto = port line column) (unless (and (=3D (port-column port) (- column 1)) (=3D (= port-line port) (- line 1))) (unless (eof-object? (get-char port)) (goto po= rt line column)))) (define read-at (match-lambda (($ file line c= olumn) (call-with-input-file (search-path %load-path file) (lambda (port) (= goto port line column) (read port)))))) (and (member (read-at (package-fiel= d-location %bootstrap-guile (quote name))) (let ((name (package-name %boots= trap-guile))) (list name (quasiquote (name (unquote name)))))) (member (rea= d-at (package-field-location %bootstrap-guile (quote version))) (let ((vers= ion (package-version %bootstrap-guile))) (list version (quasiquote (version= (unquote version)))))) (not (package-field-location %bootstrap-guile (quot= e does-not-exist)))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-field-location, relative file name" source-file: "tests/packages.scm" source-line: 85 source-form: (test-equal "package-field-location, relative file name" (lo= cation-file (package-location %bootstrap-guile)) (with-fluids ((%file-port-= name-canonicalization (quote absolute))) (location-file (package-field-loca= tion %bootstrap-guile (quote version))))) Test end: result-kind: pass actual-value: "gnu/packages/bootstrap.scm" expected-value: "gnu/packages/bootstrap.scm" Test begin: test-name: "package-transitive-inputs" source-file: "tests/packages.scm" source-line: 90 source-form: (test-assert "package-transitive-inputs" (let* ((a (dummy-pa= ckage "a")) (b (dummy-package "b" (propagated-inputs (quasiquote (("a" (unq= uote a))))))) (c (dummy-package "c" (inputs (quasiquote (("a" (unquote a)))= )))) (d (dummy-package "d" (propagated-inputs (quasiquote (("x" "something.= drv")))))) (e (dummy-package "e" (inputs (quasiquote (("b" (unquote b)) ("c= " (unquote c)) ("d" (unquote d)))))))) (and (null? (package-transitive-inpu= ts a)) (equal? (quasiquote (("a" (unquote a)))) (package-transitive-inputs = b)) (equal? (quasiquote (("a" (unquote a)))) (package-transitive-inputs c))= (equal? (package-propagated-inputs d) (package-transitive-inputs d)) (equa= l? (quasiquote (("b" (unquote b)) ("b/a" (unquote a)) ("c" (unquote c)) ("d= " (unquote d)) ("d/x" "something.drv"))) (pk (quote x) (package-transitive-= inputs e)))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-source-derivation, file" source-file: "tests/packages.scm" source-line: 111 source-form: (test-assert "package-source-derivation, file" (let* ((file = (search-path %load-path "guix.scm")) (package (package (inherit (dummy-pack= age "p")) (source file))) (source (package-source-derivation %store (packag= e-source package)))) (and (store-path? source) (valid-path? %store source) = (equal? (call-with-input-file source get-bytevector-all) (call-with-input-f= ile file get-bytevector-all))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-source-derivation, store path" source-file: "tests/packages.scm" source-line: 122 source-form: (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)))) (st= ring=3D? file source))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-source-derivation, indirect store path" source-file: "tests/packages.scm" source-line: 131 source-form: (test-assert "package-source-derivation, indirect store path= " (let* ((dir (add-to-store %store "guix-build" #t "sha256" (dirname (searc= h-path %load-path "guix/build/utils.scm")))) (package (package (inherit (du= mmy-package "p")) (source (string-append dir "/utils.scm")))) (source (pack= age-source-derivation %store (package-source package)))) (and (direct-store= -path? source) (string-suffix? "utils.scm" source)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-source-derivation, snippet" source-file: "tests/packages.scm" source-line: 144 source-form: (test-equal "package-source-derivation, snippet" "OK" (let* = ((file (search-bootstrap-binary "guile-2.0.9.tar.xz" (%current-system))) (s= ha256 (call-with-input-file file port-sha256)) (fetch (lambda* (store url h= ash-algo hash #:optional name #:key system) (pk (quote fetch) url hash-algo= hash name system) (add-to-store store (basename url) #f "sha256" url))) (s= ource (bootstrap-origin (origin (method fetch) (uri file) (sha256 sha256) (= patch-inputs (quasiquote (("tar" (unquote %bootstrap-coreutils&co)) ("xz" (= unquote %bootstrap-coreutils&co)) ("patch" (unquote %bootstrap-coreutils&co= ))))) (patch-guile %bootstrap-guile) (modules (quote ((guix build utils))))= (imported-modules modules) (snippet (quote (begin (chmod "." 511) (symlink= "guile" "guile-rocks") (copy-recursively "../share/guile/2.0/scripts" "scr= ipts") (pk %build-inputs %outputs))))))) (package (package (inherit (dummy-= package "with-snippet")) (source source) (build-system trivial-build-system= ) (inputs (quasiquote (("tar" (unquote (search-bootstrap-binary "tar" (%cur= rent-system)))) ("xz" (unquote (search-bootstrap-binary "xz" (%current-syst= em))))))) (arguments (quasiquote (#:guile (unquote %bootstrap-guile) #:buil= der (let ((tar (assoc-ref %build-inputs "tar")) (xz (assoc-ref %build-input= s "xz")) (source (assoc-ref %build-inputs "source"))) (and (zero? (system* = tar "xvf" source "--use-compress-program" xz)) (string=3D? "guile" (readlin= k "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 (derivati= on->output-path drv))) (and (build-derivations %store (list (pk (quote snip= pet-drv) drv))) (call-with-input-file out get-string-all)))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) expected-value: "OK" Test begin: test-name: "return value" source-file: "tests/packages.scm" source-line: 203 source-form: (test-assert "return value" (let ((drv (package-derivation %= store (dummy-package "p")))) (and (derivation? drv) (file-exists? (derivati= on-file-name drv))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-output" source-file: "tests/packages.scm" source-line: 208 source-form: (test-assert "package-output" (let* ((package (dummy-package= "p")) (drv (package-derivation %store package))) (and (derivation? drv) (s= tring=3D? (derivation->output-path drv) (package-output %store package "out= "))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "trivial" source-file: "tests/packages.scm" source-line: 215 source-form: (test-assert "trivial" (let* ((p (package (inherit (dummy-pa= ckage "trivial")) (build-system trivial-build-system) (source #f) (argument= s (quasiquote (#:guile (unquote %bootstrap-guile) #:builder (begin (mkdir %= output) (call-with-output-file (string-append %output "/test") (lambda (p) = (display (quote (hello guix)) p))))))))) (d (package-derivation %store p)))= (and (build-derivations %store (list d)) (let ((p (pk (quote drv) d (deriv= ation->output-path d)))) (equal? (quote (hello guix)) (call-with-input-file= (string-append p "/test") read)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "trivial with local file as input" source-file: "tests/packages.scm" source-line: 233 source-form: (test-assert "trivial with local file as input" (let* ((i (s= earch-path %load-path "ice-9/boot-9.scm")) (p (package (inherit (dummy-pack= age "trivial-with-input-file")) (build-system trivial-build-system) (source= #f) (arguments (quasiquote (#:guile (unquote %bootstrap-guile) #:builder (= copy-file (assoc-ref %build-inputs "input") %output)))) (inputs (quasiquote= (("input" (unquote i))))))) (d (package-derivation %store p))) (and (build= -derivations %store (list d)) (let ((p (pk (quote drv) d (derivation->outpu= t-path d)))) (equal? (call-with-input-file p get-bytevector-all) (call-with= -input-file i get-bytevector-all)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "trivial with source" source-file: "tests/packages.scm" source-line: 249 source-form: (test-assert "trivial with source" (let* ((i (search-path %l= oad-path "ice-9/boot-9.scm")) (p (package (inherit (dummy-package "trivial-= with-source")) (build-system trivial-build-system) (source i) (arguments (q= uasiquote (#:guile (unquote %bootstrap-guile) #:builder (copy-file (assoc-r= ef %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)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "trivial with system-dependent input" source-file: "tests/packages.scm" source-line: 264 source-form: (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 (quasiquote (#:guile (= unquote %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 (quasiquote (("bash" (unquote (sear= ch-bootstrap-binary "bash" (%current-system))))))))) (d (package-derivation= %store p))) (and (build-derivations %store (list d)) (let ((p (pk (quote d= rv) d (derivation->output-path d)))) (eq? (quote hello) (call-with-input-fi= le p read)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "search paths" source-file: "tests/packages.scm" source-line: 282 source-form: (test-assert "search paths" (let* ((p (make-prompt-tag "retu= rn-search-paths")) (s (build-system (name "raw") (description "Raw build sy= stem with direct store access") (build (lambda* (store name source inputs #= :key outputs system search-paths) search-paths)))) (x (list (search-path-sp= ecification (variable "GUILE_LOAD_PATH") (directories (quote ("share/guile/= site/2.0")))) (search-path-specification (variable "GUILE_LOAD_COMPILED_PAT= H") (directories (quote ("share/guile/site/2.0")))))) (a (package (inherit = (dummy-package "guile")) (build-system s) (native-search-paths x))) (b (pac= kage (inherit (dummy-package "guile-foo")) (build-system s) (inputs (quasiq= uote (("guile" (unquote a))))))) (c (package (inherit (dummy-package "guile= -bar")) (build-system s) (inputs (quasiquote (("guile" (unquote a)) ("guile= -foo" (unquote 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-deriv= ation %store c))))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-cross-derivation" source-file: "tests/packages.scm" source-line: 317 source-form: (test-assert "package-cross-derivation" (let ((drv (package-= cross-derivation %store (dummy-package "p") "mips64el-linux-gnu"))) (and (d= erivation? drv) (file-exists? (derivation-file-name drv))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-cross-derivation, trivial-build-system" source-file: "tests/packages.scm" source-line: 323 source-form: (test-assert "package-cross-derivation, trivial-build-system= " (let ((p (package (inherit (dummy-package "p")) (build-system trivial-bui= ld-system) (arguments (quote (#:builder (exit 1))))))) (let ((drv (package-= cross-derivation %store p "mips64el-linux-gnu"))) (derivation? drv)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "package-cross-derivation, no cross builder" source-file: "tests/packages.scm" source-line: 330 source-form: (test-assert "package-cross-derivation, no cross builder" (l= et* ((b (build-system (inherit trivial-build-system) (cross-build #f))) (p = (package (inherit (dummy-package "p")) (build-system b)))) (guard (c ((pack= age-cross-build-system-error? c) (eq? (package-error-package c) p))) (packa= ge-cross-derivation %store p "mips64el-linux-gnu") #f))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "GNU Make, bootstrap" source-file: "tests/packages.scm" source-line: 342 source-form: (test-assert "GNU Make, bootstrap" (let ((gnu-make (@@ (gnu = packages base) gnu-make-boot0))) (and (package? gnu-make) (or (location? (p= ackage-location gnu-make)) (not (package-location gnu-make))) (let* ((drv (= package-derivation %store gnu-make)) (out (derivation->output-path drv))) (= and (build-derivations %store (list drv)) (file-exists? (string-append out = "/bin/make"))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "fold-packages" source-file: "tests/packages.scm" source-line: 354 source-form: (test-eq "fold-packages" hello (fold-packages (lambda (p r) = (if (string=3D? (package-name p) "hello") p r)) #f)) Test end: result-kind: pass actual-value: # expected-value: # Test begin: test-name: "find-packages-by-name" source-file: "tests/packages.scm" source-line: 361 source-form: (test-assert "find-packages-by-name" (match (find-packages-b= y-name "hello") (((? (cut eq? hello <>))) #t) (wrong (pk (quote find-packag= es-by-name) wrong #f)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "find-packages-by-name with version" source-file: "tests/packages.scm" source-line: 366 source-form: (test-assert "find-packages-by-name with version" (match (fi= nd-packages-by-name "hello" (package-version hello)) (((? (cut eq? hello <>= ))) #t) (wrong (pk (quote find-packages-by-name) wrong #f)))) Test end: result-kind: pass actual-value: #t Group end: packages # of expected passes 15 # of unexpected failures 6 --=-=-= Content-Disposition: attachment; filename=store.log Content-Transfer-Encoding: quoted-printable %%%% Starting test store Group begin: store Test begin: test-name: "store-path-hash-part" source-file: "tests/store.scm" source-line: 58 source-form: (test-equal "store-path-hash-part" "283gqy39v3g9dxjy26rynl0z= ls82fmcg" (store-path-hash-part (string-append (%store-prefix) "/283gqy39v3= g9dxjy26rynl0zls82fmcg-guile-2.0.7"))) Test end: result-kind: pass actual-value: "283gqy39v3g9dxjy26rynl0zls82fmcg" expected-value: "283gqy39v3g9dxjy26rynl0zls82fmcg" Test begin: test-name: "store-path-hash-part #f" source-file: "tests/store.scm" source-line: 64 source-form: (test-equal "store-path-hash-part #f" #f (store-path-hash-pa= rt (string-append (%store-prefix) "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmc= g-guile-2.0.7"))) Test end: result-kind: pass actual-value: #f expected-value: #f Test begin: test-name: "store-path-package-name" source-file: "tests/store.scm" source-line: 70 source-form: (test-equal "store-path-package-name" "guile-2.0.7" (store-p= ath-package-name (string-append (%store-prefix) "/283gqy39v3g9dxjy26rynl0zl= s82fmcg-guile-2.0.7"))) Test end: result-kind: pass actual-value: "guile-2.0.7" expected-value: "guile-2.0.7" Test begin: test-name: "store-path-package-name #f" source-file: "tests/store.scm" source-line: 76 source-form: (test-equal "store-path-package-name #f" #f (store-path-pack= age-name "/foo/bar/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.7")) Test end: result-kind: pass actual-value: #f expected-value: #f Test begin: test-name: "direct-store-path?" source-file: "tests/store.scm" source-line: 81 source-form: (test-assert "direct-store-path?" (and (direct-store-path? (= string-append (%store-prefix) "/283gqy39v3g9dxjy26rynl0zls82fmcg-guile-2.0.= 7")) (not (direct-store-path? (string-append (%store-prefix) "/283gqy39v3g9= dxjy26rynl0zls82fmcg-guile-2.0.7/bin/guile"))) (not (direct-store-path? (%s= tore-prefix))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "valid-path? live" source-file: "tests/store.scm" source-line: 93 source-form: (test-assert "valid-path? live" (let ((p (add-text-to-store = %store "hello" "hello, world"))) (valid-path? %store p))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "valid-path? false" source-file: "tests/store.scm" source-line: 97 source-form: (test-assert "valid-path? false" (not (valid-path? %store (s= tring-append (%store-prefix) "/" (make-string 32 #\e) "-foobar")))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "valid-path? error" source-file: "tests/store.scm" source-line: 102 source-form: (test-assert "valid-path? error" (with-store s (guard (c ((n= ix-protocol-error? c) #t)) (valid-path? s "foo") #f))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "valid-path? recovery" source-file: "tests/store.scm" source-line: 108 source-form: (test-assert "valid-path? recovery" (with-store s (let-synta= x ((true-if-error (syntax-rules () ((_ exp) (guard (c ((nix-protocol-error?= c) #t)) exp #f))))) (and (true-if-error (valid-path? s "foo")) (true-if-er= ror (valid-path? s "bar")) (true-if-error (valid-path? s "baz")) (true-if-e= rror (valid-path? s "chbouib")) (valid-path? s (add-text-to-store s "valid"= "yeah")))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "hash-part->path" source-file: "tests/store.scm" source-line: 125 source-form: (test-assert "hash-part->path" (let ((p (add-text-to-store %= store "hello" "hello, world"))) (equal? (hash-part->path %store (store-path= -hash-part p)) p))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "dead-paths" source-file: "tests/store.scm" source-line: 130 source-form: (test-assert "dead-paths" (let ((p (add-text-to-store %store= "random-text" (random-text)))) (member p (dead-paths %store)))) Test end: result-kind: pass actual-value: ("/home/nikita/guix/guix-savannah/test-tmp/store/z8pp09v5bl= b998dqkfl35q865qhsxg85-random-text" "/home/nikita/guix/guix-savannah/test-t= mp/store/z8s2qipnmqzjmcfmf5bf16dhbgj5yryd-input.lock" "/home/nikita/guix/gu= ix-savannah/test-tmp/store/zc25b4hj1smnk1n6y8vz4952bhbh947l-xcb-proto-1.7.1= .tar.bz2-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zc3hdr8s2= pn6ggwq38ab3nngp89lfpj8-small-fixed-rec-guile-builder" "/home/nikita/guix/g= uix-savannah/test-tmp/store/zc8y9538jh7s0zgbv5ym59fkhbyjf1rk-inputproto-2.2= .tar.bz2-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zclqih0yk= r3bw0xx9mchji6268hdjjmh-libxrender-0.9.7.drv" "/home/nikita/guix/guix-savan= nah/test-tmp/store/zcnkwlhm9z85dp5a22vj6096lmiizipy-Python-2.7.6.tar.xz-gui= le-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zhi6sz1n45kvg1c= a3n8flpmqaf3si4as-readline-6.3.tar.xz.drv" "/home/nikita/guix/guix-savannah= /test-tmp/store/zhk6widzr9fbalsv19pv58ih9mpiaagm-double.drv" "/home/nikita/= guix/guix-savannah/test-tmp/store/zhmczkkaxabx6lgckgfk1nkplfnjahad-gdbm-1.1= 1.drv" "/home/nikita/guix/guix-savannah/test-tmp/store/zi88mzyd8vv2wfbbwavb= jj2d1fqw93rf-m4-1.4.17.tar.xz.drv" "/home/nikita/guix/guix-savannah/test-tm= p/store/ziain09kpmz230fafz0jm7pskzi9x5l3-gmp-5.1.3-guile-builder" "/home/ni= kita/guix/guix-savannah/test-tmp/store/zja9rm74rms76zlj7j5jqbkd3ckpjpy7-sed= -4.2.2-guile-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zk3qj= jddk04cgg0121zpnc5icfnm0d6k-guile-2.0.9.tar.xz" "/home/nikita/guix/guix-sav= annah/test-tmp/store/zl3r4zlypwm4mipmd859jlbgp3ipvvn6-pkg-config-0.27.1-gui= le-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zlva1hpp2fvp62s= dfsgf7x8j8i7a0yms-flex-2.5.37.tar.xz-guile-builder" "/home/nikita/guix/guix= -savannah/test-tmp/store/zm15rai059j7jvnz1nld1h1x5l4yx95q-bison-2.7.1-guile= -builder" "/home/nikita/guix/guix-savannah/test-tmp/store/znq6nhvws165km6an= jcly72z1w3vm9c8-references-graphs.drv" "/home/nikita/guix/guix-savannah/tes= t-tmp/store/znv7xr4mpfqdkgw7vw7jm8rhkgkki583-gc-7.4.0.tar.gz.drv" "/home/ni= kita/guix/guix-savannah/test-tmp/store/zp0mwmgyby3kni4y8knrcxdyjsr5b347-foo= -builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zq1fsldxk2mnkw3jy= 03zhlg80dlh04rf-glib-2.39.1.tar.xz.drv" "/home/nikita/guix/guix-savannah/te= st-tmp/store/zq7x0jfbbxrblxzjain0hlcw0s1f80il-xz-5.0.4.tar.gz.drv" "/home/n= ikita/guix/guix-savannah/test-tmp/store/zqdhvc9vviv1k4xbqvm3gzhk04amfzbi-li= bice-1.0.8-guile-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/z= qygrvaym020jj4gdkkd5n4rf2im7g79-cloog-0.18.0.tar.gz.drv" "/home/nikita/guix= /guix-savannah/test-tmp/store/zrahpaf2gmnn56m6n7p4xmy8yhmqcakl-goo-guile-bu= ilder" "/home/nikita/guix/guix-savannah/test-tmp/store/zrdwfnkbmwaq8igbcqy0= j4rxigfqja2a-readline-6.2.drv" "/home/nikita/guix/guix-savannah/test-tmp/st= ore/zrkr440ps8nxwbgjjmbv2sr2mwcq90xf-libxau-1.0.7-guile-builder" "/home/nik= ita/guix/guix-savannah/test-tmp/store/zrqhgckwjnqr5p74m278h1jb9mzzlqf8-acl-= 2.2.51-guile-builder" "/home/nikita/guix/guix-savannah/test-tmp/store/zswhy= ql3nmpfc53l2qabgsnpr9psmhdr-glibc-bootstrap-0" "/home/nikita/guix/guix-sava= nnah/test-tmp/store/zvxs0d0yx5xqgrfiz24lxc7b8rcazpl3-glibc-2.19.tar.xz.drv"= "/home/nikita/guix/guix-savannah/test-tmp/store/zvza65bqm12n6rw5zd2pdjxa15= vjbh6k-module-import-compiled" "/home/nikita/guix/guix-savannah/test-tmp/st= ore/zw2c97rqj67hxmvqbacg3rd5qnp5va74-test-with-modules.drv" "/home/nikita/g= uix/guix-savannah/test-tmp/store/zysvl4i44wkfjl7a3zkfg42gjg6zdkzd-m4-1.4.17= .tar.bz2.drv" "/home/nikita/guix/guix-savannah/test-tmp/store/zyv8f4crwrhwm= hswa3n7ga74hgqzxgn0-libgc-7.4.0-guile-builder" "/home/nikita/guix/guix-sava= nnah/test-tmp/store/zz7c5ck4713bpkrmiwlqpqkd4lapg3dd-emacs-24.3-guile-build= er" "/home/nikita/guix/guix-savannah/test-tmp/store/zzalgfrjgyr4zg0xp1dzmri= imggnm8v7-coreutils-8.22.tar.xz-guile-builder") Test begin: test-name: "permanent root" source-file: "tests/store.scm" source-line: 151 source-form: (test-assert "permanent root" (let* ((p (with-store store (l= et ((p (add-text-to-store store "random-text" (random-text)))) (add-permane= nt-root p) (add-permanent-root p) p)))) (and (member p (live-paths %store))= (begin (remove-permanent-root p) (->bool (member p (dead-paths %store)))))= )) Test end: result-kind: pass actual-value: #t Test begin: test-name: "dead path can be explicitly collected" source-file: "tests/store.scm" source-line: 163 source-form: (test-assert "dead path can be explicitly collected" (let ((= p (add-text-to-store %store "random-text" (random-text) (quote ())))) (let-= values (((paths freed) (delete-paths %store (list p)))) (and (equal? paths = (list p)) (> freed 0) (not (file-exists? p)))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "references" source-file: "tests/store.scm" source-line: 171 source-form: (test-assert "references" (let* ((t1 (add-text-to-store %sto= re "random1" (random-text))) (t2 (add-text-to-store %store "random2" (rando= m-text) (list t1)))) (and (equal? (list t1) (references %store t2)) (equal?= (list t2) (referrers %store t1)) (null? (references %store t1)) (null? (re= ferrers %store t2))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "requisites" source-file: "tests/store.scm" source-line: 181 source-form: (test-assert "requisites" (let* ((t1 (add-text-to-store %sto= re "random1" (random-text) (quote ()))) (t2 (add-text-to-store %store "rand= om2" (random-text) (list t1))) (t3 (add-text-to-store %store "random3" (ran= dom-text) (list t2))) (t4 (add-text-to-store %store "random4" (random-text)= (list t1 t3)))) (define (same? x y) (and (=3D (length x) (length y)) (lset= =3D equal? x y))) (and (same? (requisites %store t1) (list t1)) (same? (req= uisites %store t2) (list t1 t2)) (same? (requisites %store t3) (list t1 t2 = t3)) (same? (requisites %store t4) (list t1 t2 t3 t4))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "derivers" source-file: "tests/store.scm" source-line: 199 source-form: (test-assert "derivers" (let* ((b (add-text-to-store %store = "build" "echo $foo > $out" (quote ()))) (s (add-to-store %store "bash" #t "= sha256" (search-bootstrap-binary "bash" (%current-system)))) (d (derivation= %store "the-thing" s (quasiquote ("-e" (unquote b))) #:env-vars (quasiquot= e (("foo" unquote (random-text)))) #:inputs (quasiquote (((unquote b)) ((un= quote s)))))) (o (derivation->output-path d))) (and (build-derivations %sto= re (list d)) (equal? (query-derivation-outputs %store (derivation-file-name= d)) (list o)) (equal? (valid-derivers %store o) (list (derivation-file-nam= e d)))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "topologically-sorted, one item" source-file: "tests/store.scm" source-line: 215 source-form: (test-assert "topologically-sorted, one item" (let* ((a (add= -text-to-store %store "a" "a")) (b (add-text-to-store %store "b" "b" (list = a))) (c (add-text-to-store %store "c" "c" (list b))) (d (add-text-to-store = %store "d" "d" (list c))) (s (topologically-sorted %store (list d)))) (equa= l? s (list a b c d)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "topologically-sorted, several items" source-file: "tests/store.scm" source-line: 223 source-form: (test-assert "topologically-sorted, several items" (let* ((a= (add-text-to-store %store "a" "a")) (b (add-text-to-store %store "b" "b" (= list a))) (c (add-text-to-store %store "c" "c" (list b))) (d (add-text-to-s= tore %store "d" "d" (list c))) (s1 (topologically-sorted %store (list d a c= b))) (s2 (topologically-sorted %store (list b d c a b d)))) (equal? s1 s2 = (list a b c d)))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "topologically-sorted, more difficult" source-file: "tests/store.scm" source-line: 232 source-form: (test-assert "topologically-sorted, more difficult" (let* ((= a (add-text-to-store %store "a" "a")) (b (add-text-to-store %store "b" "b" = (list a))) (c (add-text-to-store %store "c" "c" (list b))) (d (add-text-to-= store %store "d" "d" (list c))) (w (add-text-to-store %store "w" "w")) (x (= add-text-to-store %store "x" "x" (list w))) (y (add-text-to-store %store "y= " "y" (list x d))) (s1 (topologically-sorted %store (list y))) (s2 (topolog= ically-sorted %store (list c y))) (s3 (topologically-sorted %store (cons y = (references %store y))))) (let* ((x-then-d? (equal? (references %store y) (= list x d)))) (and (equal? s1 (if x-then-d? (list w x a b c d y) (list a b c= d w x y))) (equal? s2 (if x-then-d? (list a b c w x d y) (list a b c d w x= y))) (lset=3D string=3D? s1 s3))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "log-file, derivation" source-file: "tests/store.scm" source-line: 256 source-form: (test-assert "log-file, derivation" (let* ((b (add-text-to-s= tore %store "build" "echo $foo > $out" (quote ()))) (s (add-to-store %store= "bash" #t "sha256" (search-bootstrap-binary "bash" (%current-system)))) (d= (derivation %store "the-thing" s (quasiquote ("-e" (unquote b))) #:env-var= s (quasiquote (("foo" unquote (random-text)))) #:inputs (quasiquote (((unqu= ote b)) ((unquote s))))))) (and (build-derivations %store (list d)) (file-e= xists? (pk (log-file %store (derivation-file-name d))))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "log-file, output file name" source-file: "tests/store.scm" source-line: 268 source-form: (test-assert "log-file, output file name" (let* ((b (add-tex= t-to-store %store "build" "echo $foo > $out" (quote ()))) (s (add-to-store = %store "bash" #t "sha256" (search-bootstrap-binary "bash" (%current-system)= ))) (d (derivation %store "the-thing" s (quasiquote ("-e" (unquote b))) #:e= nv-vars (quasiquote (("foo" unquote (random-text)))) #:inputs (quasiquote (= ((unquote b)) ((unquote s)))))) (o (derivation->output-path d))) (and (buil= d-derivations %store (list d)) (file-exists? (pk (log-file %store o))) (str= ing=3D? (log-file %store (derivation-file-name d)) (log-file %store o))))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "no substitutes" source-file: "tests/store.scm" source-line: 283 source-form: (test-assert "no substitutes" (let* ((s (open-connection)) (= d1 (package-derivation s %bootstrap-guile (%current-system))) (d2 (package-= derivation s %bootstrap-glibc (%current-system))) (o (map derivation->outpu= t-path (list d1 d2)))) (set-build-options s #:use-substitutes? #f) (and (no= t (has-substitutes? s (derivation-file-name d1))) (not (has-substitutes? s = (derivation-file-name d2))) (null? (substitutable-paths s o)) (null? (subst= itutable-path-info s o))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "substitute query" source-file: "tests/store.scm" source-line: 296 source-form: (test-assert "substitute query" (let* ((s (open-connection))= (d (package-derivation s %bootstrap-guile (%current-system))) (o (derivati= on->output-path d)) (dir (and=3D> (getenv "GUIX_BINARY_SUBSTITUTE_URL") (co= mpose uri-path string->uri)))) (call-with-output-file (string-append dir "/= nix-cache-info") (lambda (p) (format p "StoreDir: ~a\nWantMassQuery: 0\n" (= %store-prefix)))) (call-with-output-file (string-append dir "/" (store-path= -hash-part o) ".narinfo") (lambda (p) (format p "StorePath: ~a\nURL: ~a\nCo= mpression: none\nNarSize: 1234\nReferences: \nSystem: ~a\nDeriver: ~a~%" o = (string-append dir "/example.nar") (%current-system) (basename (derivation-= file-name d))))) (false-if-exception (delete-file (string-append (getenv "X= DG_CACHE_HOME") "/guix/substitute-binary/" (store-path-hash-part o)))) (set= -build-options s #:use-substitutes? #t) (and (has-substitutes? s o) (equal?= (list o) (substitutable-paths s (list o))) (match (pk (quote spi) (substit= utable-path-info s (list o))) (((? substitutable? s)) (and (string=3D? (sub= stitutable-deriver s) (derivation-file-name d)) (null? (substitutable-refer= ences s)) (equal? (substitutable-nar-size s) 1234))))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "substitute" source-file: "tests/store.scm" source-line: 339 source-form: (test-assert "substitute" (let* ((s (open-connection)) (c (r= andom-text)) (d (build-expression->derivation s "substitute-me" (quasiquote= (call-with-output-file %output (lambda (p) (exit 1) (display (unquote c) p= )))) #:guile-for-build (package-derivation s %bootstrap-guile (%current-sys= tem)))) (o (derivation->output-path d)) (dir (and=3D> (getenv "GUIX_BINARY_= SUBSTITUTE_URL") (compose uri-path string->uri)))) (call-with-output-file (= string-append dir "/nix-cache-info") (lambda (p) (format p "StoreDir: ~a\nW= antMassQuery: 0\n" (%store-prefix)))) (call-with-output-file (string-append= dir "/example.out") (lambda (p) (display c p))) (call-with-output-file (st= ring-append dir "/example.nar") (lambda (p) (write-file (string-append dir = "/example.out") p))) (call-with-output-file (string-append dir "/" (store-p= ath-hash-part o) ".narinfo") (lambda (p) (format p "StorePath: ~a\nURL: ~a\= nCompression: none\nNarSize: 1234\nNarHash: sha256:~a\nReferences: \nSystem= : ~a\nDeriver: ~a~%" o "example.nar" (call-with-input-file (string-append d= ir "/example.nar") (compose bytevector->nix-base32-string sha256 get-byteve= ctor-all)) (%current-system) (basename (derivation-file-name d))))) (set-bu= ild-options s #:use-substitutes? #t) (and (has-substitutes? s o) (build-der= ivations s (list d)) (equal? c (call-with-input-file o get-string-all))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "substitute, corrupt output hash" source-file: "tests/store.scm" source-line: 390 source-form: (test-assert "substitute, corrupt output hash" (let* ((s (op= en-connection)) (c "hello, world") (d (build-expression->derivation s "corr= upt-substitute" (quasiquote (mkdir %output)) #:guile-for-build (package-der= ivation s %bootstrap-guile (%current-system)))) (o (derivation->output-path= d)) (dir (and=3D> (getenv "GUIX_BINARY_SUBSTITUTE_URL") (compose uri-path = string->uri)))) (call-with-output-file (string-append dir "/nix-cache-info"= ) (lambda (p) (format p "StoreDir: ~a\nWantMassQuery: 0\n" (%store-prefix))= )) (call-with-output-file (string-append dir "/example.out") (lambda (p) (d= isplay "The contents here do not match C." p))) (call-with-output-file (str= ing-append dir "/example.nar") (lambda (p) (write-file (string-append dir "= /example.out") p))) (call-with-output-file (string-append dir "/" (store-pa= th-hash-part o) ".narinfo") (lambda (p) (format p "StorePath: ~a\nURL: ~a\n= Compression: none\nNarSize: 1234\nNarHash: sha256:~a\nReferences: \nSystem:= ~a\nDeriver: ~a~%" o "example.nar" (bytevector->nix-base32-string (sha256 = (string->utf8 c))) (%current-system) (basename (derivation-file-name d)))))= (set-build-options s #:use-substitutes? #t #:fallback? #f) (and (has-subst= itutes? s o) (guard (c ((nix-protocol-error? c) (pk (quote corrupt) c) (not= (zero? (nix-protocol-error-status c))))) (build-derivations s (list d)) #f= )))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "substitute --fallback" source-file: "tests/store.scm" source-line: 448 source-form: (test-assert "substitute --fallback" (let* ((s (open-connect= ion)) (t (random-text)) (d (build-expression->derivation s "substitute-me-n= ot" (quasiquote (call-with-output-file %output (lambda (p) (display (unquot= e t) p)))) #:guile-for-build (package-derivation s %bootstrap-guile (%curre= nt-system)))) (o (derivation->output-path d)) (dir (and=3D> (getenv "GUIX_B= INARY_SUBSTITUTE_URL") (compose uri-path string->uri)))) (call-with-output-= file (string-append dir "/nix-cache-info") (lambda (p) (format p "StoreDir:= ~a\nWantMassQuery: 0\n" (%store-prefix)))) (call-with-output-file (string-= append dir "/" (store-path-hash-part o) ".narinfo") (lambda (p) (format p "= StorePath: ~a\nURL: ~a\nCompression: none\nNarSize: 1234\nNarHash: sha256:0= mdqa9w1p6cmli6976v4wi0sw9r4p5prkj7lzfd1877wk11c9c73\nReferences: \nSystem: = ~a\nDeriver: ~a~%" o "does-not-exist.nar" (%current-system) (basename (deri= vation-file-name d))))) (set-build-options s #:use-substitutes? #t) (and (h= as-substitutes? s o) (guard (c ((nix-protocol-error? c) (set-build-options = s #:use-substitutes? #t #:fallback? #t) (and (build-derivations s (list d))= (equal? t (call-with-input-file o get-string-all))))) (build-derivations s= (list d)) #f)))) Test end: result-kind: fail actual-value: #f actual-error: (srfi-34 #) Test begin: test-name: "export/import several paths" source-file: "tests/store.scm" source-line: 498 source-form: (test-assert "export/import several paths" (let* ((texts (un= fold (cut >=3D <> 10) (lambda _ (random-text)) #{1+}# 0)) (files (map (cut = add-text-to-store %store "text" <>) texts)) (dump (call-with-bytevector-out= put-port (cut export-paths %store files <>)))) (delete-paths %store files) = (and (every (negate file-exists?) files) (let* ((source (open-bytevector-in= put-port dump)) (imported (import-paths %store source))) (and (equal? impor= ted files) (every file-exists? files) (equal? texts (map (lambda (file) (ca= ll-with-input-file file get-string-all)) files))))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "export/import paths, ensure topological order" source-file: "tests/store.scm" source-line: 518 source-form: (test-assert "export/import paths, ensure topological order"= (let* ((file0 (add-text-to-store %store "baz" (random-text))) (file1 (add-= text-to-store %store "foo" (random-text) (list file0))) (file2 (add-text-to= -store %store "bar" (random-text) (list file1))) (files (list file1 file2))= (dump1 (call-with-bytevector-output-port (cute export-paths %store (list f= ile1 file2) <>))) (dump2 (call-with-bytevector-output-port (cute export-pat= hs %store (list file2 file1) <>)))) (delete-paths %store files) (and (every= (negate file-exists?) files) (bytevector=3D? dump1 dump2) (let* ((source (= open-bytevector-input-port dump1)) (imported (import-paths %store source)))= (and (equal? imported (list file1 file2)) (every file-exists? files) (equa= l? (list file0) (references %store file1)) (equal? (list file1) (references= %store file2))))))) Test end: result-kind: pass actual-value: #t Test begin: test-name: "import corrupt path" source-file: "tests/store.scm" source-line: 540 source-form: (test-assert "import corrupt path" (let* ((text (random-text= )) (file (add-text-to-store %store "text" text)) (dump (call-with-bytevecto= r-output-port (cut export-paths %store (list file) <>)))) (delete-paths %st= ore (list file)) (let* ((index (quotient (bytevector-length dump) 4)) (byte= (bytevector-u8-ref dump index))) (bytevector-u8-set! dump index (logxor 25= 5 byte))) (and (not (file-exists? file)) (guard (c ((nix-protocol-error? c)= (pk (quote c) c) (and (not (zero? (nix-protocol-error-status c))) (string-= contains (nix-protocol-error-message c) "corrupt")))) (let* ((source (open-= bytevector-input-port dump)) (imported (import-paths %store source))) (pk (= quote corrupt-imported) imported) #f))))) Test end: result-kind: pass actual-value: 80 Test begin: test-name: "register-path" source-file: "tests/store.scm" source-line: 563 source-form: (test-assert "register-path" (let ((file (string-append (%st= ore-prefix) "/" (make-string 32 #\f) "-fake"))) (when (valid-path? %store f= ile) (delete-paths %store (list file))) (false-if-exception (delete-file fi= le)) (let ((ref (add-text-to-store %store "ref-of-fake" (random-text))) (dr= v (string-append file ".drv"))) (call-with-output-file file (cut display "T= his is a fake store item.\n" <>)) (register-path file #:references (list re= f) #:deriver drv) (and (valid-path? %store file) (equal? (references %store= file) (list ref)) (null? (valid-derivers %store file)) (null? (referrers %= store file)))))) Test end: result-kind: pass actual-value: #t Group end: store # of expected passes 26 # of unexpected failures 4 --=-=-= Content-Disposition: attachment; filename=test-suite.log Content-Transfer-Encoding: quoted-printable =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D GNU Guix 0.7: ./test-suite.log =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D # TOTAL: 29 # PASS: 21 # SKIP: 0 # XFAIL: 0 # FAIL: 8 # XPASS: 0 # ERROR: 0 .. contents:: :depth: 2 FAIL: tests/builders =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 1584, uid 1000 %%%% Starting test builders (Writing full log to "builders.log") ;;; (hello-drv # /home/nikita/guix/guix-= savannah/test-tmp/store/wla8cw27ddynlhvna178h4m0h21annhj-hello-2.8 8dcc320>) tests/builders.scm:85: FAIL gnu-build # of expected passes 2 # of unexpected failures 1 @ build-started /home/nikita/guix/guix-savannah/test-tmp/store/6i936lkbbphh= jg2j6w9xcs5d7b0z2nvb-hello-2.8.tar.gz.drv - i686-linux /home/nikita/guix/gu= ix-savannah/test-tmp/var/log/guix/drvs/6i//936lkbbphhjg2j6w9xcs5d7b0z2nvb-h= ello-2.8.tar.gz.drv.bz2 starting download of `/home/nikita/guix/guix-savannah/test-tmp/store/x3j6gj= 03yplxni5szwdp86lpk6f06002-hello-2.8.tar.gz' from `http://ftp.gnu.org/gnu/h= ello/hello-2.8.tar.gz'... =0Dhttp://ftp.gnu.org/.../hello-2.8.tar.gz 9.4% of 681.1 KiB=0Dhttp://ftp= .gnu.org/.../hello-2.8.tar.gz 18.8% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../= hello-2.8.tar.gz 28.2% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../hello-2.8.tar= .gz 37.6% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../hello-2.8.tar.gz 47.0% of= 681.1 KiB=0Dhttp://ftp.gnu.org/.../hello-2.8.tar.gz 56.4% of 681.1 KiB=0D= http://ftp.gnu.org/.../hello-2.8.tar.gz 65.8% of 681.1 KiB=0Dhttp://ftp.gn= u.org/.../hello-2.8.tar.gz 75.2% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../hel= lo-2.8.tar.gz 84.6% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../hello-2.8.tar.gz= 94.0% of 681.1 KiB=0Dhttp://ftp.gnu.org/.../hello-2.8.tar.gz 100.0% of 68= 1.1 KiB @ build-succeeded /home/nikita/guix/guix-savannah/test-tmp/store/6i936lkbbp= hhjg2j6w9xcs5d7b0z2nvb-hello-2.8.tar.gz.drv - killing process 1591 75 operations FAIL: tests/derivations =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 1606, uid 1000 accepted connection from pid 1606, uid 1000 accepted connection from pid 1606, uid 1000 accepted connection from pid 1606, uid 1000 8 operations 4 operations 4 operations %%%% Starting test derivations (Writing full log to "derivations.log") tests/derivations.scm:121: FAIL build derivation with 1 source tests/derivations.scm:139: FAIL derivation with local file as input tests/derivations.scm:172: FAIL fixed-output derivation tests/derivations.scm:187: FAIL fixed-output derivation: output paths are e= qual tests/derivations.scm:204: FAIL fixed-output derivation, recursive tests/derivations.scm:221: FAIL derivation with a fixed-output input tests/derivations.scm:255: FAIL multiple-output derivation tests/derivations.scm:276: FAIL multiple-output derivation, non-alphabetic = order ;;; (udrv # /home/nikita/guix= /guix-savannah/test-tmp/store/3x3pkv1av9i05qi30nlg9mbj9c4alz13-multiple-out= put-user 9e382a8>) tests/derivations.scm:310: FAIL user of multiple-output derivation tests/derivations.scm:343: FAIL derivation with #:references-graphs tests/derivations.scm:402: FAIL build derivation with coreutils tests/derivations.scm:432: FAIL build-expression->derivation without inputs tests/derivations.scm:445: FAIL build-expression->derivation and max-silent= -time tests/derivations.scm:459: FAIL build-expression->derivation and timeout tests/derivations.scm:479: FAIL derivation-prerequisites-to-build when outp= uts already present ;;; (() ("/home/nikita/guix/guix-savannah/test-tmp/store/57xz456d6c6x1sjwhk= 0g8vmgfqx5cc66-prereq-subst") () ()) tests/derivations.scm:551: FAIL build-expression->derivation with expressio= n returning #f tests/derivations.scm:566: FAIL build-expression->derivation with two outpu= ts tests/derivations.scm:585: FAIL build-expression->derivation with one input tests/derivations.scm:618: FAIL build-expression->derivation with modules tests/derivations.scm:633: FAIL build-expression->derivation: same fixed-ou= tput path tests/derivations.scm:654: FAIL build-expression->derivation with a fixed-o= utput input tests/derivations.scm:685: FAIL build-expression->derivation produces recur= sive fixed-output tests/derivations.scm:711: FAIL build-expression->derivation uses recursive= fixed-output tests/derivations.scm:733: FAIL build-expression->derivation with #:referen= ces-graphs ;;; (remapped # /home/nikita/guix/gui= x-savannah/test-tmp/store/f092142wzvixm61jgmy6y4h9ymnzwwm4-drv-to-remap 9e1= 2550>) tests/derivations.scm:765: FAIL map-derivation ;;; (remapped* # /home/nikita/guix/gu= ix-savannah/test-tmp/store/afk0xphhrc432gv02mn8i8symnx3hnzj-drv-to-remap 9e= a3140>) tests/derivations.scm:788: FAIL map-derivation, sources # of expected passes 10 # of unexpected failures 26 killing process 1612 killing process 1613 killing process 1614 killing process 1615 killing process 1616 killing process 1617 killing process 1618 killing process 1619 killing process 1620 killing process 1621 killing process 1622 killing process 1623 substitute-binary: warning: authentication and authorization of substitutes= disabled! killing process 1647 substitute-binary: warning: authentication and authorization of substitutes= disabled! killing process 1671 substitute-binary: warning: authentication and authorization of substitutes= disabled! killing process 1714 substitute-binary: warning: authentication and authorization of substitutes= disabled! killing process 1738 killing process 1739 killing process 1740 @ build-started /home/nikita/guix/guix-savannah/test-tmp/store/rwi9cp89bidw= qdq4fzjwsb598rl5g938-file-import.drv - i686-linux /home/nikita/guix/guix-sa= vannah/test-tmp/var/log/guix/drvs/rw//i9cp89bidwqdq4fzjwsb598rl5g938-file-i= mport.drv.bz2 @ build-succeeded /home/nikita/guix/guix-savannah/test-tmp/store/rwi9cp89bi= dwqdq4fzjwsb598rl5g938-file-import.drv - killing process 1742 killing process 1743 killing process 1744 killing process 1745 killing process 1746 killing process 1747 killing process 1748 killing process 1749 461 operations FAIL: tests/packages =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 1853, uid 1000 %%%% Starting test packages (Writing full log to "packages.log") ;;; (x (("b" #) ("b/a" #) ("c" #) ("d" #) ("d/x" "som= ething.drv"))) ;;; (fetch "./gnu/packages/bootstrap/i686-linux/guile-2.0.9.tar.xz" sha256 = #vu8(183 87 205 70 191 19 236 172 131 251 142 149 95 181 0 150 172 45 23 18= 7 97 12 168 235 129 111 41 48 42 0 168 70) #f "i686-linux") ;;; (snippet-drv # /home/nikita/gui= x/guix-savannah/test-tmp/store/ppj4xyyxs0ksqv2yzrxn6b3wahlnz066-with-snippe= t-0 98f16e0>) tests/packages.scm:144: FAIL package-source-derivation, snippet tests/packages.scm:215: FAIL trivial tests/packages.scm:233: FAIL trivial with local file as input tests/packages.scm:249: FAIL trivial with source tests/packages.scm:264: FAIL trivial with system-dependent input tests/packages.scm:342: FAIL GNU Make, bootstrap # of expected passes 15 # of unexpected failures 6 killing process 1859 killing process 1860 killing process 1861 killing process 1862 killing process 1863 killing process 1864 377 operations FAIL: tests/store =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 1898, uid 1000 accepted connection from pid 1898, uid 1000 1 operations accepted connection from pid 1898, uid 1000 6 operations ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /home/nikita/guix/guix-savannah/nix/scripts/list-runtime-roots ;;; compiled /home/nikita/guix/guix-savannah/test-tmp/var/1893/cache-1893/g= uile/ccache/2.0-LE-4-2.0/home/nikita/guix/guix-savannah/nix/scripts/list-ru= ntime-roots.go accepted connection from pid 1898, uid 1000 1 operations accepted connection from pid 1898, uid 1000 accepted connection from pid 1898, uid 1000 accepted connection from pid 1898, uid 1000 accepted connection from pid 1898, uid 1000 accepted connection from pid 1898, uid 1000 finding garbage collector roots... removing stale temporary roots file `/home/nikita/guix/guix-savannah/test-t= mp/var/1893/temproots/1903' determining live/dead paths... finding garbage collector roots... determining live/dead paths... finding garbage collector roots... determining live/dead paths... finding garbage collector roots... deleting unused links... killing process 1915 killing process 1916 killing process 1917 substitute-binary: warning: authentication and authorization of substitutes= disabled! substitute-binary: warning: authentication and authorization of substitutes= disabled! substitute-binary: warning: authentication and authorization of substitutes= disabled! @ substituter-started /home/nikita/guix/guix-savannah/test-tmp/store/93mw5q= 5z40vy7bx5ih716qvw65z4jh0a-substitute-me /home/nikita/guix/guix-savannah/ni= x/scripts/substitute-binary warning: authentication and authorization of substitutes disabled! downloading `/home/nikita/guix/guix-savannah/test-tmp/store/93mw5q5z40vy7bx= 5ih716qvw65z4jh0a-substitute-me' from `file:/home/nikita/guix/guix-savannah= /test-tmp/var/1893/substituter-data/example.nar' (0.0 MiB installed)... =0Dfile:///.../example.nar 100.0% of 0.2 KiB@ substituter-succeeded /home/n= ikita/guix/guix-savannah/test-tmp/store/93mw5q5z40vy7bx5ih716qvw65z4jh0a-su= bstitute-me substitute-binary: warning: authentication and authorization of substitutes= disabled! @ substituter-started /home/nikita/guix/guix-savannah/test-tmp/store/01zv3j= f92sxzrlb3k6x39nl1lc8ynffv-corrupt-substitute /home/nikita/guix/guix-savann= ah/nix/scripts/substitute-binary warning: authentication and authorization of substitutes disabled! downloading `/home/nikita/guix/guix-savannah/test-tmp/store/01zv3jf92sxzrlb= 3k6x39nl1lc8ynffv-corrupt-substitute' from `file:/home/nikita/guix/guix-sav= annah/test-tmp/var/1893/substituter-data/example.nar' (0.0 MiB installed)... =0Dfile:///.../example.nar 100.0% of 0.1 KiB@ substituter-failed /home/niki= ta/guix/guix-savannah/test-tmp/store/01zv3jf92sxzrlb3k6x39nl1lc8ynffv-corru= pt-substitute 0 hash mismatch in downloaded path `/home/nikita/guix/guix-sa= vannah/test-tmp/store/01zv3jf92sxzrlb3k6x39nl1lc8ynffv-corrupt-substitute':= expected 09ca7e4eaa6e8ae9c7d261167129184883644d07dfba7cbfbc4c8a2e08360d5b,= got eab43a6a0a8b0933e64a8746ab52ca90e61e3c5b316c59ed77c171c2b7b3e902 substitute-binary: warning: authentication and authorization of substitutes= disabled! @ substituter-started /home/nikita/guix/guix-savannah/test-tmp/store/j1zybb= qcipmzk89dih5lfv9klvnmhi28-substitute-me-not /home/nikita/guix/guix-savanna= h/nix/scripts/substitute-binary warning: authentication and authorization of substitutes disabled! downloading `/home/nikita/guix/guix-savannah/test-tmp/store/j1zybbqcipmzk89= dih5lfv9klvnmhi28-substitute-me-not' from `file:/home/nikita/guix/guix-sava= nnah/test-tmp/var/1893/substituter-data/does-not-exist.nar' (0.0 MiB instal= led)... guix substitute-binary: error: open-file: No such file or directory: "/home= /nikita/guix/guix-savannah/test-tmp/var/1893/substituter-data/does-not-exis= t.nar" @ substituter-failed /home/nikita/guix/guix-savannah/test-tmp/store/j1zybbq= cipmzk89dih5lfv9klvnmhi28-substitute-me-not 256 fetching path `/home/nikita= /guix/guix-savannah/test-tmp/store/j1zybbqcipmzk89dih5lfv9klvnmhi28-substit= ute-me-not' failed with exit code 1 @ substituter-started /home/nikita/guix/guix-savannah/test-tmp/store/j1zybb= qcipmzk89dih5lfv9klvnmhi28-substitute-me-not /home/nikita/guix/guix-savanna= h/nix/scripts/substitute-binary warning: authentication and authorization of substitutes disabled! downloading `/home/nikita/guix/guix-savannah/test-tmp/store/j1zybbqcipmzk89= dih5lfv9klvnmhi28-substitute-me-not' from `file:/home/nikita/guix/guix-sava= nnah/test-tmp/var/1893/substituter-data/does-not-exist.nar' (0.0 MiB instal= led)... guix substitute-binary: error: open-file: No such file or directory: "/home= /nikita/guix/guix-savannah/test-tmp/var/1893/substituter-data/does-not-exis= t.nar" @ substituter-failed /home/nikita/guix/guix-savannah/test-tmp/store/j1zybbq= cipmzk89dih5lfv9klvnmhi28-substitute-me-not 256 fetching path `/home/nikita= /guix/5 operations 4 operations 7 operations 27 operations 5 operations guix-savannah/test-tmp/store/j1zybbqcipmzk89dih5lfv9klvnmhi28-substitute-me= -not' failed with exit code 1 killing process 2221 finding garbage collector roots... deleting unused links... finding garbage collector roots... deleting unused links... finding garbage collector roots... deleting unused links... finding garbage collector roots... deleting unused links... %%%% Starting test store (Writing full log to "store.log") tests/store.scm:199: FAIL derivers tests/store.scm:256: FAIL log-file, derivation tests/store.scm:268: FAIL log-file, output file name ;;; (spi (#< path: "/home/nikita/guix/guix-savannah/test-tmp= /store/rrv50bvj6cp4zfvknjn5s2cqra6j3giw-guile-bootstrap-2.0" deriver: "/hom= e/nikita/guix/guix-savannah/test-tmp/store/hmb24h1acglik6lyqp4ggj5zgqmxd1hw= -guile-bootstrap-2.0.drv" refs: () dl-size: 0 nar-size: 1234>)) ;;; (corrupt #) tests/store.scm:448: FAIL substitute --fallback ;;; (c #) # of expected passes 26 # of unexpected failures 4 142 operations FAIL: tests/monads =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 2301, uid 1000 %%%% Starting test monads (Writing full log to "monads.log") tests/monads.scm:114: FAIL mlet* + derivation-expression tests/monads.scm:132: FAIL text-file* # of expected passes 10 # of unexpected failures 2 killing process 2307 killing process 2308 192 operations FAIL: tests/gexp =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D accepted connection from pid 2323, uid 1000 Unrecognized switch --no-auto-compiUsage: guile [OPTION]... [FILE]... Evaluate code with Guile, interactively or from a script. [-s] FILE load source code from FILE, and exit -c EXPR evalute expression EXPR, and exit -- stop scanning arguments; run interactively The above switches stop argument processing, and pass all remaining arguments as the value of (command-line). If FILE begins with `-' the -s switch is mandatory. -L DIRECTORY add DIRECTORY to the front of the module load path -C DIRECTORY like -L, but for compiled files -x EXTENSION add EXTENSION to the front of the load extensions -l FILE load source code from FILE -e FUNCTION after reading script, apply FUNCTION to command line arguments --language=3DLANG change language; default: scheme -ds do -s script at this point --debug start with the "debugging" VM engine --no-debug start with the normal VM engine (backtraces but no breakpoints); default is --debug for interactive use, but not for `-s' and `-c'. --auto-compile compile source files automatically --fresh-auto-compile invalidate auto-compilation cache --no-auto-compile disable automatic source file compilation; default is to enable auto-compilation of source files. --listen[=3DP] listen on a local port or a path for REPL clients; if P is not given, the default is local port 37146 -q inhibit loading of user init file --use-srfi=3DLS load SRFI modules for the SRFIs in LS, which is a list of numbers like "2,13,14" -h, --help display this help and exit -v, --version display version information and exit \ read arguments from following script lines Report bugs to: bug-guile@gnu.org GNU Guile home page: General help using GNU software: %%%% Starting test gexp (Writing full log to "gexp.log") tests/gexp.scm:214: FAIL gexp->script # of expected passes 12 # of unexpected failures 1 348 operations FAIL: tests/guix-package =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D + guix package --version guix package (GNU Guix) 0.7 Copyright (C) 2014 the Guix authors License GPLv3+: GNU GPL version 3 or later This is free software: you are free to change and redistribute it. There is NO WARRANTY, to the extent permitted by law. + profile=3Dt-profile-2838 + rm -f t-profile-2838 + trap 'rm "$profile" "$profile-"[0-9]* ; rm -rf t-home-2838' EXIT + guix package --bootstrap -e + guix package: error: expression "+" does not evaluate to a package + true + guix package --bootstrap -p t-profile-2838 -i guile-bootstrap accepted connection from pid 2848, uid 1000 The following package will be installed: guile-bootstrap-2.0 out /home/nikita/guix/guix-savannah/test-tmp/store/r= rv50bvj6cp4zfvknjn5s2cqra6j3giw-guile-bootstrap-2.0 substitute-binary: warning: authentication and authorization of substitutes= disabled! 1 package in profile + test -L t-profile-2838 + test -L t-profile-2838-1-link + test -f t-profile-2838/bin/guile + guix gc --list-live ++ readlink t-profile-2838-1-link + grep /home/nikita/guix/guix-savannah/test-tmp/store/xj1dfi04gbs454f86fdnv= 2cp1r8zmf7s-profile accepted connection from pid 2873, uid 1000 finding garbage collector roots... cannot read potential root `/home/nikita/guix/guix-savannah/test-tmp/var/28= 33/manifests' ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /home/nikita/guix/guix-savannah/nix/scripts/list-runtime-roots ;;; compiled /home/nikita/guix/guix-savannah/test-tmp/var/2833/cache-2833/g= uile/ccache/2.0-LE-4-2.0/home/nikita/guix/guix-savannah/nix/scripts/list-ru= ntime-roots.go determining live/dead paths... /home/nikita/guix/guix-savannah/test-tmp/store/xj1dfi04gbs454f86fdnv2cp1r8z= mf7s-profile + guix package --bootstrap -p t-profile-2838 -i guile-bootstrap 1 operations accepted connection from pid 2880, uid 1000 nothing to be done 8 operations + test -L t-profile-2838 + test -L t-profile-2838-1-link + test -f t-profile-2838-2-link + test -f t-profile-2838/bin/guile + guix package --search-paths -p t-profile-2838 ++ guix package --search-paths -p t-profile-2838 ++ wc -l + test 0 =3D 0 + guile -c '(getaddrinfo "www.gnu.org" "80" AI_NUMERICSERV)' + boot_make=3D'(@@ (gnu packages base) gnu-make-boot0)' ++ guix build -e '(@@ (gnu packages base) gnu-make-boot0)' ++ grep -v -e -debug accepted connection from pid 2892, uid 1000 substitute-binary: warning: authentication and authorization of substitutes= disabled! The following derivations will be built: /home/nikita/guix/guix-savannah/test-tmp/store/f32md8fdc0q68jpcl4246ix36= s4flxbj-make-boot0-4.0.drv /home/nikita/guix/guix-savannah/test-tmp/store/732ssfj15pszbc2kqkx9sbcq6= 58g6rvy-make-4.0.tar.xz.drv killing process 2998 guix build: error: build failed: closing file descriptor 1769537584: Bad fi= le descriptor 80 operations + boot_make_drv=3D + rm t-profile-2838 t-profile-2838-1-link + rm -rf t-home-2838 FAIL: tests/guix-register =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D + guix-register --version guix-register (GNU Guix) 0.7 + new_store=3Dt-register-3255 + closure=3Dt-register-closure-3255 + rm -rf t-register-3255 + exit_hook=3D: + trap 'chmod -R +w t-register-3255 ; rm -rf t-register-3255 t-register-clo= sure-3255 ; $exit_hook' EXIT + new_file=3D/home/nikita/guix/guix-savannah/test-tmp/store/aaaaaaaaaaaaaaa= aaaaaaaaaaaaaaaaa-guix-register-3255 + echo 'Fake store file to test registration.' + guix-register + guile -c ' (use-modules (guix store)) (define s (open-connection)) (exit (and (valid-path? s "/home/nikita/guix/guix-savannah/test-tmp/stor= e/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-guix-register-3255") (null? (references s "/home/nikita/guix/guix-savannah/test-tm= p/store/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-guix-register-3255")) (pair? (delete-paths s (list "/home/nikita/guix/guix-savannah= /test-tmp/store/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa-guix-register-3255")))))' accepted connection from pid 3263, uid 1000 ;;; note: auto-compilation is enabled, set GUILE_AUTO_COMPILE=3D0 ;;; or pass the --no-auto-compile argument to disable. ;;; compiling /home/nikita/guix/guix-savannah/nix/scripts/list-runtime-roots ;;; compiled /home/nikita/guix/guix-savannah/test-tmp/var/3250/cache-3250/g= uile/ccache/2.0-LE-4-2.0/home/nikita/guix/guix-savannah/nix/scripts/list-ru= ntime-roots.go finding garbage collector roots... cannot read potential root `/home/nikita/guix/guix-savannah/test-tmp/var/32= 50/manifests' deleting `/home/nikita/guix/guix-savannah/test-tmp/store/aaaaaaaaaaaaaaaaaa= aaaaaaaaaaaaaa-guix-register-3255' deleting `/home/nikita/guix/guix-savannah/test-tmp/store/trash' deleting unused links... note: currently hard linking saves -0.00 MiB 3 operations + mkdir -p t-register-3255//gnu/store ++ cd t-register-3255//gnu/store ++ pwd + new_store_dir=3D/home/nikita/guix/guix-savannah/t-register-3255/gnu/store ++ cd t-register-3255 ++ pwd + new_store=3D/home/nikita/guix/guix-savannah/t-register-3255 ++ guix build guile-bootstrap accepted connection from pid 3270, uid 1000 substitute-binary: warning: authentication and authorization of substitutes= disabled! + to_copy=3D/home/nikita/guix/guix-savannah/test-tmp/store/rrv50bvj6cp4zfvk= njn5s2cqra6j3giw-guile-bootstrap-2.0 13 operations + cp -r /home/nikita/guix/guix-savannah/test-tmp/store/rrv50bvj6cp4zfvknjn5= s2cqra6j3giw-guile-bootstrap-2.0 /home/nikita/guix/guix-savannah/t-register= -3255/gnu/store ++ basename /home/nikita/guix/guix-savannah/test-tmp/store/rrv50bvj6cp4zfvk= njn5s2cqra6j3giw-guile-bootstrap-2.0 + copied=3D/home/nikita/guix/guix-savannah/t-register-3255/gnu/store/rrv50b= vj6cp4zfvknjn5s2cqra6j3giw-guile-bootstrap-2.0 + cat + guix-register -p /home/nikita/guix/guix-savannah/t-register-3255 + guix-register --prefix /home/nikita/guix/guix-savannah/t-register-3255 t-= register-closure-3255 + NIX_IGNORE_SYMLINK_STORE=3D1 + NIX_STORE_DIR=3D/home/nikita/guix/guix-savannah/t-register-3255/gnu/store + NIX_STATE_DIR=3D/home/nikita/guix/guix-savannah/t-register-3255/usr/local= /var + NIX_LOG_DIR=3D/home/nikita/guix/guix-savannah/t-register-3255/usr/local/v= ar/log/guix + NIX_DB_DIR=3D/home/nikita/guix/guix-savannah/t-register-3255/usr/local/va= r/guix/db + export NIX_IGNORE_SYMLINK_STORE NIX_STORE_DIR NIX_STATE_DIR NIX_LOG_DIR N= IX_DB_DIR + subdaemon_pid=3D3300 + exit_hook=3D'kill 3300' + guix-daemon --disable-chroot ++ basename /home/nikita/guix/guix-savannah/test-tmp/store/rrv50bvj6cp4zfvk= njn5s2cqra6j3giw-guile-bootstrap-2.0 + final_name=3D/gnu/store/rrv50bvj6cp4zfvknjn5s2cqra6j3giw-guile-bootstrap-= 2.0 + guile -c ' (use-modules (guix store)) (define s (open-connection)) (exit (equal? (list "/home/nikita/guix/guix-savannah/t-register-3255/gnu= /store/rrv50bvj6cp4zfvknjn5s2cqra6j3giw-guile-bootstrap-2.0") (dead-paths s= )))' accepted connection from pid 3302, uid 1000 finding garbage collector roots... cannot read potential root `/home/nikita/guix/guix-savannah/t-register-3255= /usr/local/var/manifests' determining live/dead paths... 1 operations + type -P sqlite3 /usr/local/bin/sqlite3 + echo 'select * from ValidPaths where path=3D"/gnu/store/rrv50bvj6cp4zfvkn= jn5s2cqra6j3giw-guile-bootstrap-2.0";' + sqlite3 /home/nikita/guix/guix-savannah/t-register-3255/usr/local/var/gui= x/db/db.sqlite SQLite header and source version mismatch 2011-11-01 00:52:41 c7c6050ef060877ebe77b41d959e9df13f8c9b5e 2013-09-03 17:11:13 7dd4968f235d6e1ca9547cda9cf3bd570e1609ef + chmod -R +w t-register-3255 + rm -rf t-register-3255 t-register-closure-3255 + kill 3300 --=-=-=-- --==-=-= Content-Type: application/pgp-signature -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.4.10 (GNU/Linux) iQIcBAEBAgAGBQJTar5PAAoJEM+IQzI9IQ38D28P/30wMIM+ynYUrt9qDn8nv298 Var16TAATrE1kPppjUO/jxSy4KWago3rzVYFZSZMTY0iMw8Mu9jiLBfNyEThlAbH TOdvGtoDBo9Ov7uqWAQOnD99T4tFAvALh5hqRGC2/bGj0zn1lNgryMgIIEEvqJDt i/CkdlLrdJR00G886K/revBBIMvaePFueOj5dKMqeyzm12k8lszaBeoh2zWFFqXc oNNlp23ghqil8d3C6tU1KkjBESmRFsY1HNr8hs20/+1nWEyXlxJhfaBdFZlIIww2 Di6qURak4lajsSkqshMSzyeb6G6GghSsUPKokd3uIBZdM2zVz7Ux3ztmakTVyQ3B Bls2V8rOywaddv/ngb2rJR9ziu5qKjcIs6jQMWdU2mE6lPs4uFIAzA1tKXjVklL4 P0hnw5YP3nHVDLI2+KSqVnFTJ8v7WvfRPLPsuB7J+1slTLa6WJF0wjq2WFpfoqRf XJ4uyWq6W9GWrS2TDekxA5b+sfqMVwVtbZsuRYs4ecJjsYs7cZjwDa8jmAQTOsgq 7OJqVGcpainsA+FE8Nul8eymcYzIPbI1o671FJT9ocFnavl5f8PONzE6tyBbFQTH FNSDw59bcdy8lHU9aUAGrBGJU3BYIosdv64s1/Qf4z/ZXCiFhR1rB0o+TiIMzZwd EPk0r03A1SfPa0zlOULi =9FVO -----END PGP SIGNATURE----- --==-=-=--