Include the test suites for erl_interface

1 files changed, 218 insertions, 0 deletions

diff --git a/lib/erl_interface/test/ei_connect_SUITE.erl b/lib/erl_interface/test/ei_connect_SUITE.erl
new file mode 100644
index 0000000000..56f478edad
--- /dev/null
+++ b/lib/erl_interface/test/ei_connect_SUITE.erl
@@ -0,0 +1,218 @@
+%%
+%% %CopyrightBegin%
+%% 
+%% Copyright Ericsson AB 2001-2009. All Rights Reserved.
+%% 
+%% The contents of this file are subject to the Erlang Public License,
+%% Version 1.1, (the "License"); you may not use this file except in
+%% compliance with the License. You should have received a copy of the
+%% Erlang Public License along with this software. If not, it can be
+%% retrieved online at http://www.erlang.org/.
+%% 
+%% Software distributed under the License is distributed on an "AS IS"
+%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+%% the License for the specific language governing rights and limitations
+%% under the License.
+%% 
+%% %CopyrightEnd%
+%%
+
+%%
+-module(ei_connect_SUITE).
+
+-include("test_server.hrl").
+-include("ei_connect_SUITE_data/ei_connect_test_cases.hrl").
+
+-export([
+	all/1, 
+	init_per_testcase/2, 
+	fin_per_testcase/2,
+
+	ei_send/1, 
+	ei_reg_send/1, 
+	ei_rpc/1, 
+	rpc_test/1, 
+	ei_send_funs/1,
+	ei_threaded_send/1,
+	ei_set_get_tracelevel/1
+	]).
+
+-import(runner, [get_term/1,send_term/2]).
+
+all(suite) -> [ ei_send, 
+		ei_reg_send, 
+		ei_rpc, 
+		ei_send_funs, 
+		ei_threaded_send,
+		ei_set_get_tracelevel].
+
+init_per_testcase(_Case, Config) ->
+    Dog = ?t:timetrap(?t:minutes(0.25)),
+    [{watchdog, Dog}|Config].
+
+fin_per_testcase(_Case, Config) ->
+    Dog = ?config(watchdog, Config),
+    test_server:timetrap_cancel(Dog),
+    ok.
+
+ei_send(Config) when is_list(Config) ->
+    ?line P = runner:start(?interpret),
+    ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
+    ?line {ok,Fd} = ei_connect(P, node()),
+
+    ?line ok = ei_send(P, Fd, self(), AMsg={a,message}),
+    ?line receive AMsg -> ok end,
+
+    ?line runner:send_eot(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+ei_send_funs(Config) when is_list(Config) ->
+    ?line P = runner:start(?interpret),
+    ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
+    ?line {ok,Fd} = ei_connect(P, node()),
+    
+    ?line Fun1 = fun ei_send/1,
+    ?line Fun2 = fun(X) -> P, X, Fd, Fun1 end,
+
+    ?line AMsg={Fun1,Fun2},
+    %%AMsg={wait_with_funs, new_dist_format},
+    ?line ok = ei_send_funs(P, Fd, self(), AMsg),
+    ?line EIMsg = receive M -> M end,
+    ?line EIMsg = AMsg,
+
+    ?line runner:send_eot(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+ei_reg_send(Config) when is_list(Config) ->
+    ?line P = runner:start(?interpret),
+    ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
+    ?line {ok,Fd} = ei_connect(P, node()),
+
+    ARegName = a_strange_registred_name,
+    ?line register(ARegName, self()),
+    ?line ok = ei_reg_send(P, Fd, ARegName, AMsg={another,[strange],message}),
+    ?line receive AMsg -> ok end,
+
+    ?line runner:send_eot(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+ei_threaded_send(Config) when is_list(Config) ->
+    ?line Einode = filename:join(?config(data_dir, Config), "einode"),
+    ?line N = 15,
+    ?line Host = atom_to_list(node()),
+    ?line spawn_link(fun() -> start_einode(Einode, N, Host) end),
+    ?line TestServerPid = self(),
+    ?line [ spawn_link(fun() -> rec_einode(I, TestServerPid) end)
+	    || I <- lists:seq(0, N-1) ],
+    ?line [ receive I -> ok end
+	    || I <- lists:seq(0, N-1) ],
+    ok.
+
+rec_einode(N, TestServerPid) ->
+    ?line Regname = list_to_atom("mth"++integer_to_list(N)),
+    ?line register(Regname, self()),
+    ?line io:format("~p waiting~n", [Regname]),
+    ?line receive
+	      X ->
+		  ?line io:format("Received by ~s ~p~n", [Regname, X]),
+		  ?line TestServerPid ! N,
+		  ?line X
+	  after 10000 ->
+		  ?line test_server:fail(Regname)
+	  end.
+
+start_einode(Einode, N, Host) ->
+    Einodecmd = Einode ++ " " ++ atom_to_list(erlang:get_cookie())
+	++ " " ++ integer_to_list(N) ++ " " ++ Host,
+    io:format("Einodecmd  ~p ~n", [Einodecmd]),      
+    ?line open_port({spawn, Einodecmd}, []),
+    ok.
+
+ei_rpc(Config) when is_list(Config) ->
+    ?line P = runner:start(?interpret),
+    ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
+    ?line {ok,Fd} = ei_connect(P, node()),
+
+    ?line S= "Hej du glade!", SRev = lists:reverse(S),
+    ?line X = ei_rpc(P, Fd, self(), {?MODULE, rpc_test}, [SRev]),
+    ?line {term, S}= X,
+
+    ?line runner:send_eot(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+ei_set_get_tracelevel(Config) when is_list(Config) ->
+    ?line P = runner:start(?interpret),
+    ?line 5 = ei_set_get_tracelevel(P, 5),
+    ?line 0 = ei_connect_init(P, 42, erlang:get_cookie(), 0),
+    ?line {ok,Fd} = ei_connect(P, node()),
+
+    ?line S= "Hej du glade!", SRev = lists:reverse(S),
+    ?line X = ei_rpc(P, Fd, self(), {?MODULE, rpc_test}, [SRev]),
+    ?line {term, S}= X,
+
+    ?line 0 = ei_set_get_tracelevel(P, 0),
+
+    ?line runner:send_eot(P),
+    ?line runner:recv_eot(P),
+    ok.
+
+
+%%% Interface functions for ei (erl_interface) functions.
+
+ei_connect_init(P, Num, Cookie, Creation) ->
+    send_command(P, ei_connect_init, [Num,Cookie,Creation]),
+    case get_term(P) of
+	{term,Int} when is_integer(Int) -> Int
+    end.
+
+ei_connect(P, Node) ->
+    send_command(P, ei_connect, [Node]),
+    case get_term(P) of
+	{term,{Fd,_}} when Fd >= 0 -> {ok,Fd};
+	{term,{-1,Errno}} -> {error,Errno}
+    end.
+
+ei_set_get_tracelevel(P, Tracelevel) ->
+    send_command(P, ei_set_get_tracelevel, [Tracelevel]),
+    case get_term(P) of
+	{term,{tracelevel, Level}} when is_integer(Level) -> Level
+    end.
+
+ei_send(P, Fd, To, Msg) ->
+    send_command(P, ei_send, [Fd,To,Msg]),
+    get_send_result(P).
+
+ei_send_funs(P, Fd, To, Msg) ->
+    send_command(P, ei_send_funs, [Fd,To,Msg]),
+    get_send_result(P).
+
+ei_reg_send(P, Fd, To, Msg) ->
+    send_command(P, ei_reg_send, [Fd,To,Msg]),
+    get_send_result(P).
+
+ei_rpc(P, Fd, To, Func, Msg) ->
+    send_command(P, ei_rpc, [Fd, To, Func, Msg]),
+    get_term(P).
+
+
+get_send_result(P) ->
+    case get_term(P) of
+	{term,{0,_}} -> ok;
+	{term,{1,_}} -> ok;
+	{term,{-1,Errno}} -> {error,Errno};
+	{term,{Res,Errno}}->
+	    io:format("Return value: ~p\nerl_errno: ~p", [Res,Errno]),
+	    ?t:fail(bad_return_value)
+    end.
+
+send_command(P, Name, Args) ->
+    runner:send_term(P, {Name,list_to_tuple(Args)}).
+
+%%% Test function for RPC
+
+rpc_test(S) ->    
+    lists:reverse(S).