Changeset 92 for trunk/src/text_printer_test.erl

Timestamp:

01/28/10 16:21:51 (2 years ago)

Author:

dom

Message:

File and line is now provided for test failures

File:

• trunk/src/text_printer_test.erl (modified) (2 diffs)

trunk/src/text_printer_test.erl

@@ -39 +39 @@
     P ! {self (), tester, {4, 2, 2}},
     <<".">> = receive_io_request (P),
-    P ! {self (), tester, {undef, [{foo, bar, []}, {toto, titi, 0}]}},
-    <<"\nError: {undef,[{foo,bar,[]},{toto,titi,0}]}.\n">> = receive_io_request (P),
+    Error = {error, {undef, [{foo, bar, []}, {toto, titi, 0}]}},
+    Stack = {stack_trace, [{eg_test, ok, 0}, {test_runner, run, 0}]},
+    Locat = {location, {eg_test, ok, 0, "/dir/eg_test.erl", 12}},
+    Dict = dict: from_list ([Error, Stack, Locat]),
+    P ! {self (), tester, Dict},
+    <<"\n/dir/eg_test.erl(12): failure in {eg_test, ok, 0}"
+     "\n   Error: {undef,[{foo,bar,[]},{toto,titi,0}]}"
+     "\n   Stack: [{eg_test,ok,0},{test_runner,run,0}]\n">> = receive_io_request (P),
     P ! {self (), tester, {4, 3, 2}},
     <<".">> = receive_io_request (P),
@@ -66 +72 @@
     Self = self (),
     receive
-        {io_request, P, Self, {put_chars, Binary}} ->
+        {io_request, P, Self, {put_chars, unicode, Binary}} ->
             P ! {io_reply, Self, ok},
             Binary;