summaryrefslogtreecommitdiff
path: root/tests/publish.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-01-19 19:06:57 +0100
committerLudovic Courtès <ludo@gnu.org>2022-01-19 22:07:54 +0100
commit435ffae2f29ecaa94f3aca835d79e222bc1263d5 (patch)
treec93aaa2c1321fbcb0efbffca29974afa050b4b1d /tests/publish.scm
parent2b632e406005e0a1aac49ab2be47a513a5d51877 (diff)
tests: Adjust to gzip as the default log compression.
This is a followup to 575e52ac2b090fd194086e9c1c53bbf8055acbc2. * tests/publish.scm ("/log/NAME"): Expect a gzip-encoded log.
Diffstat (limited to 'tests/publish.scm')
-rw-r--r--tests/publish.scm9
1 files changed, 5 insertions, 4 deletions
diff --git a/tests/publish.scm b/tests/publish.scm
index c3d086995a..e3c27c5eea 100644
--- a/tests/publish.scm
+++ b/tests/publish.scm
@@ -1,7 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 David Thompson <davet@gnu.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.
;;;
@@ -679,7 +679,7 @@ References: ~%"
(response-code (http-get nar)))))))))
(test-equal "/log/NAME"
- `(200 #t application/x-bzip2)
+ `(200 #t text/plain (gzip))
(let ((drv (run-with-store %store
(gexp->derivation "with-log"
#~(call-with-output-file #$output
@@ -695,10 +695,11 @@ References: ~%"
(base (basename (derivation-file-name drv)))
(log (string-append (dirname %state-directory)
"/log/guix/drvs/" (string-take base 2)
- "/" (string-drop base 2) ".bz2")))
+ "/" (string-drop base 2) ".gz")))
(list (response-code response)
(= (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"
`(404 42)