From 18725aab28b7a6a58926b34c263252f77cf94b7d Mon Sep 17 00:00:00 2001
From: Grzegorz Adam Hankiewicz <gradha@imap.cc>
Date: Fri, 7 Jun 2013 18:32:43 +0200
Subject: [PATCH] Adds verbose switch, by default reports only failures.

---
 tests/caasdriver.nim | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/tests/caasdriver.nim b/tests/caasdriver.nim
index 7472cfdeb1..b36b6f5b73 100644
--- a/tests/caasdriver.nim
+++ b/tests/caasdriver.nim
@@ -81,10 +81,20 @@ when isMainModule:
   var
     filter = ""
     failures = 0
-  if paramCount() > 0: filter = paramStr(1)
+    verbose = false
+
+  for i in 0..ParamCount() - 1:
+    let param = paramStr(i + 1)
+    case param
+    of "verbose": verbose = true
+    else: filter = param
+
+  if verbose and len(filter) > 0:
+    echo "Running only test cases matching filter '$1'" % [filter]
 
   for test, output, result in caasTestsRunner(filter):
-    echo test, "\n", output, "-> ", $result, "\n-----"
+    if not result or verbose:
+      echo test, "\n", output, "-> ", $result, "\n-----"
     if not result:
       failures += 1