diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2011-01-03 16:16:54 +0100 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2011-01-03 16:16:54 +0100 |
| commit | 095d5ebc0f739982b55b95fdd9919a6331b4b2b1 (patch) | |
| tree | 4103f7ed11c37b97fbfe144d75546ae4f661fb49 /lib/erl_interface/test/ei_connect_SUITE.erl | |
| parent | 99372cc4053c2fa7662da2f871c9813fbf45ba7e (diff) | |
| parent | bcbe0813a0b97f86a7db354e09bf0397cf68f787 (diff) | |
| download | otp-095d5ebc0f739982b55b95fdd9919a6331b4b2b1.tar.gz otp-095d5ebc0f739982b55b95fdd9919a6331b4b2b1.tar.bz2 otp-095d5ebc0f739982b55b95fdd9919a6331b4b2b1.zip | |
Merge branch 'vb/ei-exts' into dev
* vb/ei-exts:
Fix testcases erl_global_whereis, erl_global_names
Fix wrong erl_compare_ext result comparing lists
Correct erl_global{register, unregister} functions
Add PID (~p) type parameters to ei_format
Add char (~c) type parameters to ei_format
OTP-9015
Conflicts:
lib/erl_interface/include/ei.h
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). |