From b7a4a9a6ce0d0a0a844875af946124b45fadb01a Mon Sep 17 00:00:00 2001
From: Grzegorz Adam Hankiewicz <gradha@imap.cc>
Date: Mon, 10 Jun 2013 22:06:38 +0200
Subject: [PATCH] Fixes usage of public API caasTestsRunner in tester.

---
 tests/tester.nim | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/tests/tester.nim b/tests/tester.nim
index 8c8e31fe84..e10b897616 100644
--- a/tests/tester.nim
+++ b/tests/tester.nim
@@ -365,8 +365,9 @@ proc outputJSON(reject, compile, run: TResults) =
   writeFile(jsonFile, s)
 
 proc runCaasTests(r: var TResults) =
-  for test, output, status in caasTestsRunner():
-    r.addResult(test, "", output, if status: reSuccess else: reOutputsDiffer)
+  for test, output, status, mode in caasTestsRunner():
+    r.addResult(test, "", output & "-> " & $mode,
+                if status: reSuccess else: reOutputsDiffer)
 
 proc main() =
   os.putenv "NIMTEST_NO_COLOR", "1"