summary refs log tree commit diff
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@gnu.org>2016-03-23 22:37:06 +0100
committerMathieu Lirzin <mthl@gnu.org>2016-03-28 15:31:41 +0200
commitb65703c03e43e35d9f2bfd1ae2b0a858b47177f7 (patch)
tree1007d6ef76a5da8c92c54babd982d18b9af1bf87
parentce0c9e264008173a9707c8e8e199f8623099fa3c (diff)
downloadguix-b65703c03e43e35d9f2bfd1ae2b0a858b47177f7.tar.gz
tests: Silence %have-nix-hash?.
* tests/base32.scm (%have-nix-hash?): Use 'which' instead of 'system' to
avoid polluting standard output.
-rw-r--r--tests/base32.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/base32.scm b/tests/base32.scm
index 194f8da96b..7f59e76456 100644
--- a/tests/base32.scm
+++ b/tests/base32.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -19,6 +20,7 @@
 (define-module (test-base32)
   #:use-module (guix hash)
   #:use-module (guix base32)
+  #:use-module (guix build utils)
   #:use-module (guix utils)
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-34)
@@ -39,9 +41,7 @@
       "nix-hash"))
 
 (define %have-nix-hash?
-  ;; Note: Use `system', not `system*', because of <http://bugs.gnu.org/13166>.
-  (false-if-exception
-   (zero? (system (string-append %nix-hash " --version")))))
+  (which %nix-hash))
 
 (test-begin "base32")