unofficial mirror of bug-guix@gnu.org 
 help / color / mirror / code / Atom feed
From: Konrad Hinsen <konrad.hinsen@fastmail.net>
To: 47239@debbugs.gnu.org
Subject: bug#47239: Test failure in tests/publish.scm with commit 1955ef93b76e51cab5bed4c90f7eb9df7035355a
Date: Thu, 18 Mar 2021 16:05:33 +0100	[thread overview]
Message-ID: <m1sg4smria.fsf@ordinateur-de-catherine--konrad.home> (raw)

[-- Attachment #1: Type: text/plain, Size: 265 bytes --]

Dear Guix Gurus,

I am trying to compile Guix (commit
1955ef93b76e51cab5bed4c90f7eb9df7035355a) from source, on a computer
running Ubuntu 20.04 with Guix added via a binary installation.  I get
one test failure, whose test-suite.log is attached.

Cheers,
  Konrad.

[-- Attachment #2: test-suite.log --]
[-- Type: text/plain, Size: 10529 bytes --]

========================================
   GNU Guix UNKNOWN: ./test-suite.log
========================================

# TOTAL: 28
# PASS:  27
# SKIP:  0
# XFAIL: 0
# FAIL:  1
# XPASS: 0
# ERROR: 0

.. contents:: :depth: 2

FAIL: tests/publish
===================


;;; (wait-for-file "/tmp/guix-directory.nlpLZB/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item.narinfo")
test-name: with cache
location: /home/hinsen/src/guix/tests/publish.scm:417
source:
+ (test-equal
+   "with cache"
+   (list #t
+         `(("StorePath" unquote %item)
+           ("URL"
+            unquote
+            (string-append "nar/gzip/" (basename %item)))
+           ("Compression" . "gzip"))
+         200
+         #t
+         #t
+         404)
+   (call-with-temporary-directory
+     (lambda (cache)
+       (let ((thread
+               (with-separate-output-ports
+                 (call-with-new-thread
+                   (lambda ()
+                     (guix-publish
+                       "--port=6797"
+                       "-C2"
+                       (string-append "--cache=" cache)
+                       "--cache-bypass-threshold=0"))))))
+         (wait-until-ready 6797)
+         (let* ((base "http://localhost:6797/")
+                (part (store-path-hash-part %item))
+                (url (string-append base part ".narinfo"))
+                (nar-url
+                  (string-append base "nar/gzip/" (basename %item)))
+                (cached
+                  (string-append
+                    cache
+                    "/gzip/"
+                    (basename %item)
+                    ".narinfo"))
+                (nar (string-append
+                       cache
+                       "/gzip/"
+                       (basename %item)
+                       ".nar"))
+                (response (http-get url)))
+           (and (= 404 (response-code response))
+                (match (assq-ref
+                         (response-headers response)
+                         'cache-control)
+                       ((((quote max-age) . ttl)) (< ttl 3600)))
+                (wait-for-file cached)
+                (= 420 (stat:perms (lstat cached)))
+                (= 420 (stat:perms (lstat nar)))
+                (let* ((body (http-get-port url))
+                       (compressed (http-get nar-url))
+                       (uncompressed
+                         (http-get
+                           (string-append base "nar/" (basename %item))))
+                       (narinfo (recutils->alist body)))
+                  (list (file-exists? nar)
+                        (filter
+                          (lambda (item)
+                            (match item
+                                   (("Compression" . _) #t)
+                                   (("StorePath" . _) #t)
+                                   (("URL" . _) #t)
+                                   (_ #f)))
+                          narinfo)
+                        (response-code compressed)
+                        (= (response-content-length compressed)
+                           (stat:size (stat nar)))
+                        (= (string->number (assoc-ref narinfo "FileSize"))
+                           (stat:size (stat nar)))
+                        (response-code uncompressed)))))))))
expected-value: (#t (("StorePath" . "/home/hinsen/src/guix/test-tmp/store/892j9b0gqgbj4a7sv40jif3yyv25sm90-item") ("URL" . "nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item") ("Compression" . "gzip")) 200 #t #t 404)
actual-value: #f
result: FAIL


;;; (wait-for-file "/tmp/guix-directory.8sKoZA/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item.narinfo")

;;; (narinfo/gzip+lzip (("StorePath" . "/home/hinsen/src/guix/test-tmp/store/892j9b0gqgbj4a7sv40jif3yyv25sm90-item") ("URL" . "nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item") ("Compression" . "gzip") ("FileSize" . "86") ("URL" . "nar/lzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item") ("Compression" . "lzip") ("FileSize" . "99") ("NarHash" . "sha256:1xngcmsdkdvaycaqjfzvq4gr3gib56p2l8illglnsqzhpss47pxz") ("NarSize" . "120") ("References" . "yfwmjazc6d4grdr7gd05a088s5zi46fr-ref") ("Signature" . "1;ubuntu;KHNpZ25hdHVyZSAKIChkYXRhIAogIChmbGFncyBwa2NzMSkKICAoaGFzaCBzaGEyNTYgIzc4QzQxRUY4RDFEQ0JDMjdFNzBFMTI3NDExMzY4QzQ3MDQ1RjBDNEREMjBCMzdDMTBGQzA3MUYwM0VCMjg1NEYjKQogICkKIChzaWctdmFsIAogIChyc2EgCiAgIChzICMyODk3NjI1MjE2OUM5RjhCQjQwNzUxN0NGOUNGMTQ2N0E2NjYxRDg5MzYwNjU0N0Y0ODE2MDZGRTkwN0VBRDA4NzBDOUE3NkFCMjBBQUU1NzA1RkVBQjMyMTU3OTJBQzU0OEFBMjYzOEU1OUY1QTU4NzZDQTgyNzM3Mzk4MDFGMUMwNEU1NEZBNkU5RTI5MDhFQzk3MzYyM0NFNjAyOEIwNURFNDM5MTQ2QTVCRDU1NTQ2RTlBNTBGN0I0MzIzODk1NjhDQTlGNkEwNjUyRThEMjJEQjVEMDk5ODAxQTgxQTBDRjRCMTBCQjZFMUM3OTc0MTQxNUJGMTFENjcyQzY0IykKICAgKQogICkKIChwdWJsaWMta2V5IAogIChyc2EgCiAgIChuICMwMEMxRjc2NDA2OUY1NEZGRTkzQTEyNkIwMjMyODkwM0U5ODRFNEFFM0FGNkRGNDAyQjVCNkIzOTA3OTExQjg4QzM4NUYxQkE3NkEwMDJFQzlERUExMDlBNTIyOEVGMEU2MkVFMzFBMDZEMUE1ODYxQ0FCNDc0RjZDODU3QUM2NkVCNjVBMTkwNUYyNUJCQTE4Njk1NzlFNzNBM0I3RkVEMTNBRjVBMTY2NzMyNkY4OENERkMyRkYyNEIwM0MxNEZEMTM4NEFBN0U3M0NBODk1NzI4ODBCNjA2RTNBOTc0RTE1MzQ3OTYzRkM3QjYzNzg1NzQ5MzZBNDc1ODBEQkNCNDUjKQogICAoZSAjMDEwMDAxIykKICAgKQogICkKICkK")))

;;; (wait-for-file "/tmp/guix-directory.EwWvnB/none/cg2pd24cvpc6v4jh7ckki2n13q1zchni-fake-compressed-thing.tar.gz.narinfo")

;;; (wait-for-file "/tmp/guix-directory.3LxNtz/gzip/ram48mn56vgmfnr8km850kzs5syjfhbs-random.narinfo")
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6789
using 'none' compression method, level 0
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6799
using 'gzip' compression method, level 5
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6790
using 'lzip' compression method, level 3
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6793
using 'gzip' compression method, level 2
using 'lzip' compression method, level 2
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6798
using 'none' compression method, level 0
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6797
using 'gzip' compression method, level 2
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6794
using 'gzip' compression method, level 2
using 'lzip' compression method, level 2
random seed for tests: 1616093970
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6796
using 'gzip' compression method, level 2
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6795
using 'gzip' compression method, level 3
finding garbage collector roots...
removing stale temporary roots file `/home/hinsen/src/guix/test-tmp/var/49285/temproots/49300'
deleting unused links...

;;; (response #<<response> version: (1 . 1) code: 200 reason-phrase: "OK" headers: ((content-length . 1270) (content-type application/x-nix-narinfo (charset . "utf-8"))) port: #<closed: file 7f987e9bbbd0>>)

;;; (r1 #<<response> version: (1 . 1) code: 200 reason-phrase: "OK" headers: ((content-type application/x-nix-archive (charset . "ISO-8859-1"))) port: #<closed: file 7f987e9bb700>>)

;;; (wait-for-file "/tmp/guix-directory.KRX0xy/gzip/7m9anpjflf65fiaq98vr1q0c98kyx9kg-random.narinfo")

;;; (r2 #<<response> version: (1 . 1) code: 200 reason-phrase: "OK" headers: ((content-length . 139) (content-type application/octet-stream (charset . "ISO-8859-1"))) port: #<closed: file 7f987e9bb5b0>>)

;;; (wait-for-file "/tmp/guix-directory.EHMH8z/gzip/93lnhc9mm7z8qznqav2qwyjandd9gb7l-random.narinfo")
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6788
using 'gzip' compression method, level 3
publishing /home/hinsen/src/guix/test-tmp/store on 0.0.0.0, port 6787
using 'gzip' compression method, level 3
@ build-started /home/hinsen/src/guix/test-tmp/store/38q9b6wajlggmm6dnd60465w14chh8ri-with-log.drv - x86_64-linux /home/hinsen/src/guix/test-tmp/var/log/guix/drvs/38//q9b6wajlggmm6dnd60465w14chh8ri-with-log.drv.bz2 49360
Hello, build log!@ build-succeeded /home/hinsen/src/guix/test-tmp/store/38q9b6wajlggmm6dnd60465w14chh8ri-with-log.drv -
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /ram48mn56vgmfnr8km850kzs5syjfhbs.narinfo
GET /ram48mn56vgmfnr8km850kzs5syjfhbs.narinfo
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /nix-cache-info
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /fs7qgchq8d0bzih48q8k1nmfz526bqxl.narinfo
GET /nar/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/lzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/zstd/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/fs7qgchq8d0bzih48q8k1nmfz526bqxl-fake-gtk%2B
GET /nar/invalid
GET /file/the-file.txt/sha256/0halvvmzqz6wvp0g8sa9hda5g04j4hpnc5gd314npgarmbc2iw5f
GET /file/the-file.txt/sha256/not-a-nix-base32-string
GET /file/the-file.txt/sha256/0mdqa9w1p6cmli6976v4wi0sw9r4p5prkj7lzfd1877wk11c9c73
GET /log/kafh91vyhfg6r7p1i41g9qkd251i0x7k-with-log
GET /log/does-not-exist
GET /signing-key.pub
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
POST /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /nar/gzip/7m9anpjflf65fiaq98vr1q0c98kyx9kg-random
GET /7m9anpjflf65fiaq98vr1q0c98kyx9kg.narinfo
GET /nar/gzip/7m9anpjflf65fiaq98vr1q0c98kyx9kg-random
GET /cg2pd24cvpc6v4jh7ckki2n13q1zchni.narinfo
GET /cg2pd24cvpc6v4jh7ckki2n13q1zchni.narinfo
GET /cg2pd24cvpc6v4jh7ckki2n13q1zchni.narinfo
GET /nar/gzip/cg2pd24cvpc6v4jh7ckki2n13q1zchni-fake-compressed-thing.tar.gz
GET /nar/cg2pd24cvpc6v4jh7ckki2n13q1zchni-fake-compressed-thing.tar.gz
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/lzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /foo/bar/chbouib/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/gzip/eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee-does-not-exist
GET /nar/gzip/93lnhc9mm7z8qznqav2qwyjandd9gb7l-random
GET /93lnhc9mm7z8qznqav2qwyjandd9gb7l.narinfo
GET /nar/gzip/93lnhc9mm7z8qznqav2qwyjandd9gb7l-random
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /nar/gzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/lzip/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /nar/892j9b0gqgbj4a7sv40jif3yyv25sm90-item
GET /892j9b0gqgbj4a7sv40jif3yyv25sm90.narinfo
GET /l8w8g6wfpn2f8c1cxj24gnj80115j2vb.narinfo


             reply	other threads:[~2021-03-18 15:06 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2021-03-18 15:05 Konrad Hinsen [this message]
2021-03-20 20:41 ` bug#47239: Test failure in tests/publish.scm with commit 1955ef93b76e51cab5bed4c90f7eb9df7035355a Ludovic Courtès
2021-03-21 10:26   ` Konrad Hinsen
2021-03-21 14:25     ` zimoun
2021-03-22  7:54       ` Konrad Hinsen
2021-03-22 16:04 ` Cees de Groot
2021-03-24  2:32 ` Cees de Groot
2021-03-31 14:02   ` Ludovic Courtès

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://guix.gnu.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=m1sg4smria.fsf@ordinateur-de-catherine--konrad.home \
    --to=konrad.hinsen@fastmail.net \
    --cc=47239@debbugs.gnu.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).