From ffa0eda0be145c6f0f9c760e3e140a713f4e9254 Mon Sep 17 00:00:00 2001
From: Duke Leto <jonathan@leto.net>
Date: Sun, 29 Nov 2009 10:07:43 -0800
Subject: [PATCH] Add some better reporting to harness.pir

---
 t/harness.pir | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/t/harness.pir b/t/harness.pir
index 86a6b46..7bde550 100644
--- a/t/harness.pir
+++ b/t/harness.pir
@@ -18,10 +18,14 @@
     .local string file
     .local string output
     .local int success
+    .local int total_files, failing_files
     i = 0
+    failing_files = 0
+    total_files   = 0
  loop:
     file = argv[i]
     unless file goto done
+    inc total_files
     print file
     print ".........."
     output = qx('parrot',file)
@@ -35,8 +39,9 @@
     goto redo
  fail:
     print "failed "
-    $I0 = stream.'get_pass'()
+    $I0 = stream.'get_fail'()
     print $I0
+    inc failing_files
     $S1 = stream.'total'()
     $S0 = "/" . $S1
     print $S0
@@ -46,6 +51,11 @@
     goto loop
 
  done:
+    if failing_files goto print_fail
+    say "PASSED"
+    goto done
+  print_fail:
+    say "FAILED"
 .end
 
 .sub 'qx'
-- 
2.11.4.GIT