diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-12-26 23:01:05 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2021-01-13 22:24:19 +0100 |
commit | db0cecdf6b2f2b8f9c5a3cebe8fc60e79a692be0 (patch) | |
tree | 80b9adeaf22272c6fdbb708d4c2ccd137dccb431 /tests/utils.scm | |
parent | 0d046587107a56467cf2027799ac79ce8c203ce0 (diff) |
utils: Support zstd compression via Guile-zstd.
* guix/utils.scm (lzip-port): Return a single value.
(zstd-port): New procedure.
(decompressed-port, compressed-output-port): Add 'zstd' case.
* tests/utils.scm (test-compression/decompression): Test 'zstd' when
the (zstd) module is available.
Diffstat (limited to 'tests/utils.scm')
-rw-r--r-- | tests/utils.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index c278b2a277..9bce446d98 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -228,8 +228,10 @@ skip these tests." get-bytevector-all))))) (for-each test-compression/decompression - '(gzip xz lzip) - (list (const #t) (const #t) (const #t))) + `(gzip xz lzip zstd) + (list (const #t) (const #t) (const #t) + (lambda () + (resolve-module '(zstd) #t #f #:ensure #f)))) ;; This is actually in (guix store). (test-equal "store-path-package-name" |