Adds verbose switch, by default reports only failures.

This commit is contained in:
Grzegorz Adam Hankiewicz 2013-06-07 18:32:43 +02:00
commit 18725aab28

View file

@ -81,9 +81,19 @@ when isMainModule:
var var
filter = "" filter = ""
failures = 0 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): for test, output, result in caasTestsRunner(filter):
if not result or verbose:
echo test, "\n", output, "-> ", $result, "\n-----" echo test, "\n", output, "-> ", $result, "\n-----"
if not result: if not result:
failures += 1 failures += 1