Changeset 89 for trunk/src/tester_test.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_test.erl (modified) (3 diffs)

trunk/src/tester_test.erl

@@ -28 +28 @@
             deletes_a_module  (Node, Root),
             deletes_a_test_module  (Node, Root),
-            notifies_a_message  (Node, Root),
             runs_new_tests_failed_then_successful  (Node, Root),
+            stops (Node, Root),
             ok
     end.
@@ -104 +104 @@
     ok.
 
-notifies_a_message (Node, _) ->
-    Tester = spawn_link (tester, init, [notify_me (), Node]),
-    Test_message = "this is a message",
-    Tester ! {notify, Test_message},
-    [Test_message] = receive_something ([], 1),
-    ok.
-
 runs_new_tests_failed_then_successful (Node, Root) ->
     Tester = spawn_link (tester, init, [notify_me (), Node]),
@@ -125 +118 @@
     ok.
 
-receive_something (Ms, Delay) ->
-    receive
-        M ->
-            receive_something ([M|Ms], Delay)
-    after Delay ->
-            lists: reverse (Ms)
-    end.
-
+stops (Node, Root) ->
+    Tester = spawn_link (tester, init, [notify_me (), Node]),
+    Modules = [eg_code, eg_test_of_code],
+    Paths = [modules: to_file_name (M, Root) || M <- Modules],
+    Binaries = [modules: to_binary (P) || P <- Paths],
+    Tester ! {run, Binaries},
+    Tester ! {self (), stop},
+    Results = receive_all ([]),
+    [{1, 0, 0}, {1, 1, 1}] = Results,
+    ok = receive {Tester, bye} -> ok after 100 -> timeout end.
+                 
 receive_all (Ms) ->
     receive