From 41fa926f307af824f539fa3e6ae36fac00579f22 Mon Sep 17 00:00:00 2001
From: Mathieu Lirzin <mthl@gnu.org>
Date: Tue, 22 Mar 2016 19:54:07 +0100
Subject: tests: Silence %cpio-program.

* tests/cpio.scm ("bit-identical to GNU cpio's output"): Silence
%cpio-program call to avoid polluting the temporary files.
---
 tests/cpio.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tests/cpio.scm b/tests/cpio.scm
index cf65f9808d..b6ae1b212c 100644
--- a/tests/cpio.scm
+++ b/tests/cpio.scm
@@ -1,5 +1,6 @@
 ;;; GNU Guix --- Functional package management for GNU
 ;;; Copyright © 2015 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -63,7 +64,7 @@ (define %cpio-program
        (call-with-temporary-output-file
         (lambda (ref-file _)
           (let ((pipe (open-pipe* OPEN_WRITE %cpio-program "-o" "-O" ref-file
-                                  "-H" "newc" "--null")))
+                                  "-H" "newc" "--null" "--quiet")))
             (for-each (lambda (file)
                         (format pipe "~a\0" file))
                       files)
-- 
cgit v1.2.3