diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-05-23 22:14:53 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-05-27 22:47:24 +0200 |
| commit | 4e48923e7523c863996bb616c6abb7e4cb78a3b5 (patch) | |
| tree | 37b478ce67f4ebb5da9b0299d76bf9841bf986ad /tests/utils.scm | |
| parent | 4c7ebe318f6b3c4ddadcea8d08c9fb67ac46ec1e (diff) | |
| download | patches-4e48923e7523c863996bb616c6abb7e4cb78a3b5.tar patches-4e48923e7523c863996bb616c6abb7e4cb78a3b5.tar.gz | |
utils: Support compression and decompression with lzip.
* guix/utils.scm (lzip-port): New procedure.
(decompressed-port, compressed-port, compressed-output-port): Add 'lzip
case.
* tests/utils.scm <top level>: Call 'test-compression/decompression' for
'lzip as well.
Diffstat (limited to 'tests/utils.scm')
| -rw-r--r-- | tests/utils.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/utils.scm b/tests/utils.scm index a5141592a8..44861384ab 100644 --- a/tests/utils.scm +++ b/tests/utils.scm @@ -23,6 +23,7 @@ #:use-module (guix utils) #:use-module ((guix store) #:select (%store-prefix store-path-package-name)) #:use-module ((guix search-paths) #:select (string-tokenize*)) + #:use-module ((guix lzlib) #:select (lzlib-available?)) #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-64) @@ -214,7 +215,7 @@ skip these tests." (for-each test-compression/decompression '(gzip xz lzip) - (list (const #t) (const #t))) + (list (const #t) (const #t) lzlib-available?)) ;; This is actually in (guix store). (test-equal "store-path-package-name" |