From b2c3640d2baa7bc929bf21880e6fb2785f5997f6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 16 Apr 2019 17:29:25 +0200
Subject: [PATCH] tests: Gracefully skip zlib test when zlib is missing.
* tests/zlib.scm: Use 'test-skip' instead of (exit 77)
when (zlib-available?) returns false.
---
tests/zlib.scm | 7 +++----
1 file changed, 3 insertions(+), 4 deletions(-)
diff --git a/tests/zlib.scm b/tests/zlib.scm
index 5455240a719..7c595a422c3 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 @@ (define-module (test-zlib)
;; 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)))))
--
GitLab