mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-19 12:43:08 +00:00
5038dcaab0
Sometimes the windows are displayed in the reversed order, which prevents the checks to find the needles and the test fail even if it should pass. This change should address this case.
38 lines
776 B
Perl
38 lines
776 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';
|
|
# 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:
|