diff options
author | Dan Gudmundsson <dgud@erlang.org> | 2014-02-10 12:25:41 +0100 |
---|---|---|
committer | Dan Gudmundsson <dgud@erlang.org> | 2014-02-13 16:42:36 +0100 |
commit | 7f68f9862f133e07e4b847c91c52fcf81aee79d5 (patch) | |
tree | 7770a9470fe9b977aa307dff3097c259d1db1282 /lib | |
parent | 4fbfbb1c617925d5edd1c2d5751675c0d6b88004 (diff) | |
download | otp-7f68f9862f133e07e4b847c91c52fcf81aee79d5.tar.gz otp-7f68f9862f133e07e4b847c91c52fcf81aee79d5.tar.bz2 otp-7f68f9862f133e07e4b847c91c52fcf81aee79d5.zip |
wx: Test fixes compilation warning
and more dbg info
Diffstat (limited to 'lib')
-rw-r--r-- | lib/wx/test/wx_basic_SUITE.erl | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/lib/wx/test/wx_basic_SUITE.erl b/lib/wx/test/wx_basic_SUITE.erl index 79dbea0575..7bdbd4594c 100644 --- a/lib/wx/test/wx_basic_SUITE.erl +++ b/lib/wx/test/wx_basic_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2013. All Rights Reserved. +%% Copyright Ericsson AB 2008-2014. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -98,8 +98,23 @@ several_apps(Config) -> Pids = [spawn_link(fun() -> several_apps(Parent, N, Config) end) || N <- lists:seq(1,4)], process_flag(trap_exit,true), - ?m_multi_receive([{complete,Pid} || Pid <- Pids]), + Wait = fun(Pid,Acc) -> + receive {complete, Pid} -> Acc + after 20000 -> [Pid|Acc] + end + end, + Res = lists:foldl(Wait, [], Pids), [Pid ! quit || Pid <- Pids], + + Dbg = fun(Pid) -> + io:format("Stack ~p~n",[erlang:process_info(Pid, current_stacktrace)]), + io:format("Stack ~p~n",[erlang:process_info(Pid)]) + end, + case Res of + [] -> ok; + Failed -> + [Dbg(Pid)|| Pid <- Failed] + end, case wx_test_lib:user_available(Config) of true -> receive {'EXIT',_,foo} -> ok end; @@ -216,7 +231,7 @@ create_menus(Frame) -> %% Test the wx_misc.erl api functionality. wx_misc(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); -wx_misc(Config) -> +wx_misc(_Config) -> wx:new([{debug, trace}]), put(wx_test_verbose, true), ?m(ok, wx_misc:bell()), |