From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001 From: Erlang/OTP Date: Fri, 20 Nov 2009 14:54:40 +0000 Subject: The R13B03 release. --- lib/wx/test/wx_event_SUITE.erl | 331 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 331 insertions(+) create mode 100644 lib/wx/test/wx_event_SUITE.erl (limited to 'lib/wx/test/wx_event_SUITE.erl') diff --git a/lib/wx/test/wx_event_SUITE.erl b/lib/wx/test/wx_event_SUITE.erl new file mode 100644 index 0000000000..dea10d892e --- /dev/null +++ b/lib/wx/test/wx_event_SUITE.erl @@ -0,0 +1,331 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-2009. 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 +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%%%------------------------------------------------------------------- +%%% File : wx_event_SUITE.erl +%%% Author : Dan Gudmundsson +%%% Description : Test event handling as much as possible +%%% Created : 3 Nov 2008 by Dan Gudmundsson +%%%------------------------------------------------------------------- +-module(wx_event_SUITE). +-export([all/0, init_per_suite/1, end_per_suite/1, + init_per_testcase/2, fin_per_testcase/2, end_per_testcase/2]). + +-compile(export_all). + +-include("wx_test_lib.hrl"). + +%% Initialization functions. +init_per_suite(Config) -> + wx_test_lib:init_per_suite(Config). + +end_per_suite(Config) -> + wx_test_lib:end_per_suite(Config). + +init_per_testcase(Func,Config) -> + wx_test_lib:init_per_testcase(Func,Config). +end_per_testcase(Func,Config) -> + wx_test_lib:end_per_testcase(Func,Config). +fin_per_testcase(Func,Config) -> %% For test_server + wx_test_lib:end_per_testcase(Func,Config). + +%% SUITE specification +all() -> + all(suite). +all(suite) -> + [ + connect, + disconnect, + connect_msg_20, + connect_cb_20, + mouse_on_grid, + spin_event, + connect_in_callback + ]. + +%% The test cases + +%% Test that the various options to connect work as expected. +connect(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +connect(Config) -> + ?mr(wx_ref, wx:new()), + Frame = ?mt(wxFrame, wxFrame:new(wx:null(), 1, "Event Testing")), + Panel = ?mt(wxPanel, wxPanel:new(Frame)), + Window = wxWindow:new(Panel, -1), + + Tester = self(), + CB = fun(#wx{event=#wxSize{},userData=UserD}, SizeEvent) -> + ?mt(wxSizeEvent, SizeEvent), + Tester ! {got_size, UserD} + end, + + ?m(ok, wxFrame:connect(Frame, size)), + ?m(ok, wxEvtHandler:connect(Panel, size,[{skip, true},{userData, panel}])), + ?m(ok, wxEvtHandler:connect(Panel, size,[{callback,CB},{userData, panel}])), + + ?m({'EXIT', {{badarg,_},_}}, + wxEvtHandler:connect(Panel, there_is_no_such_event)), + + ?m({'EXIT', {{badarg,_},_}}, + wxEvtHandler:connect(Panel, there_is_no_such_event, [{callback,CB}])), + + ?m(ok, wxWindow:connect(Window, size,[{callback,CB},{userData, window}])), + ?m(ok, wxWindow:connect(Window, size,[{skip,true},{userData, window}])), + + ?m(true, wxFrame:show(Frame)), + + wxWindow:setSize(Panel, {200,100}), + wxWindow:setSize(Window, {200,100}), + + get_size_messages(Frame, [frame, panel_cb, window_cb, window]), + + wx_test_lib:wx_destroy(Frame, Config). + +get_size_messages(_, []) -> ok; +get_size_messages(Frame, Msgs) -> + receive + #wx{obj=Frame,event=#wxSize{}} -> %% ok + get_size_messages(Frame, lists:delete(frame, Msgs)); + #wx{userData=window, event=#wxSize{}} -> + ?m(true, lists:member(window_cb, Msgs)), + get_size_messages(Frame, lists:delete(window, Msgs)); + #wx{userData=panel, event=#wxSize{}} -> + ?m(true, lists:member(panel, Msgs)), + get_size_messages(Frame, lists:delete(panel, Msgs)); + {got_size,window} -> + ?m(false, lists:member(window, Msgs)), + get_size_messages(Frame, lists:delete(window_cb, Msgs)); + {got_size,panel} -> + get_size_messages(Frame, lists:delete(panel_cb, Msgs)); + Other -> + ?error("Got unexpected msg ~p ~p~n", [Other,Msgs]) + after 1000 -> + ?error("Timeout ~p~n", [Msgs]) + end. + +disconnect(TestInfo) when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +disconnect(Config) -> + ?mr(wx_ref, wx:new()), + Frame = ?mt(wxFrame, wxFrame:new(wx:null(), 1, "Event Testing")), + Panel = ?mt(wxPanel, wxPanel:new(Frame)), + + Tester = self(), + CB = fun(#wx{event=#wxSize{},userData=UserD}, SizeEvent) -> + ?mt(wxSizeEvent, SizeEvent), + Tester ! {got_size, UserD} + end, + ?m(ok, wxFrame:connect(Frame, close_window)), + ?m(ok, wxFrame:connect(Frame, size)), + ?m(ok, wxEvtHandler:connect(Panel, size,[{skip, true},{userData, panel}])), + ?m(ok, wxEvtHandler:connect(Panel, size,[{callback,CB},{userData, panel}])), + + ?m(true, wxFrame:show(Frame)), + + wxWindow:setSize(Panel, {200,100}), + get_size_messages(Frame, [frame, panel_cb]), + wx_test_lib:flush(), + + ?m(true, wxEvtHandler:disconnect(Panel, size, [{callback,CB}])), + ?m(ok, wxWindow:setSize(Panel, {200,101})), + get_size_messages(Frame, [panel]), + timer:sleep(1000), + wx_test_lib:flush(), + + ?m({'EXIT', {{badarg,_},_}}, wxEvtHandler:disconnect(Panel, non_existing_event_type)), + ?m(true, wxEvtHandler:disconnect(Panel, size)), + ?m(ok, wxWindow:setSize(Panel, {200,102})), + timer:sleep(1000), + ?m([], wx_test_lib:flush()), + + wx_test_lib:wx_destroy(Frame, Config). + + + +%% Test that the msg events are forwarded as supposed to +connect_msg_20(TestInfo) + when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +connect_msg_20(Config) -> + ?mr(wx_ref, wx:new()), + Frame = ?mt(wxFrame, wxFrame:new(wx:null(), 1, "Event 20 Testing")), + Tester = self(), + Env = wx:get_env(), + + EvtHandler = fun() -> + wx:set_env(Env), + wxFrame:connect(Frame,size,[{skip,true}]), + Tester ! initiated, + receive #wx{obj=Frame,event=#wxSize{}} -> + Tester ! got_it + end + end, + Msgs = [begin spawn_link(EvtHandler), got_it end|| _ <- lists:seq(1,20)], + + ?m_multi_receive(lists:duplicate(20, initiated)), + ?m(true, wxFrame:show(Frame)), + + ?m_multi_receive(Msgs), + wx_test_lib:wx_destroy(Frame, Config). + +%% Test that the callbacks works as msgs +connect_cb_20(TestInfo) + when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +connect_cb_20(Config) -> + ?mr(wx_ref, wx:new()), + Frame = ?mt(wxFrame, wxFrame:new(wx:null(), 1, "Event 20 Testing")), + Tester = self(), + Env = wx:get_env(), + + wxFrame:connect(Frame,size,[{callback, + fun(#wx{event=#wxSize{}},_SizeEv) -> + Tester ! main_got_it + end}]), + + EvtHandler = fun() -> + wx:set_env(Env), + Self = self(), + CB = fun(#wx{event=#wxSize{}}, + WxSizeEventObj) -> + wxEvent:skip(WxSizeEventObj), + Tester ! got_it, + Self ! quit + end, + wxFrame:connect(Frame,size,[{callback, CB}]), + Tester ! initiated, + receive quit -> ok + end + end, + Msgs = [begin spawn_link(EvtHandler), got_it end|| _ <- lists:seq(1,20)], + + ?m_multi_receive(lists:duplicate(20, initiated)), + ?m(true, wxFrame:show(Frame)), + + ?m_multi_receive(Msgs), + ?m_receive(main_got_it), + + wx_test_lib:wx_destroy(Frame, Config). + + +mouse_on_grid(TestInfo) + when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +mouse_on_grid(Config) -> + Wx = ?mr(wx_ref, wx:new()), + + Frame = wxFrame:new(Wx, ?wxID_ANY, "Frame"), + Panel = wxPanel:new(Frame, []), + Sizer = wxBoxSizer:new(?wxVERTICAL), + + Grid = wxGrid:new(Panel, ?wxID_ANY), + wxGrid:createGrid(Grid, 10, 10, []), + wxSizer:add(Sizer, Grid, [{proportion, 1}]), + + wxWindow:connect(Panel, motion), + wxWindow:connect(Panel, middle_down), + + %% Undocumented function + GridWindow = ?mt(wxWindow, wxGrid:getGridWindow(Grid)), + wxWindow:connect(GridWindow, motion), + wxWindow:connect(GridWindow, middle_down), + + wxWindow:setSizerAndFit(Panel, Sizer), + wxFrame:show(Frame), + + wx_test_lib:wx_destroy(Frame, Config). + + +spin_event(TestInfo) + when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +spin_event(Config) -> + Wx = ?mr(wx_ref, wx:new()), + + %% Spin events and scrollEvent share some events id's + %% test that they work + + Frame = wxFrame:new(Wx, ?wxID_ANY, "Spin Events"), + Panel = wxPanel:new(Frame, []), + Sizer = wxBoxSizer:new(?wxVERTICAL), + HSz = wxBoxSizer:new(?wxHORIZONTAL), + + SB = wxSpinButton:new(Panel, [{id, 100}]), + wxSizer:add(HSz, SB, []), + wxSpinButton:connect(SB, spin), + wxSpinButton:connect(SB, spin_up), + wxSpinButton:connect(SB, spin_down), + + SC = wxSpinCtrl:new(Panel, [{id, 101}, {min, -12}, {max, 12}, + {value, "-3"}, {initial, 3}, + {style, ?wxSP_ARROW_KEYS bor ?wxSP_WRAP}]), + wxSpinCtrl:connect(SC, command_spinctrl_updated), + wxSizer:add(HSz, SC, [{proportion, 1}, {flag, ?wxEXPAND}]), + wxSizer:add(Sizer, HSz, [{proportion, 0},{flag, ?wxEXPAND}]), + + SL = wxSlider:new(Panel, 102, 57, 22, 99), + wxSlider:connect(SL, scroll_thumbtrack), + wxSlider:connect(SL, scroll_lineup), + wxSlider:connect(SL, scroll_linedown), + wxSizer:add(Sizer, SL, [{proportion, 0},{flag, ?wxEXPAND}]), + + wxWindow:setSizerAndFit(Panel, Sizer), + wxFrame:show(Frame), + wx_test_lib:flush(), + +%% Set value does not generate a spin event... +%% wxSpinButton:setValue(SB, 7), +%% ?m_receive(#wx{id=100, event=#wxSpin{type=spin}}), +%% wxSpinCtrl:setValue(SC, 8), +%% ?m_receive(#wx{id=101, event=#wxSpin{type=command_spinctrl_updated}}), +%% wxSlider:setValue(SL, 29), +%% ?m_receive(#wx{id=102, event=#wxScroll{}}), + + wx_test_lib:wx_destroy(Frame, Config). + + +%% Test that we can connect to events from inside a callback fun +%% This is needed for example inside a callback that does a wxWindow:popupMenu/2 +connect_in_callback(TestInfo) + when is_atom(TestInfo) -> wx_test_lib:tc_info(TestInfo); +connect_in_callback(Config) -> + Wx = ?mr(wx_ref, wx:new()), + Frame = wxFrame:new(Wx, ?wxID_ANY, "Connect in callback"), + Panel = wxPanel:new(Frame, []), + + wxFrame:connect(Frame,size, + [{callback, + fun(#wx{event=#wxSize{}},_SizeEv) -> + io:format("Frame got size~n",[]), + F1 = wxFrame:new(Frame, ?wxID_ANY, "Frame size event"), + CBPid = self(), + wxFrame:connect(F1,size,[{callback, + fun(_,_) -> + io:format("CB2 got size~n",[]), + CBPid ! continue + end}]), + wxWindow:show(F1), + receive continue -> wxFrame:destroy(F1) end + end}]), + wxPanel:connect(Panel,size, + [{callback, + fun(#wx{event=#wxSize{}},_SizeEv) -> + io:format("Panel got size~n",[]), + F1 = wxFrame:new(Frame, ?wxID_ANY, "Panel size event"), + wxFrame:connect(F1,size), + wxWindow:show(F1), + receive #wx{event=#wxSize{}} -> wxFrame:destroy(F1) end + end}]), + wxFrame:show(Frame), + wx_test_lib:flush(), + + wx_test_lib:wx_destroy(Frame, Config). -- cgit v1.2.3