Changeset 92 for trunk/src/text_printer.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.erl (modified) (1 diff)

trunk/src/text_printer.erl

@@ -43 +43 @@
             testing (Device);
         {_, tester, Other} ->
-            Line = io_lib: fwrite ("~nError: ~p.\n", [Other]),
-            io: put_chars (Device, Line),
+            Error = dict: fetch (error, Other),
+            Stack = dict: fetch (stack_trace, Other),
+            {M, F, A, File, Line} = dict: fetch (location, Other),
+            Output = io_lib: fwrite (
+                     "~n~s(~p): failure in {~p, ~p, ~p}~n"
+                     "   Error: ~p~n"
+                     "   Stack: ~p~n", [File, Line, M, F, A, Error, Stack]),
+            io: put_chars (Device, Output),
             testing (Device)
     end.