mirror of
https://github.com/rocky-linux/os-autoinst-distri-rocky.git
synced 2024-11-16 10:11:26 +00:00
0fa6138448
Summary: The non-English tests so far did not test that graphical login worked as expected, which is a fairly large hole. With this change, they should do a Workstation install and test login to both GNOME and the console works as expected. KDE is not yet tested. As part of this we tweak the implementation of keyboard layout switching in graphical environments to use a generic function in main_common which can handle both anaconda and desktops (just GNOME at present, but should extend easily to any desktop with a known switcher key and a visible layout indicator), replacing the anacondatest class method. I kinda don't like that the test has to specifically tell the function when it's in anaconda, but I don't think I want to start experimenting with a global 'test phase' openQA variable or anything like that at present. Fixes T842. Test Plan: Run the French and Russian install tests and check they work as expected. Also run an English Workstation install if you like, and make sure that didn't break. This change is live on staging ATM, seems to work fine. Reviewers: jskladan, garretraziel Reviewed By: garretraziel Subscribers: tflink Maniphest Tasks: T842 Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D1071
86 lines
3.1 KiB
Perl
86 lines
3.1 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use main_common;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# If KICKSTART is set, then the wait_time needs to consider the
|
|
# install time. if UPGRADE, we have to wait for the entire upgrade
|
|
# unless ENCRYPT_PASSWORD is set (in which case the postinstall
|
|
# test does the waiting)
|
|
my $wait_time = 300;
|
|
$wait_time = 1800 if (get_var("KICKSTART"));
|
|
$wait_time = 6000 if (get_var("UPGRADE") && !get_var("ENCRYPT_PASSWORD"));
|
|
|
|
# Wait for the login screen
|
|
boot_to_login_screen(timeout => $wait_time);
|
|
# do user login unless USER_LOGIN is set to string 'false'
|
|
unless (get_var("USER_LOGIN") eq "false") {
|
|
if (get_var("DESKTOP") eq 'gnome') {
|
|
# we have to hit enter to get the password dialog
|
|
send_key "ret";
|
|
}
|
|
assert_screen "graphical_login_input";
|
|
my $password = get_var("USER_PASSWORD", "weakpassword");
|
|
if (get_var("SWITCHED_LAYOUT")) {
|
|
# see _do_install_and_reboot; when layout is switched
|
|
# user password is doubled to contain both US and native
|
|
# chars
|
|
desktop_switch_layout 'us';
|
|
type_very_safely $password;
|
|
desktop_switch_layout 'native';
|
|
type_very_safely $password;
|
|
}
|
|
else {
|
|
type_very_safely $password;
|
|
}
|
|
send_key "ret";
|
|
|
|
# Handle initial-setup, for GNOME, unless START_AFTER_TEST
|
|
# is set in which case it will have been done already
|
|
if (get_var("DESKTOP") eq 'gnome' && !get_var("START_AFTER_TEST")) {
|
|
assert_screen "next_button", 120;
|
|
# wait a bit in case of animation
|
|
wait_still_screen 3;
|
|
for my $n (1..3) {
|
|
# click 'Next' three times, moving the mouse to avoid
|
|
# highlight problems, sleeping to give it time to get
|
|
# to the next screen between clicks
|
|
mouse_set(100, 100);
|
|
wait_screen_change { assert_and_click "next_button"; };
|
|
}
|
|
# click 'Skip' one time
|
|
mouse_set(100,100);
|
|
wait_screen_change { assert_and_click "skip_button"; };
|
|
send_key "ret";
|
|
# wait for the stupid 'help' screen to show and kill it
|
|
assert_screen "getting_started";
|
|
send_key "alt-f4";
|
|
wait_still_screen 5;
|
|
}
|
|
|
|
# Move the mouse somewhere it won't highlight the match areas
|
|
mouse_set(300, 200);
|
|
# KDE can take ages to start up
|
|
assert_screen "graphical_desktop_clean", 120;
|
|
if (get_var("SWITCHED_LAYOUT")) {
|
|
# check both layouts are available at the desktop
|
|
desktop_switch_layout 'us';
|
|
desktop_switch_layout 'native';
|
|
}
|
|
}
|
|
}
|
|
|
|
sub test_flags {
|
|
# without anything - rollback to 'lastgood' snapshot if failed
|
|
# 'fatal' - whole test suite is in danger if this fails
|
|
# 'milestone' - after this test succeeds, update 'lastgood'
|
|
# 'important' - if this fails, set the overall state to 'fail'
|
|
return { fatal => 1, milestone => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|