Changeset 40 for trunk

Timestamp:

09/20/08 08:44:36 (4 years ago)

Author:

charpi

Message:

Force the tester to notify something

Location:

trunk/src

Files:

• shells.erl (modified) (1 diff)
• tester.erl (modified) (1 diff)
• tester_test.erl (modified) (2 diffs)

trunk/src/shells.erl

@@ -33 +33 @@
     ok = tester_test: deletes_a_module (Test_node),
     ok = tester_test: deletes_a_test_module (Test_node),
+    ok = tester_test: notifies_a_message (Test_node),
     Caller ! {Caller, done}.
     

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)));

trunk/src/tester_test.erl

@@ -9 +9 @@
 -export ([deletes_a_module /1]).
 -export ([deletes_a_test_module /1]).
+-export ([notifies_a_message /1]).
 
 start_tester (Node) ->
@@ -86 +87 @@
     ok.
 
+notifies_a_message (Node) ->
+    Tester = start_tester (Node),
+    Test_message = "this is a message",
+    Tester ! {notify, Test_message},
+    [Test_message] = receive_something ([], 1),
+    ok.
+
+receive_something (Ms, Delay) ->
+    receive
+        M ->
+            receive_something ([M|Ms], Delay)
+    after Delay ->
+            lists: reverse (Ms)
+    end.
+
 receive_all (Ms) ->
     receive