diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-08-22 17:14:20 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-08-22 17:14:20 +0200 |
| commit | b6952cad8dadd40f0fa44d4997583991acf8cb3f (patch) | |
| tree | baa3d405256b2fb8503643afa3c5503c33733489 /tests/utils.scm | |
| parent | 3f69e393d33434a052fefcfa1875d841eb09797d (diff) | |
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.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index e8549204d07..3be60e443d3 100644 --- a/tests/utils.scm +++ b/tests/utils.scm | |||
| @@ -103,7 +103,7 @@ | |||
| 103 | 103 | ||
| 104 | (test-assert "filtered-port, file" | 104 | (test-assert "filtered-port, file" |
| 105 | (let* ((file (search-path %load-path "guix.scm")) | 105 | (let* ((file (search-path %load-path "guix.scm")) |
| 106 | (input (open-file file "r0"))) | 106 | (input (open-file file "r0b"))) |
| 107 | (let*-values (((compressed pids1) | 107 | (let*-values (((compressed pids1) |
| 108 | (filtered-port `(,%gzip "-c" "--fast") input)) | 108 | (filtered-port `(,%gzip "-c" "--fast") input)) |
| 109 | ((decompressed pids2) | 109 | ((decompressed pids2) |
