mirror of
https://git.savannah.gnu.org/git/guix.git
synced 2026-05-22 00:55:56 +02:00
tests: Gracefully skip zlib test when zlib is missing.
* tests/zlib.scm: Use 'test-skip' instead of (exit 77) when (zlib-available?) returns false.
This commit is contained in:
+3
-4
@@ -1,5 +1,5 @@
|
||||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2016, 2019 Ludovic Courtès <ludo@gnu.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
@@ -26,11 +26,10 @@
|
||||
|
||||
;; Test the (guix zlib) module.
|
||||
|
||||
(unless (zlib-available?)
|
||||
(exit 77))
|
||||
|
||||
(test-begin "zlib")
|
||||
|
||||
(unless (zlib-available?)
|
||||
(test-skip 1))
|
||||
(test-assert "compression/decompression pipe"
|
||||
(let ((data (random-bytevector (+ (random 10000)
|
||||
(* 20 1024)))))
|
||||
|
||||
Reference in New Issue
Block a user