ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 07:26:13 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

tests: Adjust to gzip as the default log compression.

Browse source 
This is a followup to 575e52ac2b.

* tests/publish.scm ("/log/NAME"): Expect a gzip-encoded log.
This commit is contained in:
Ludovic Courtès 2022-01-19 19:06:57 +01:00
parent 2b632e4060
commit 435ffae2f2
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
tests/publish.scm
View file

@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2015 David Thompson <davet@gnu.org>
;;; Copyright © 2020 by Amar M. Singh <nly@disroot.org> ;;; Copyright © 2020 by Amar M. Singh <nly@disroot.org>
;;; Copyright © 2016, 2017, 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2016-2022 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -679,7 +679,7 @@ (define %gzip-magic-bytes
(response-code (http-get nar))))))))) (response-code (http-get nar)))))))))
(test-equal "/log/NAME" (test-equal "/log/NAME"
`(200 #t application/x-bzip2) `(200 #t text/plain (gzip))
(let ((drv (run-with-store %store (let ((drv (run-with-store %store
(gexp->derivation "with-log" (gexp->derivation "with-log"
#~(call-with-output-file #$output #~(call-with-output-file #$output
@ -695,10 +695,11 @@ (define %gzip-magic-bytes
(base (basename (derivation-file-name drv))) (base (basename (derivation-file-name drv)))
(log (string-append (dirname %state-directory) (log (string-append (dirname %state-directory)
"/log/guix/drvs/" (string-take base 2) "/log/guix/drvs/" (string-take base 2)
"/" (string-drop base 2) ".bz2"))) "/" (string-drop base 2) ".gz")))
(list (response-code response) (list (response-code response)
(= (response-content-length response) (stat:size (stat log))) (= (response-content-length response) (stat:size (stat log)))
(first (response-content-type response)))))) (first (response-content-type response))
(response-content-encoding response)))))
(test-equal "negative TTL" (test-equal "negative TTL"
`(404 42) `(404 42)