lMocking
my ($mock_wx_activex_ie, $mock_wx_activex_ie_object)
=
mock_module('Wx::ActiveX::IE',{});
my ($mock_wx_activex_event,
$mock_wx_activex_event_object)
=
mock_module('Wx::ActiveX::Event',{},@Wx::Event::EXPORT_OK);
my ($mock_wx_panel,$mock_wx_panel_object)
=
mock_module('Wx::Panel',{}, qw( SetSizer ));
my ($mock_wx_boxsizer,$mock_wx_boxsizer_object)
=
mock_module('Wx::BoxSizer',{}, qw( Add ));
l
lTests - use
your objects as normal
then check call
sequence
my @mf_calls =
$logger->filter({'FLIPClient::UI::MicroForms' => []});
my $call = shift(@mf_calls);
is($call->{function},'set_template','position_change ('
. $test->{name} . ') calls set_template');
ok($call->{args}->[1] =~
$test->{template},'position_change (' . $test->{name} . ') sets template');
$call = shift(@mf_calls);
is($call->{function},'set_data','position_change (' .
$test->{name} . ') calls set_data');
is_deeply($call->{args}->[1],$test->{data},'position_change
(' . $test->{name} . ') sets data');