Changeset 92 for trunk/src/tester_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/tester_test.erl (modified) (8 diffs)

trunk/src/tester_test.erl

@@ -17 +17 @@
 
 run_all (Node) ->
-    
     Fun = run_fun (Node),
     ok = fixtures: use_tree (tree (), Fun).
@@ -31 +30 @@
             deletes_a_test_module  (Node, Root),
             runs_new_tests_failed_then_successful  (Node, Root),
+            provides_failed_test_and_location (Node, Root),
             stops (Node, Root),
             ok
@@ -38 +38 @@
     Paths = [modules: to_file_name (M, Root) || M <- Modules],
     Binaries = [modules: to_binary (P) || P <- Paths],
-%    false = lists: any (fun (M) -> code: is_loaded (M) end, Modules),
+    false = lists: any (fun (M) -> code: is_loaded (M) end, Modules),
     Tester ! {run, Binaries},
     Results = receive_all ([]),
-%    false = lists: any (fun (M) -> code: is_loaded (M) end, Modules),
+    false = lists: any (fun (M) -> code: is_loaded (M) end, Modules),
     Results.
 
@@ -51 +51 @@
     Tester = spawn_link (tester, init, [notify_me (), Node]),
     [{2, 0, 0}, {2, 1, 1}, Error, {2, 2, 1}] = send (Root, [eg_test], Tester),
-    {{badmatch, nok}, [{eg_test, nok, 0} | _]} = Error, 
+    {badmatch, nok} = dict: fetch (error, Error), 
+    [{eg_test, nok, 0} | _] = dict: fetch (stack_trace, Error),
     ok.
 
@@ -57 +58 @@
     Tester = spawn_link (tester, init, [notify_me (), Node]),
     [{1, 0, 0}, Error, {1, 1, 0}] = send (Root, [eg_test_of_code], Tester),
-    {undef, [{eg_code, ok, []}, {eg_test_of_code, ok, 0} | _]} = Error,
+    undef = dict: fetch (error, Error),
+    Stack_trace = dict: fetch (stack_trace, Error),
+    [{eg_code, ok, []}, {eg_test_of_code, ok, 0} | _] = Stack_trace,
     [{1, 0, 0}, {1, 1, 1}] = send (Root, [eg_code], Tester),
     ok.
@@ -80 +83 @@
     Binary = modules: forms_to_binary (eg_test_form ("nok")),
     Tester ! {run, [Binary]},
-    Results = receive_all ([]),
-    [{1, 0, 0}, _Error, {1, 1, 0}] = Results,
+    [{1, 0, 0}, Error, {1, 1, 0}] = receive_all ([]),
     Correct_binary = modules: forms_to_binary (eg_test_form ("ok")),
     Tester ! {run, [Correct_binary]},
     [{1, 0, 0}, {1, 1, 1}] = receive_all ([]),
     Tester ! {run, [Binary]},
-    [{1, 0, 0}, _Error, {1, 1, 0}] = receive_all ([]),
+    [{1, 0, 0}, Error, {1, 1, 0}] = receive_all ([]),
     ok.
 
@@ -94 +96 @@
     Tester ! {delete,[eg_code]},
     [{1, 0, 0}, Error, {1, 1, 0}] = receive_all ([]),
-    {undef, [{eg_code, ok, []}, {eg_test_of_code, ok, 0} | _]} = Error,
+    undef = dict: fetch (error, Error),
+    [{eg_code, ok, []} | _] = dict: fetch (stack_trace, Error),
     [{1, 0, 0}, {1, 1, 1}] = send (Root, [eg_code], Tester),
     ok.
@@ -111 +114 @@
     Result = send (Root, Modules, Tester),
     [{1, 0, 0}, Error, {1, 1, 0}] = Result,
-    {{badmatch, bad_eg_code}, _} = Error,
-    
+    {badmatch, bad_eg_code} = dict: fetch (error, Error),
     Result_after_new_test = send (Root, [eg_test_not_exports], Tester),
     [{2, 0, 0}, {2, 1, 1}, Error, {2, 2, 1}] = Result_after_new_test,
-
     New_run = send (Root, [eg_test_of_code], Tester),
     [{3, 0, 0}, {3, 1, 1}, Error, {3, 2, 1}, {3, 3, 2}] = New_run,
+    ok.
+
+provides_failed_test_and_location (Node, Root) ->
+    Tester = spawn_link (tester, init, [notify_me (), Node]),
+    [{2, 0, 0}, {2, 1, 1}, Error, {2, 2, 1}] = send (Root, [eg_test], Tester),
+    Filename = filename: join (Root, "eg_test.erl"),
+    {eg_test, nok, 0, Filename, 6} =  dict: fetch (location, Error),
     ok.