diff options
| author | Siri Hansen <[email protected]> | 2017-09-19 16:29:33 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-19 16:29:33 +0200 |
| commit | 8b24be58d37a8912efdcec9cd1e354cfa41e4ef4 (patch) | |
| tree | 4dd56d366268fbb37e12ea9d564e9f24b81566aa /lib/observer/test/observer_SUITE.erl | |
| parent | 6d11362936408091aa7108c252f2f7bf20cdc327 (diff) | |
| parent | 3979e914660993a06f1a84dd6e4196181964609a (diff) | |
| download | otp-8b24be58d37a8912efdcec9cd1e354cfa41e4ef4.tar.gz otp-8b24be58d37a8912efdcec9cd1e354cfa41e4ef4.tar.bz2 otp-8b24be58d37a8912efdcec9cd1e354cfa41e4ef4.zip | |
Merge branch 'maint'
Conflicts:
lib/observer/src/crashdump_viewer.erl
lib/sasl/src/sasl.appup.src
lib/stdlib/src/stdlib.appup.src
Diffstat (limited to 'lib/observer/test/observer_SUITE.erl')
| -rw-r--r-- | lib/observer/test/observer_SUITE.erl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl index 41726b1521..0db2c1ea77 100644 --- a/lib/observer/test/observer_SUITE.erl +++ b/lib/observer/test/observer_SUITE.erl @@ -115,6 +115,7 @@ basic(doc) -> [""]; basic(Config) when is_list(Config) -> timer:send_after(100, "foobar"), %% Otherwise the timer server gets added to procs ProcsBefore = processes(), + ProcInfoBefore = [{P,process_info(P)} || P <- ProcsBefore], NumProcsBefore = length(ProcsBefore), ok = observer:start(), @@ -145,8 +146,10 @@ basic(Config) when is_list(Config) -> ProcsAfter = processes(), NumProcsAfter = length(ProcsAfter), if NumProcsAfter=/=NumProcsBefore -> + BeforeNotAfter = ProcsBefore -- ProcsAfter, ct:log("Before but not after:~n~p~n", - [[{P,process_info(P)} || P <- ProcsBefore -- ProcsAfter]]), + [[{P,I} || {P,I} <- ProcInfoBefore, + lists:member(P,BeforeNotAfter)]]), ct:log("After but not before:~n~p~n", [[{P,process_info(P)} || P <- ProcsAfter -- ProcsBefore]]), ct:fail("leaking processes"); @@ -304,10 +307,10 @@ table_win(Config) when is_list(Config) -> %% Test PR-1296/OTP-14151 %% Clicking a link to a port before the port tab has been activated the %% first time crashes observer. -port_win_when_tab_not_initiated(Config) -> +port_win_when_tab_not_initiated(_Config) -> {ok,Port} = gen_tcp:listen(0,[]), ok = observer:start(), - Notebook = setup_whitebox_testing(), + _Notebook = setup_whitebox_testing(), observer ! {open_link,erlang:port_to_list(Port)}, timer:sleep(1000), observer:stop(), |