diff options
| author | Siri Hansen <[email protected]> | 2017-09-18 15:07:34 +0200 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2017-09-18 15:07:34 +0200 |
| commit | de4e620a3fbd40e598d8f7da01258979246d0bd0 (patch) | |
| tree | 258baa3947db900a66717cb50dae7b11deb6ed59 | |
| parent | 3a2a22eaebdebe5bf46fa7aaea57532543c5039f (diff) | |
| download | otp-de4e620a3fbd40e598d8f7da01258979246d0bd0.tar.gz otp-de4e620a3fbd40e598d8f7da01258979246d0bd0.tar.bz2 otp-de4e620a3fbd40e598d8f7da01258979246d0bd0.zip | |
observer: Improve debugging code in test suite
| -rw-r--r-- | lib/observer/test/observer_SUITE.erl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lib/observer/test/observer_SUITE.erl b/lib/observer/test/observer_SUITE.erl index 234cf96298..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"); |