lTesting
l$mock_WxPerlSplashProgress->clear();
lis(
$i->_install_loginscript, 1, '$i->_install_loginscript' );
ldump_mock_calls($mock_IFLDesktopLoginScript);
l$mock_IFLDesktopLoginScript->called_pos_ok(
3, 'install', 'called IFL::Desktop::LoginScript->install' );
ldump_mock_calls($mock_WxPerlSplashProgress);
l$mock_WxPerlSplashProgress->called_pos_ok(
4, 'SetLabel', 'called Wx::Perl::SplashProgress->SetLabel'
);
l$mock_WxPerlSplashProgress->called_args_pos_is(
4, 2, 'Checking login script' );
l$mock_WxPerlSplashProgress->called_pos_ok(
7, 'SetLabel', 'called Wx::Perl::SplashProgress->SetLabel'
);
l$mock_WxPerlSplashProgress->called_args_pos_is(
7, 2, 'Installing login script...' );