mirror of
https://github.com/rocky-linux/os-autoinst-distri-rocky.git
synced 2024-12-28 05:20:56 +00:00
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.
47 lines
1 KiB
Perl
47 lines
1 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This test checks that Kgpg starts.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
|
|
# Start the application
|
|
menu_launch_type 'kgpg';
|
|
# Deal with the first wizard screen
|
|
assert_and_click 'kgpg_next';
|
|
wait_still_screen 2;
|
|
# Deal with the second wizard screen
|
|
assert_and_click 'kgpg_next_blue';
|
|
wait_still_screen 2;
|
|
# Create configuration file
|
|
assert_and_click 'kgpg_create_config';
|
|
wait_still_screen 2;
|
|
# Click Next
|
|
assert_and_click 'kgpg_next_blue';
|
|
wait_still_screen 2;
|
|
# Click Finish
|
|
assert_and_click 'kgpg_done';
|
|
wait_still_screen 2;
|
|
# Cancel the keypair creation
|
|
assert_and_click 'kgpg_keypair_cancel';
|
|
wait_still_screen 2;
|
|
# Close the Tips of the Day
|
|
assert_and_click 'kgpg_tips_close';
|
|
wait_still_screen 2;
|
|
# Check that it is started
|
|
assert_screen 'kgpg_runs';
|
|
# Close the application
|
|
quit_with_shortcut();
|
|
}
|
|
|
|
sub test_flags {
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|