1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-12-23 02:33:08 +00:00
os-autoinst-distri-fedora/tests/apps_startstop/kde/kmail.pm

38 lines
783 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that Kmail starts.
sub run {
my $self = shift;
# Start the application
menu_launch_type 'kmail';
# Cancel Kmail data wizard
assert_and_click 'kde_cancel_button', timeout => 60;
# Sometimes, the Kmail window is shown over the settings window.
# If that is the case, assert that Kmail is running and exit.
unless (check_screen("kmail_runs")) {
if (check_screen("kde_cancel_button", 1)) {
click_lastmatch;
}
assert_screen("kmail_runs");
}
else {
assert_screen("kmail_runs");
}
# Close the application
quit_with_shortcut();
}
sub test_flags {
return {always_rollback => 1};
}
1;
# vim: set sw=4 et: