Changeset 41 for trunk

Timestamp:

09/20/08 08:52:25 (4 years ago)

Author:

charpi

Message:

Allow the test node to be a slave

File:

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

trunk/src/shells.erl

@@ -3 +3 @@
 
 install ([Test_node]) ->
-%xs    process_flag(trap_exit, false),  % called with erl -s shells install
     try
         Self = self (),
-        spawn_link (fun () -> tests (Test_node, Self) end),
+        spawn_link (fun () -> tests (test_node (Test_node), Self) end),
         receive {Self, done} -> ok;
                 M -> io:fwrite ("tests_crash: ~p~n", [M])
@@ -21 +20 @@
     receive_all (),
     io: fwrite ("done~n", []).
+
+test_node (Node) ->
+    case net_adm: ping(Node) of
+        pong ->
+            Node;
+        pang ->
+            [Name, Host] = string: tokens (atom_to_list (Node), "@"),
+            {ok, Real_node} = slave: start (Host, Name),
+            Real_node
+    end.
 
 tests (Test_node, Caller) ->