diff options
| author | Rickard Green <[email protected]> | 2010-11-02 11:52:22 +0100 |
|---|---|---|
| committer | Rickard Green <[email protected]> | 2010-11-02 11:52:22 +0100 |
| commit | 158ed71a5ddc5050809723a214a8d8c841022871 (patch) | |
| tree | 13f2cfedca8745942abf0572dcbb9044e6ab3df1 /erts/test | |
| parent | 96419fe8c795656c46ba50b1aac92c98acc73a0b (diff) | |
| parent | 8faf1746ece60fc5fa634e5fd16e98df1ef7f3ba (diff) | |
| download | otp-158ed71a5ddc5050809723a214a8d8c841022871.tar.gz otp-158ed71a5ddc5050809723a214a8d8c841022871.tar.bz2 otp-158ed71a5ddc5050809723a214a8d8c841022871.zip | |
Merge branch 'sf/erts_de_busy_limit' into dev
* sf/erts_de_busy_limit:
Add flag-based setting for the distribution buffer busy limit
Diffstat (limited to 'erts/test')
| -rw-r--r-- | erts/test/erlexec_SUITE.erl | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/erts/test/erlexec_SUITE.erl b/erts/test/erlexec_SUITE.erl index 164ce9faaf..6adb865f6d 100644 --- a/erts/test/erlexec_SUITE.erl +++ b/erts/test/erlexec_SUITE.erl @@ -33,7 +33,7 @@ -export([all/1, init_per_testcase/2, fin_per_testcase/2]). --export([args_file/1, evil_args_file/1, env/1, args_file_env/1, otp_7461/1, otp_7461_remote/1, otp_8209/1]). +-export([args_file/1, evil_args_file/1, env/1, args_file_env/1, otp_7461/1, otp_7461_remote/1, otp_8209/1, zdbbl_dist_buf_busy_limit/1]). -include_lib("test_server/include/test_server.hrl"). @@ -53,7 +53,8 @@ fin_per_testcase(_Case, Config) -> all(doc) -> []; all(suite) -> - [args_file, evil_args_file, env, args_file_env, otp_7461, otp_8209]. + [args_file, evil_args_file, env, args_file_env, otp_7461, otp_8209, + zdbbl_dist_buf_busy_limit]. otp_8209(doc) -> @@ -330,6 +331,25 @@ otp_7461_remote([halt, Pid]) -> io:format("halt order from ~p to node ~p\n",[Pid,node()]), halt(). +zdbbl_dist_buf_busy_limit(doc) -> + ["Check +zdbbl flag"]; +zdbbl_dist_buf_busy_limit(suite) -> + []; +zdbbl_dist_buf_busy_limit(Config) when is_list(Config) -> + LimKB = 1122233, + LimB = LimKB*1024, + ?line {ok,[[PName]]} = init:get_argument(progname), + ?line SNameS = "erlexec_test_02", + ?line SName = list_to_atom(SNameS++"@"++ + hd(tl(string:tokens(atom_to_list(node()),"@")))), + ?line Cmd = PName ++ " -sname "++SNameS++" -setcookie "++ + atom_to_list(erlang:get_cookie()) ++ + " +zdbbl " ++ integer_to_list(LimKB), + ?line open_port({spawn,Cmd},[]), + ?line pong = loop_ping(SName,40), + ?line LimB = rpc:call(SName,erlang,system_info,[dist_buf_busy_limit]), + ?line ok = cleanup_node(SNameS, 10), + ok. %% |