aboutsummaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-08-22 17:14:20 +0200
committerLudovic Courtès <ludo@gnu.org>2013-08-22 17:14:20 +0200
commitb6952cad8dadd40f0fa44d4997583991acf8cb3f (patch)
treebaa3d405256b2fb8503643afa3c5503c33733489 /tests/utils.scm
parent3f69e393d33434a052fefcfa1875d841eb09797d (diff)
downloadguix-b6952cad8dadd40f0fa44d4997583991acf8cb3f.tar
guix-b6952cad8dadd40f0fa44d4997583991acf8cb3f.tar.gz
substitute-binary: Try hard to avoid port buffering.
* guix/scripts/substitute-binary.scm (fetch): In the `file' case, open with the `b' flag, so that the coding cookie reading thing doesn't lead to buffering some of the data (on 2.0.5). * tests/utils.scm ("filtered-port, file"): Open with `r0b'. Fixes a test failure with Guile 2.0.5 whereby the first byte of FILE would be missing from DECOMPRESSED.
Diffstat (limited to 'tests/utils.scm')
-rw-r--r--tests/utils.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/utils.scm b/tests/utils.scm
index e8549204d0..3be60e443d 100644
--- a/tests/utils.scm
+++ b/tests/utils.scm
@@ -103,7 +103,7 @@
(test-assert "filtered-port, file"
(let* ((file (search-path %load-path "guix.scm"))
- (input (open-file file "r0")))
+ (input (open-file file "r0b")))
(let*-values (((compressed pids1)
(filtered-port `(,%gzip "-c" "--fast") input))
((decompressed pids2)