GNU bug report logs - #30868
test-suite fails: publish.scm

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 30868 in the body.
You can then email your comments to 30868 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Martin Castillo <castilma <at> uni-bremen.de>
To: bug-guix <at> gnu.org
Subject: test-suite fails: publish.scm
Date: Tue, 20 Mar 2018 00:48:10 +0100

[Message part 1 (text/plain, inline)]

make check TESTS=tests/publish.scm
results in the attached log

-- 
GPG: 7FDE 7190 2F73 2C50 236E  403D CC13 48F1 E644 08EC

[test-suite.log (text/x-log, attachment)]

[signature.asc (application/pgp-signature, attachment)]

Message #10 received at 30868-done <at> debbugs.gnu.org (full text, mbox):

From: ludo <at> gnu.org (Ludovic Courtès)
To: Martin Castillo <castilma <at> uni-bremen.de>
Cc: 30868-done <at> debbugs.gnu.org
Subject: Re: bug#30868: test-suite fails: publish.scm
Date: Thu, 22 Mar 2018 12:56:44 +0100

Hello Martin,

Martin Castillo <castilma <at> uni-bremen.de> 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’.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.