Changeset 89 for trunk/src/tester.erl

Timestamp:

08/07/09 06:22:22 (3 years ago)

Author:

dom

Message:

Made tester stop and added a run_once to directory_tester.

File:

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

trunk/src/tester.erl

@@ -15 +15 @@
 loop (State) ->
     receive
-        {notify, Message} ->
-            Notify = dict: fetch (notify, State),
-            Notify (Message),
-            loop (State);
         {delete, Modules} ->
-            loop (test (unload (Modules, State)));
-        {runner_end, New_state} ->
-            loop (New_state);
+            test (unload (Modules, State));
         {run, Modules} ->
-            loop (test (load (Modules, State)))
+            test (load (Modules, State));
+        {Pid, stop} ->
+            Pid ! {self (), bye}
     end.
 
@@ -51 +47 @@
                        end,
     Test_session = spawn (Test_session_fun),
-    dict: store (test_session, Test_session, State_without_pid).
+    dict: store (test_session, Test_session, State_without_pid),
+    loop (receive {runner_end, New_state} -> New_state end).
 
 stop_running_session (State) ->