bug#17935: make check failed

[Ludovic Courtès]

Alex Kost <address@hidden> skribis:

>  525: 0 [add-text-to-store # "guile-bootstrap-2.0.drv" ...]
>
> guix/store.scm:525:9: In procedure add-text-to-store:
> guix/store.scm:525:9: Throw to key `srfi-34' with args `(#<condition 
> &nix-protocol-error [message: "derivation 
> `/home/alexx/src/guix/test-tmp/store/kaz0wkisszxrjh38znhgks2pc2g7dqgh-guile-bootstrap-2.0.drv'
>  has incorrect output 
> `/media/storage/src/guix/test-tmp/store/ym7nnqd4yqk3mn8pg52d19xyy2j3hz54-guile-bootstrap-2.0',
>  should be 
> `/home/alexx/src/guix/test-tmp/store/zlj0z1dpwl2qccb56rwgdk3k8qnwwaz8-guile-bootstrap-2.0'"
>  status: 1] 9529090>)'.

Can you confirm that the output of “sha1sum
gnu/packages/bootstrap/i686-linux/*” is (from our IRC discussion, it
seems you’re on i686-linux):

--8<---------------cut here---------------start------------->8---
87ebb7ed64a62467bae8afd60c30146d29b974dd  gnu/packages/bootstrap/i686-linux/bash
b0122cf4cf16e2b8a471163550178527b0306586  
gnu/packages/bootstrap/i686-linux/guile-2.0.9.tar.xz
9df288907e9031e6cf1db6b3bdaf08c956da28da  
gnu/packages/bootstrap/i686-linux/mkdir
59b06438f6f673f3b7311277a256d164cb174337  gnu/packages/bootstrap/i686-linux/tar
0cfe1ecb8916c9e515c5f844671039a7fe76d261  gnu/packages/bootstrap/i686-linux/xz
--8<---------------cut here---------------end--------------->8---

Could you try running this command:

  ./test-env guix build guile-bootstrap

Assuming it fails as above, could you apply the patch below, run the
command again, and send its standard output?

diff --git a/guix/derivations.scm b/guix/derivations.scm
index 5ca516a..eb758b1 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -701,7 +701,7 @@ derivations where the costs of data transfers would 
outweigh the benefits."
                                    (derivation->string drv)
                                    (map derivation-input-path
                                         inputs))))
-      (set-file-name drv file))))
+      (pk 'debug-drv (set-file-name drv file)))))
 
 (define* (map-derivation store drv mapping
                          #:key (system (%current-system)))

Thanks in advance!

Ludo’.