aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2019-04-16 17:29:25 +0200
committerLudovic Courtès <ludo@gnu.org>2019-04-16 17:30:22 +0200
commitb2c3640d2baa7bc929bf21880e6fb2785f5997f6 (patch)
tree2b3a9b3a1164a9182aea2f461fc95bce74cd6473 /tests
parente31ece97517312e9b054767c18c6f38d8d5d8618 (diff)
downloadpatches-b2c3640d2baa7bc929bf21880e6fb2785f5997f6.tar
patches-b2c3640d2baa7bc929bf21880e6fb2785f5997f6.tar.gz
tests: Gracefully skip zlib test when zlib is missing.
* tests/zlib.scm: Use 'test-skip' instead of (exit 77) when (zlib-available?) returns false.
Diffstat (limited to 'tests')
-rw-r--r--tests/zlib.scm7
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/zlib.scm b/tests/zlib.scm
index 5455240a71..7c595a422c 100644
--- a/tests/zlib.scm
+++ b/tests/zlib.scm
@@ -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)))))