Changeset 37 for trunk/src/tester.erl

Timestamp:

08/26/08 18:47:29 (4 years ago)

Author:

dom

Message:

Changed tester to receive list of modules to test, not individual modules.

File:

• trunk/src/tester.erl (modified) (1 diff)

trunk/src/tester.erl

@@ -15 +15 @@
 loop (State) ->
     receive
-        {_, _} = Module ->
-            loop (test (load (Module, State)));
-        _ ->
-            loop (State)
+        Modules ->
+            loop (test (load (Modules, State)))
     end.
 
-load ({File_name, Binary}, State) ->
+load (Modules, State) ->
+    lists: foldl (fun load_aux/2, State, Modules).
+
+load_aux ({File_name, Binary}, State) ->
     {Module, Tests} = tests: filter_by_attribute (Binary),
     Node = dict: fetch (node, State),