diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2019-04-16 17:29:25 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2019-04-16 17:30:22 +0200 |
| commit | b2c3640d2baa7bc929bf21880e6fb2785f5997f6 (patch) | |
| tree | 2b3a9b3a1164a9182aea2f461fc95bce74cd6473 | |
| parent | e31ece97517312e9b054767c18c6f38d8d5d8618 (diff) | |
| download | guix-b2c3640d2baa7bc929bf21880e6fb2785f5997f6.tar guix-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.
| -rw-r--r-- | tests/zlib.scm | 7 |
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))))) |