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 | |
| 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')
| -rw-r--r-- | lib/wx/test/wx_basic_SUITE.erl | 4 | ||||
| -rw-r--r-- | lib/wx/test/wx_class_SUITE.erl | 2 |
2 files changed, 4 insertions, 2 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). diff --git a/lib/wx/test/wx_class_SUITE.erl b/lib/wx/test/wx_class_SUITE.erl index 4186d73c88..7c3eda0be1 100644 --- a/lib/wx/test/wx_class_SUITE.erl +++ b/lib/wx/test/wx_class_SUITE.erl @@ -140,7 +140,7 @@ treeCtrl(Config) -> ?m({true, {_,Y1,_,_}} when Y1 > Y0, wxTreeCtrl:getBoundingRect(Tree, Item2)), ?m({Item1, _}, wxTreeCtrl:hitTest(Tree, {X0+W0 div 2, Y0+H0 div 2})), ?m(true, wxTreeCtrl:isTreeItemIdOk(Item1)), - ?m({0, _}, wxTreeCtrl:hitTest(Tree, {X0+W0 div 2, Y0+H0+H0})), + ?m({0, _}, wxTreeCtrl:hitTest(Tree, {X0+W0+W0, Y0+H0+4*H0})), ?m(false, wxTreeCtrl:isTreeItemIdOk(0)), wxFrame:connect(Tree, command_tree_item_expanded), |