From mboxrd@z Thu Jan 1 00:00:00 1970 From: Mathieu Lirzin Subject: [PATCH 4/5] tests: Silence %have-nix-hash?. Date: Thu, 24 Mar 2016 00:38:49 +0100 Message-ID: <1458776330-5005-5-git-send-email-mthl@gnu.org> References: <1458776330-5005-1-git-send-email-mthl@gnu.org> Mime-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60712) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aisMu-0007f5-15 for guix-devel@gnu.org; Wed, 23 Mar 2016 19:39:17 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aisMs-0007sV-Hc for guix-devel@gnu.org; Wed, 23 Mar 2016 19:39:15 -0400 In-Reply-To: <1458776330-5005-1-git-send-email-mthl@gnu.org> List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org Sender: guix-devel-bounces+gcggd-guix-devel=m.gmane.org@gnu.org To: guix-devel@gnu.org * tests/base32.scm (%have-nix-hash?): Use 'which' instead of 'system' to avoid polluting standard output. --- tests/base32.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/tests/base32.scm b/tests/base32.scm index 194f8da..7f59e76 100644 --- a/tests/base32.scm +++ b/tests/base32.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright =C2=A9 2012, 2013, 2015 Ludovic Court=C3=A8s +;;; Copyright =C2=A9 2016 Mathieu Lirzin ;;; ;;; 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")) =20 (define %have-nix-hash? - ;; Note: Use `system', not `system*', because of . - (false-if-exception - (zero? (system (string-append %nix-hash " --version"))))) + (which %nix-hash)) =20 (test-begin "base32") =20 --=20 2.7.0