diff options
| author | Tobias Geerinckx-Rice <me@tobias.gr> | 2023-09-03 02:00:00 +0200 |
|---|---|---|
| committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2024-09-01 02:00:00 +0200 |
| commit | c84f0d31d3d087a201920a823f80f15b5171e4ad (patch) | |
| tree | f91d3d46881c6a3285e38f57a0e1cfbd2e6d7b56 | |
| parent | de4da24d346c9c52b74a11c4978e908c0ff132b2 (diff) | |
TEMP
| -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)) |