fix the handling of "msg" tests
This commit is contained in:
parent
b2aa70c6ef
commit
f49f2f38f0
2 changed files with 6 additions and 2 deletions
|
|
@ -114,7 +114,11 @@ proc parseSpec*(filename: string): TSpec =
|
||||||
result.substr = true
|
result.substr = true
|
||||||
of "exitcode":
|
of "exitcode":
|
||||||
discard parseInt(e.value, result.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.msg = e.value
|
||||||
result.action = actionReject
|
result.action = actionReject
|
||||||
of "disabled":
|
of "disabled":
|
||||||
|
|
|
||||||
|
|
@ -110,7 +110,7 @@ proc addResult(r: var TResults, test: TTest,
|
||||||
given = given)
|
given = given)
|
||||||
r.data.addf("$#\t$#\t$#\t$#", name, expected, given, $success)
|
r.data.addf("$#\t$#\t$#\t$#", name, expected, given, $success)
|
||||||
if success notin {reSuccess, reIgnored}:
|
if success notin {reSuccess, reIgnored}:
|
||||||
styledEcho styleBright, fgRed, "^^^ [", $success, "]"
|
styledEcho styleBright, name, fgRed, " [", $success, "]"
|
||||||
styledEcho styleDim, "EXPECTED:"
|
styledEcho styleDim, "EXPECTED:"
|
||||||
echo expected
|
echo expected
|
||||||
styledEcho styleDim, "GIVEN:"
|
styledEcho styleDim, "GIVEN:"
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue