diff options
| -rw-r--r-- | guix/utils.scm | 3 | ||||
| -rw-r--r-- | tests/utils.scm | 4 |
2 files changed, 5 insertions, 2 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index d8ce6ed886..29bc31cf2c 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -287,7 +287,8 @@ a symbol such as 'xz." ((or #f 'none) (values input '())) ('bzip2 (filtered-port `(,%bzip2 "-c") input)) ('xz (filtered-port `(,%xz "-c" ,@(%xz-parallel-args)) input)) - ('gzip (filtered-port `(,%gzip "-c") input)) + ('gzip (values (make-zlib-output-port input #:format 'xxx) + '())) ('lzip (values (lzip-port 'make-lzip-input-port/compressed input) '())) (_ (error "unsupported compression scheme" compression)))) diff --git a/tests/utils.scm b/tests/utils.scm index 462e43e2b1..ec6dbe6209 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -212,6 +212,8 @@ skip these tests." get-bytevector-all)))) ((result) (get-bytevector-all decompressed))) + (pk decompressed pids) +; (holy punting shit) (close-port decompressed) (pk 'len method (if (bytevector? result) @@ -220,7 +222,7 @@ skip these tests." (bytevector-length data)) (and (every (compose zero? cdr waitpid) (pk 'pids method pids)) - (equal? result data))))))))) + (equal? (pk result) data))))))))) (false-if-exception (delete-file temp-file)) (unless (run?) (test-skip 1)) |