Re: master: FAIL: tests/store.scm

[Ludovic Courtès]

Nikita Karetnikov <address@hidden> skribis:

>>> Which log files would you like to see?
>
>> The SRFI-64 $top_builddir/*.log files, and $top_builddir/test-suite.log.
>
> $ git rev-parse HEAD
> 6f58d582432fe46c163f61ddf8f653584f4f7be8
>
> FAIL: tests/store.scm
> FAIL: tests/guix-build.sh
> FAIL: tests/guix-register.sh

> Test begin:
>   test-name: "log-file, derivation"
>   source-file: "tests/store.scm"
>   source-line: 206
>   source-form: (test-assert "log-file, derivation" (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 (quasiquote (("foo" unquote (random-text)))) 
> #:inputs (quasiquote (((unquote b)) ((unquote s))))))) (and 
> (build-derivations %store (list d)) (file-exists? (pk (log-file %store 
> (derivation-file-name d)))))))
> Test end:
>   result-kind: fail
>   actual-value: #f
>   actual-error: (wrong-type-arg "stat" "Wrong type argument in position ~A 
> (expecting ~A): ~S" (1 "open file port" #f) (#f))
> Test begin:
>   test-name: "log-file, output file name"
>   source-file: "tests/store.scm"
>   source-line: 218
>   source-form: (test-assert "log-file, output file name" (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 (quasiquote (("foo" unquote (random-text)))) 
> #:inputs (quasiquote (((unquote b)) ((unquote s)))))) (o 
> (derivation->output-path d))) (and (build-derivations %store (list d)) 
> (file-exists? (pk (log-file %store o))) (string=? (log-file %store 
> (derivation-file-name d)) (log-file %store o)))))
> Test end:
>   result-kind: fail
>   actual-value: #f
>   actual-error: (wrong-type-arg "stat" "Wrong type argument in position ~A 
> (expecting ~A): ~S" (1 "open file port" #f) (#f))

These two failures are because the ‘test-tmp’ directory predates the
nix → guix change in commit f5768afa333bbc8167ef2e33db44c9bb64bef0be.

An annoyance, but that should be fixed by either “rm -rf test-tmp &&
make check”, or “cd test-tmp/var/log && mv nix guix”.

Can you confirm?

[...]

> ++ guix build --log-file 
> /home/tester/guix-MASTER/test-tmp/store/hsmxb8q6dybsb7qm7g4hr28l5kngvly6-guile-bootstrap-2.0.drv
> accepted connection from pid 23039, uid 1000
> guix build: error: no build log for 
> '/home/tester/guix-MASTER/test-tmp/store/hsmxb8q6dybsb7qm7g4hr28l5kngvly6-guile-bootstrap-2.0.drv'
> + log=

This is the same problem (tests/guix-build.sh).

> + type -P sqlite3
> /nix/var/nix/profiles/default/guix-profile/bin/sqlite3
> + echo 'select * from ValidPaths where 
> path="/gnu/store/r5a3g247wzcvyap67jhk2f1hbhsqajw0-guile-bootstrap-2.0";'
> + sqlite3 /home/tester/guix-MASTER/t-register-24008/nix/var/nix/db/db.sqlite
> Error: near line 1: database is locked
> + chmod -R +w t-register-24008
> + rm -rf t-register-24008 t-register-closure-24008
> + kill 24053

I don’t know what this means.

Could this be a version mismatch between the ‘sqlite3’ command above and
libsqlite guix-register is linked against?

Thanks for the report!

Ludo’.