os-autoinst-distri-rocky-mi.../tests/apps_startstop/kde/kmouth.pm

37 lines
720 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that Kmouth starts.
sub run {
my $self = shift;
# Start the application
menu_launch_type 'kmouth';
sleep 2;
# Deal with the welcome screens
assert_screen ["kde_next", "kde_finish"];
while (match_has_tag "kde_next") {
assert_and_click "kde_next";
sleep 2;
assert_screen ["kde_next", "kde_finish"];
}
# Settings close
assert_and_click 'kde_finish';
wait_still_screen 2;
# Check that it is started
assert_screen 'kmouth_runs';
# Close the application
quit_with_shortcut();
}
sub test_flags {
return {always_rollback => 1};
}
1;
# vim: set sw=4 et: