From 26890b6525f12f89c2a93c1cde1c444e6af2e9d7 Mon Sep 17 00:00:00 2001
From: Zahary Karadjov <zahary@gmail.com>
Date: Sun, 16 Mar 2014 20:52:09 +0200
Subject: [PATCH] make some tests red :) (i.e. print failure details while
 running the tester)

---
 tests/bind/tinvalidbindtypedesc.nim |  1 -
 tests/effects/teffects1.nim         |  2 +-
 tests/overload/tissue966.nim        |  2 +-
 tests/testament/tester.nim          | 11 ++++++++---
 4 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/tests/bind/tinvalidbindtypedesc.nim b/tests/bind/tinvalidbindtypedesc.nim
index d6fbae5374..7d97d2e0d6 100644
--- a/tests/bind/tinvalidbindtypedesc.nim
+++ b/tests/bind/tinvalidbindtypedesc.nim
@@ -1,6 +1,5 @@
 discard """
   line: 11
-  file: "tbindtypedesc.nim"
   errormsg: "type mismatch: got (typedesc[float], string)"
 """
 
diff --git a/tests/effects/teffects1.nim b/tests/effects/teffects1.nim
index 2cf3d0483a..0014cff465 100644
--- a/tests/effects/teffects1.nim
+++ b/tests/effects/teffects1.nim
@@ -1,5 +1,5 @@
 discard """
-  line: 1912
+  line: 1913
   file: "system.nim"
   errormsg: "can raise an unlisted exception: ref EIO"
 """
diff --git a/tests/overload/tissue966.nim b/tests/overload/tissue966.nim
index 59c43c8f98..2911348cfc 100644
--- a/tests/overload/tissue966.nim
+++ b/tests/overload/tissue966.nim
@@ -1,5 +1,5 @@
 discard """
-  msg: "type mismatch: got (PTest)"
+  errormsg: "type mismatch: got (PTest)"
 """
 
 type
diff --git a/tests/testament/tester.nim b/tests/testament/tester.nim
index d32269ad67..923cd75187 100644
--- a/tests/testament/tester.nim
+++ b/tests/testament/tester.nim
@@ -11,7 +11,7 @@
 
 import
   parseutils, strutils, pegs, os, osproc, streams, parsecfg, json,
-  marshal, backend, parseopt, specs, htmlgen, browsers
+  marshal, backend, parseopt, specs, htmlgen, browsers, terminal
 
 const
   resultsFile = "testresults.html"
@@ -109,7 +109,12 @@ proc addResult(r: var TResults, test: TTest,
                           expected = expected,
                           given = given)
   r.data.addf("$#\t$#\t$#\t$#", name, expected, given, $success)
-  echo " [", $success, "]"
+  if success notin {reSuccess, reIgnored}:
+    styledEcho styleBright, fgRed, "^^^ [", $success, "]"
+    styledEcho styleDim, "EXPECTED:"
+    echo expected
+    styledEcho styleDim, "GIVEN:"
+    echo given
 
 proc cmpMsgs(r: var TResults, expected, given: TSpec, test: TTest) =
   if strip(expected.msg) notin strip(given.msg):
@@ -147,7 +152,7 @@ proc testSpec(r: var TResults, test: TTest) =
   # major entry point for a single test
   let tname = test.name.addFileExt(".nim")
   inc(r.total)
-  stdout.write extractFilename(tname)
+  echo extractFilename(tname)
   var expected = parseSpec(tname)
   if expected.err == reIgnored:
     r.addResult(test, "", "", reIgnored)