summaryrefslogtreecommitdiff
path: root/tests/utils.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-05-23 22:14:53 +0200
committerLudovic Courtès <ludo@gnu.org>2019-05-27 22:47:24 +0200
commit4e48923e7523c863996bb616c6abb7e4cb78a3b5 (patch)
tree37b478ce67f4ebb5da9b0299d76bf9841bf986ad /tests/utils.scm
parent4c7ebe318f6b3c4ddadcea8d08c9fb67ac46ec1e (diff)
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.scm3
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"