diff options
| author | Vitaliy Batichko <[email protected]> | 2010-11-23 18:44:24 +0200 |
|---|---|---|
| committer | Vitaliy Batichko <[email protected]> | 2010-12-08 20:15:50 +0200 |
| commit | 95392e693e210189df82173c9bcd345b58b004fe (patch) | |
| tree | 5bc44e021138b21883ddb70ee95bc1410dc272fa /lib/erl_interface/test/ei_connect_SUITE.erl | |
| parent | ad5b84bd154e27d9e4db3af12b8b4326c564b2bf (diff) | |
| download | otp-95392e693e210189df82173c9bcd345b58b004fe.tar.gz otp-95392e693e210189df82173c9bcd345b58b004fe.tar.bz2 otp-95392e693e210189df82173c9bcd345b58b004fe.zip | |
Add PID (~p) type parameters to ei_format
Diffstat (limited to 'lib/erl_interface/test/ei_connect_SUITE.erl')
| -rw-r--r-- | lib/erl_interface/test/ei_connect_SUITE.erl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/lib/erl_interface/test/ei_connect_SUITE.erl b/lib/erl_interface/test/ei_connect_SUITE.erl index fe82a73ef9..3c72188e16 100644 --- a/lib/erl_interface/test/ei_connect_SUITE.erl +++ b/lib/erl_interface/test/ei_connect_SUITE.erl @@ -30,6 +30,7 @@ ei_send/1, ei_reg_send/1, + ei_format_pid/1, ei_rpc/1, rpc_test/1, ei_send_funs/1, @@ -41,6 +42,7 @@ all(suite) -> [ ei_send, ei_reg_send, + ei_format_pid, ei_rpc, ei_send_funs, ei_threaded_send, @@ -67,6 +69,19 @@ ei_send(Config) when is_list(Config) -> ?line runner:recv_eot(P), ok. +ei_format_pid(Config) when is_list(Config) -> + ?line S = self(), + ?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_format_pid(P, Fd, S), + ?line receive S -> 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), @@ -189,6 +204,10 @@ ei_send(P, Fd, To, Msg) -> send_command(P, ei_send, [Fd,To,Msg]), get_send_result(P). +ei_format_pid(P, Fd, To) -> + send_command(P, ei_format_pid, [Fd, To]), + get_send_result(P). + ei_send_funs(P, Fd, To, Msg) -> send_command(P, ei_send_funs, [Fd,To,Msg]), get_send_result(P). |