bug#30868: test-suite fails: publish.scm

[Ludovic Courtès]

Hello Martin,

Martin Castillo <address@hidden> skribis:

> test-name: /log/NAME
> location: /home/mcd/guix/tests/publish.scm:459
> source:
> + (test-equal
> +   "/log/NAME"
> +   `(200 #t application/x-bzip2)
> +   (let ((drv (run-with-store
> +                %store
> +                (gexp->derivation
> +                  "with-log"
> +                  (gexp (call-with-output-file
> +                          (ungexp output)
> +                          (lambda (port)
> +                            (display
> +                              "Hello, build log!"
> +                              (current-error-port))
> +                            (display "" port))))))))
> +     (build-derivations %store (list drv))
> +     (let* ((response
> +              (http-get
> +                (publish-uri
> +                  (string-append
> +                    "/log/"
> +                    (basename (derivation->output-path drv))))
> +                #:decode-body?
> +                #f))
> +            (base (basename (derivation-file-name drv)))
> +            (log (string-append
> +                   (dirname %state-directory)
> +                   "/log/guix/drvs/"
> +                   (string-take base 2)
> +                   "/"
> +                   (string-drop base 2)
> +                   ".bz2")))
> +       (list (response-code response)
> +             (= (response-content-length response)
> +                (stat:size (stat log)))
> +             (first (response-content-type response))))))
> expected-value: (200 #t application/x-bzip2)
> actual-value: #f
> actual-error:
> + (system-error
> +   "stat"
> +   "~A: ~S"
> +   ("No such file or directory"
> +    
> "/home/mcd/guix/test-tmp/var/log/guix/drvs/b7/nz0wvppdyr4n5sgs3b89j682sksqcb-with-log.drv.bz2")
> +   (2))
> result: FAIL

Should be fixed in 04d2a16c4ffd2f3ddfbaf3848093424228e7d918.

Thanks,
Ludo’.