Changeset 34 for trunk/src/tester.erl

Timestamp:

08/22/08 18:46:07 (4 years ago)

Author:

dom

Message:

Removed everything related to fixtures while the concept matures a bit.

File:

• trunk/src/tester.erl (modified) (3 diffs)

trunk/src/tester.erl

@@ -22 +22 @@
 
 load ({File_name, Binary}, State) ->
-    {Module, Functions} = tests: filter_by_attribute (Binary),
+    {Module, Tests} = tests: filter_by_attribute (Binary),
     Node = dict: fetch (node, State),
     Load_args = [Module, File_name, Binary],
     {module, Module} = rpc: call (Node, code, load_binary, Load_args),
-    New_tests = dict: store (Module, Functions, dict: fetch (tests, State)),
+    New_tests = dict: store (Module, Tests, dict: fetch (tests, State)),
     dict: store (tests, New_tests, State).
 
 test (State) ->
-    {Total, Tests} = flatten (dict: fetch (tests, State)),
+    Test_dict = dict: fetch (tests, State),
+    {Total, Tests} = flatten (Test_dict),
     Notify = dict: fetch (notify, State),
     Notify ({Total, 0, 0}),
@@ -37 +38 @@
 
 flatten (Tests) ->
-    F = fun (_, Ts, {Count, List}) ->
-                {Count + length (Ts), [Ts | List]}
+    F = fun (Module, Ts, {Count, List}) ->
+                {Count + length (Ts), [[{Module, T} || T <- Ts] | List]}
         end,
     {Total, All} = dict: fold (F, {0, []}, Tests),
@@ -46 +47 @@
     Node = dict: fetch (node, State),
     Notify = dict: fetch (notify, State),
-    fun ({M, F, A}, {Run, Passed}) ->
-            Pid = spawn_link (Node, M, F, A),
+    fun ({Module, Function}, {Run, Passed}) ->
+            Pid = spawn_link (Node, Module, Function, []),
             New_passed =
                 receive