diff options
Diffstat (limited to 'lib/wx/test/wx_basic_SUITE.erl')
-rw-r--r-- | lib/wx/test/wx_basic_SUITE.erl | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/lib/wx/test/wx_basic_SUITE.erl b/lib/wx/test/wx_basic_SUITE.erl index ad03a378de..433b705673 100644 --- a/lib/wx/test/wx_basic_SUITE.erl +++ b/lib/wx/test/wx_basic_SUITE.erl @@ -394,10 +394,19 @@ wx_object(Config) -> {call, {Frame,Panel}, _} = wx_object:call(Frame, fun(US) -> US end), ?m(false, wxWindow:getParent(Panel) =:= Frame), ?m(true, wx:equal(wxWindow:getParent(Panel),Frame)), + flush(), + ReqId = wx_object:send_request(Frame, fun(_US) -> timer:sleep(10), yes end), + timeout = wx_object:wait_response(ReqId, 0), + {reply, {call, yes, {Me,{_,ReqId}}}} = wx_object:wait_response(ReqId, 1000), + ReqId2 = wx_object:send_request(Frame, yes), + [Msg] = flush(), + no_reply = wx_object:check_response(Msg, ReqId), + {reply, {call, yes, {Me,{_,ReqId2}}}} = wx_object:check_response(Msg, ReqId2), + FramePid = wx_object:get_pid(Frame), io:format("wx_object pid ~p~n",[FramePid]), FramePid ! foo3, - ?m([{info, foo3}|_], flush()), + ?m([{info, foo3}], flush()), ?m(ok, wx_object:cast(Frame, fun(_) -> hehe end)), ?m([{cast, hehe}|_], flush()), |