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:
Ludovic Courtès 2019-04-16 17:29:25 +02:00
parent e31ece9751
commit b2c3640d2b
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 3 additions and 4 deletions

View File

@ -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)))))