From 359057492421c9ad42a2e466c9eb19384e7da0ad Mon Sep 17 00:00:00 2001
From: Simon MacMullen <simon@rabbitmq.com>
Date: Wed, 28 May 2014 11:06:54 +0100
Subject: Display errors on failure.

---
 quickcheck | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'quickcheck')

diff --git a/quickcheck b/quickcheck
index b5382d75..40f13091 100755
--- a/quickcheck
+++ b/quickcheck
@@ -17,7 +17,8 @@ main([NodeStr, ModStr, TrialsStr]) ->
             case rpc:call(Node, proper, module,
                           [Mod] ++ [[{numtests, Trials}, {constraint_tries, 200}]]) of
                 [] -> ok;
-                _  -> quit(1)
+                R  -> io:format("~p.~n", [R]),
+                      quit(1)
             end;
         {badrpc, Reason} ->
             io:format("Could not contact node ~p: ~p.~n", [Node, Reason]),
-- 
cgit v1.2.1