022865ab9f
This is doing slightly less to exercise the launcher menus and see whether icons appear or disappear, but it's much faster and more reliable. We do still use menu launch for one app, just to check the mechanism works in general.
36 lines
754 B
Perl
36 lines
754 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This test checks that Kontact starts.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
|
|
# Start the application
|
|
menu_launch_type 'kontact';
|
|
# Enable unified mailboxes, if they appear
|
|
if (check_screen("enable_unified_mailboxes", 1)) {
|
|
assert_and_click "enable_unified_mailboxes";
|
|
}
|
|
# Get rid of personal data
|
|
assert_and_click 'kontact_provide_data';
|
|
if (check_screen("enable_unified_mailboxes", 1)) {
|
|
assert_and_click "enable_unified_mailboxes";
|
|
}
|
|
# Check that it is started
|
|
assert_screen 'kontact_runs';
|
|
# Close the application
|
|
quit_with_shortcut();
|
|
}
|
|
|
|
sub test_flags {
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|