From 36e5fc1cbee24e2a4d1dbda12b4b3eaae4fb9230 Mon Sep 17 00:00:00 2001
From: "Richard W.M. Jones" <rjones@redhat.com>
Date: Tue, 17 Oct 2017 18:59:45 +0100
Subject: [PATCH] libguestfs: Print failures.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

If ‘make check-release’ fails, then find all the test-suite.log files
containing the failures and print them in full.
---
 libguestfs_upstream.ml | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/libguestfs_upstream.ml b/libguestfs_upstream.ml
index b1daa19..4472f4c 100644
--- a/libguestfs_upstream.ml
+++ b/libguestfs_upstream.ml
@@ -136,7 +136,13 @@ and tarball_tested version =
 
     ./localconfigure
     make V=1
-    make check-release
+    if ! make check-release; then
+      for f in `find -name test-suite.log | xargs grep -l ^FAIL:`; do
+        echo \"*** $f ***\"
+        cat $f
+      done
+      exit 1
+    fi
   " buildtmp version.tarball
     version.package_version
     (quote (libguestfs_localconfigure `Tarball))
@@ -216,7 +222,13 @@ and commit_tested branch commit =
 
     ./localconfigure
     make V=1
-    make check-release
+    if ! make check-release; then
+      for f in `find -name test-suite.log | xargs grep -l ^FAIL:`; do
+        echo \"*** $f ***\"
+        cat $f
+      done
+      exit 1
+    fi
   " repodir
     commit
     (quote (libguestfs_localconfigure `Git))
-- 
1.8.3.1