From mboxrd@z Thu Jan 1 00:00:00 1970 From: ludo@gnu.org (Ludovic =?UTF-8?Q?Court=C3=A8s?=) Subject: bug#30868: test-suite fails: publish.scm Date: Thu, 22 Mar 2018 12:56:44 +0100 Message-ID: <87tvt8gw77.fsf@gnu.org> References: <73b813f2-da13-8432-0774-965efbe2c2e3@uni-bremen.de> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:45420) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1eyyqB-0002Sz-UZ for bug-guix@gnu.org; Thu, 22 Mar 2018 07:57:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1eyyq6-0003zU-DC for bug-guix@gnu.org; Thu, 22 Mar 2018 07:57:08 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:38983) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1eyyq6-0003zC-8a for bug-guix@gnu.org; Thu, 22 Mar 2018 07:57:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1eyyq5-0007hs-WD for bug-guix@gnu.org; Thu, 22 Mar 2018 07:57:02 -0400 Sender: "Debbugs-submit" Resent-To: bug-guix@gnu.org Resent-Message-ID: In-Reply-To: <73b813f2-da13-8432-0774-965efbe2c2e3@uni-bremen.de> (Martin Castillo's message of "Tue, 20 Mar 2018 00:48:10 +0100") List-Id: Bug reports for GNU Guix List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-guix-bounces+gcggb-bug-guix=m.gmane.org@gnu.org Sender: "bug-Guix" To: Martin Castillo Cc: 30868-done@debbugs.gnu.org Hello Martin, Martin Castillo 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) > + (=3D (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/nz0wvppdyr4n5sgs3b89j6= 82sksqcb-with-log.drv.bz2") > + (2)) > result: FAIL Should be fixed in 04d2a16c4ffd2f3ddfbaf3848093424228e7d918. Thanks, Ludo=E2=80=99.