diff options
author | Marius Bakke <mbakke@fastmail.com> | 2017-10-06 11:03:27 +0200 |
---|---|---|
committer | Marius Bakke <mbakke@fastmail.com> | 2017-10-06 11:03:27 +0200 |
commit | 6a317919cf0f9dbc651a4a41f9ed99c49bf2d543 (patch) | |
tree | 9454b6c587b75ee1e3625be64f39cc39a5154db6 /tests/publish.scm | |
parent | 68932812b8f6581dda4bf1896235492f687b7cc9 (diff) | |
parent | 8bde6a524e19d2bc9763b84dbf99959faf653bf8 (diff) | |
download | guix-6a317919cf0f9dbc651a4a41f9ed99c49bf2d543.tar.gz |
Merge branch 'master' into staging
Diffstat (limited to 'tests/publish.scm')
-rw-r--r-- | tests/publish.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/publish.scm b/tests/publish.scm index 31043f71fa..f33898fd58 100644 --- a/tests/publish.scm +++ b/tests/publish.scm @@ -340,7 +340,7 @@ FileSize: ~a~%" 200 ;nar/gzip/… #t ;Content-Length #t ;FileSize - 200) ;nar/… + 404) ;nar/… (call-with-temporary-directory (lambda (cache) (let ((thread (with-separate-output-ports @@ -393,7 +393,7 @@ FileSize: ~a~%" (let ((item (add-text-to-store %store "fake-compressed-thing.tar.gz" (random-text)))) (test-equal "with cache, uncompressed" - (list #f + (list #t `(("StorePath" . ,item) ("URL" . ,(string-append "nar/" (basename item))) ("Compression" . "none")) |