diff options
| author | Henrik Nord <[email protected]> | 2011-04-12 10:36:19 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2011-04-12 10:36:59 +0200 |
| commit | 45644a04188fb9e9fae3a6c86b10afac6c739cc2 (patch) | |
| tree | 28977efe2499fe33c05c9548fdaeec0f20f7c1f7 /lib/stdlib/test | |
| parent | f81c717474ae72164ba6d7f3a29a02c47280511f (diff) | |
| parent | 95ed86fc9893460751c5141ff872bdc13814a273 (diff) | |
| download | otp-45644a04188fb9e9fae3a6c86b10afac6c739cc2.tar.gz otp-45644a04188fb9e9fae3a6c86b10afac6c739cc2.tar.bz2 otp-45644a04188fb9e9fae3a6c86b10afac6c739cc2.zip | |
Merge branch 'gc/gen-format-status-improvements' into dev
* gc/gen-format-status-improvements:
Fix format_status bug for unregistered gen_event processes
Conflicts:
lib/stdlib/test/gen_event_SUITE.erl
OTP-9218
Diffstat (limited to 'lib/stdlib/test')
| -rw-r--r-- | lib/stdlib/test/gen_event_SUITE.erl | 21 |
1 files changed, 19 insertions, 2 deletions
diff --git a/lib/stdlib/test/gen_event_SUITE.erl b/lib/stdlib/test/gen_event_SUITE.erl index 9e3e717e7d..b3a7edc140 100644 --- a/lib/stdlib/test/gen_event_SUITE.erl +++ b/lib/stdlib/test/gen_event_SUITE.erl @@ -25,13 +25,14 @@ -export([start/1, add_handler/1, add_sup_handler/1, delete_handler/1, swap_handler/1, swap_sup_handler/1, notify/1, sync_notify/1, call/1, info/1, hibernate/1, - call_format_status/1, error_format_status/1]). + call_format_status/1, call_format_status_anon/1, + error_format_status/1]). suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [start, {group, test_all}, hibernate, - call_format_status, error_format_status]. + call_format_status, call_format_status_anon, error_format_status]. groups() -> [{test_all, [], @@ -888,6 +889,22 @@ call_format_status(Config) when is_list(Config) -> ?line {"Installed handlers", [{_,dummy1_h,_,FmtState,_}]} = HandlerInfo2, ok. +call_format_status_anon(suite) -> + []; +call_format_status_anon(doc) -> + ["Test that sys:get_status/1,2 calls format_status/2 for anonymous gen_event processes"]; +call_format_status_anon(Config) when is_list(Config) -> + ?line {ok, Pid} = gen_event:start(), + %% The 'Name' of the gen_event process will be a pid() here, so + %% the next line will crash if format_status can't string-ify pids. + ?line Status1 = sys:get_status(Pid), + ?line ok = gen_event:stop(Pid), + Header = "Status for event handler " ++ pid_to_list(Pid), + ?line {status, Pid, _, [_, _, Pid, [], Data1]} = Status1, + ?line Header = proplists:get_value(header, Data1), + ok. + + error_format_status(suite) -> []; error_format_status(doc) -> |