From b2c3640d2baa7bc929bf21880e6fb2785f5997f6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= 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 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 +;;; Copyright © 2016, 2019 Ludovic Courtès ;;; ;;; 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)))))