diff options
| author | xuming <[email protected]> | 2016-04-25 21:04:09 +0800 |
|---|---|---|
| committer | Zandra <[email protected]> | 2016-04-26 16:33:32 +0200 |
| commit | a52df823097eb0f8820f4e4d1cbe73b7754d735a (patch) | |
| tree | 29443d464ba0dd9022fa185b419074af2b069400 | |
| parent | 77bbf2f1412dd75add960ca3208a9eba9f6f36d6 (diff) | |
| download | otp-a52df823097eb0f8820f4e4d1cbe73b7754d735a.tar.gz otp-a52df823097eb0f8820f4e4d1cbe73b7754d735a.tar.bz2 otp-a52df823097eb0f8820f4e4d1cbe73b7754d735a.zip | |
Update global_group_SUITE.erl
| -rw-r--r-- | lib/kernel/test/global_group_SUITE.erl | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/kernel/test/global_group_SUITE.erl b/lib/kernel/test/global_group_SUITE.erl index 06a5b7fcfe..594ee6b537 100644 --- a/lib/kernel/test/global_group_SUITE.erl +++ b/lib/kernel/test/global_group_SUITE.erl @@ -1153,6 +1153,16 @@ test_exit(Config) when is_list(Config) -> rpc:call(Cp1, global_group, send, [king, "The message"]), undefined = rpc:call(Cp1, global_group, whereis_name, [king]), + % make sure the search process really exits after every global_group operations + ProcessCount0 = rpc:call(Cp1, erlang, system_info, [process_count]), + _ = rpc:call(Cp1, global_group, whereis_name, [{node, Cp1nn}, whatever_pid_name]), + ProcessCount1 = rpc:call(Cp1, erlang, system_info, [process_count]), + _ = rpc:call(Cp1, global_group, registered_names, [{node, Cp1nn}]), + ProcessCount2 = rpc:call(Cp1, erlang, system_info, [process_count]), + _ = rpc:call(Cp1, global_group, send, [{node, Cp1nn}, whatever_pid_name, msg]), + ProcessCount3 = rpc:call(Cp1, erlang, system_info, [process_count]), + ProcessCount0 = ProcessCount1 = ProcessCount2 = ProcessCount3, + %% stop the nodes, and make sure names are released. stop_node(Cp1), stop_node(Cp2), |