fix the handling of "msg" tests

This commit is contained in:
Zahary Karadjov
2014-03-20 23:12:24 +02:00
parent b2aa70c6ef
commit f49f2f38f0
2 changed files with 6 additions and 2 deletions

View File

@@ -114,7 +114,11 @@ proc parseSpec*(filename: string): TSpec =
result.substr = true
of "exitcode":
discard parseInt(e.value, result.exitCode)
of "errormsg", "msg":
of "msg":
result.msg = e.value
if result.action != actionRun:
result.action = actionCompile
of "errormsg":
result.msg = e.value
result.action = actionReject
of "disabled":

View File

@@ -110,7 +110,7 @@ proc addResult(r: var TResults, test: TTest,
given = given)
r.data.addf("$#\t$#\t$#\t$#", name, expected, given, $success)
if success notin {reSuccess, reIgnored}:
styledEcho styleBright, fgRed, "^^^ [", $success, "]"
styledEcho styleBright, name, fgRed, " [", $success, "]"
styledEcho styleDim, "EXPECTED:"
echo expected
styledEcho styleDim, "GIVEN:"