diff options
| author | Dan Gudmundsson <[email protected]> | 2013-02-26 13:15:23 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2013-02-26 14:03:45 +0100 |
| commit | 35fb992358a5fbfaedd3af55288386855c948227 (patch) | |
| tree | 2c6a3d14516dda6cb7ef81f1c8323ea1c5c23d9f /lib/wx/test/wx_basic_SUITE.erl | |
| parent | 27db861821db111d0f0355ae5c1bbb08b0f892af (diff) | |
| download | otp-35fb992358a5fbfaedd3af55288386855c948227.tar.gz otp-35fb992358a5fbfaedd3af55288386855c948227.tar.bz2 otp-35fb992358a5fbfaedd3af55288386855c948227.zip | |
wx: Fix failing testcases
Fix bad hit test.
Fix timing issue in test.
Diffstat (limited to 'lib/wx/test/wx_basic_SUITE.erl')
| -rw-r--r-- | lib/wx/test/wx_basic_SUITE.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/wx/test/wx_basic_SUITE.erl b/lib/wx/test/wx_basic_SUITE.erl index cf17818a9d..d55a037599 100644 --- a/lib/wx/test/wx_basic_SUITE.erl +++ b/lib/wx/test/wx_basic_SUITE.erl @@ -2,7 +2,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2008-2012. All Rights Reserved. +%% Copyright Ericsson AB 2008-2013. 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 @@ -100,6 +100,7 @@ several_apps(Config) -> || N <- lists:seq(1,4)], process_flag(trap_exit,true), ?m_multi_receive([{complete,Pid} || Pid <- Pids]), + [Pid ! quit || Pid <- Pids], case wx_test_lib:user_available(Config) of true -> receive {'EXIT',_,foo} -> ok end; @@ -118,6 +119,7 @@ several_apps(Parent, N, Config) -> #wx{obj=Frame, event=#wxSize{}} -> Parent ! {complete, self()} end, + receive quit -> ok end, wx_test_lib:wx_destroy(Frame, Config), exit(foo). |