mirror of
https://github.com/rocky-linux/os-autoinst-distri-rocky.git
synced 2024-11-25 14:41:27 +00:00
3a31f9639d
on Rawhide it seems user cannot run 'reboot' any more. 'sudo reboot' seems to do the trick (tested KDE and GNOME).
97 lines
3.2 KiB
Perl
97 lines
3.2 KiB
Perl
use base "anacondatest";
|
|
use strict;
|
|
use testapi;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# Anaconda hub
|
|
assert_screen "anaconda_main_hub", 300; #
|
|
|
|
# Begin installation
|
|
# Sometimes, the 'slide in from the top' animation messes with
|
|
# this - by the time we click the button isn't where it was any
|
|
# more. So wait a sec just in case.
|
|
sleep 1;
|
|
assert_and_click "anaconda_main_hub_begin_installation";
|
|
|
|
# Set root password
|
|
my $root_password = get_var("ROOT_PASSWORD") || "weakpassword";
|
|
assert_and_click "anaconda_install_root_password";
|
|
assert_screen "anaconda_install_root_password_screen";
|
|
$self->switch_layout("us") if (get_var("SWITCHED_LAYOUT"));
|
|
type_string $root_password;
|
|
send_key "tab";
|
|
type_string $root_password;
|
|
assert_and_click "anaconda_spoke_done";
|
|
if (check_screen "anaconda_install_password_dictionary_error", 10) {
|
|
assert_and_click "anaconda_spoke_done";
|
|
}
|
|
|
|
# Set user details
|
|
sleep 1;
|
|
my $user_login = get_var("USER_LOGIN") || "test";
|
|
my $user_password = get_var("USER_PASSWORD") || "weakpassword";
|
|
assert_and_click "anaconda_install_user_creation";
|
|
assert_screen "anaconda_install_user_creation_screen";
|
|
type_string $user_login;
|
|
assert_and_click "anaconda_user_creation_password_input";
|
|
if (get_var("SWITCHED_LAYOUT")) {
|
|
# we double the password, the second time using the native
|
|
# layout, so the password has both US and native characters
|
|
$self->switch_layout("us");
|
|
type_string $user_password;
|
|
$self->switch_layout("native");
|
|
type_string $user_password;
|
|
}
|
|
else {
|
|
type_string $user_password;
|
|
}
|
|
send_key "tab";
|
|
if (get_var("SWITCHED_LAYOUT")) {
|
|
$self->switch_layout("us");
|
|
type_string $user_password;
|
|
$self->switch_layout("native");
|
|
type_string $user_password;
|
|
}
|
|
else {
|
|
type_string $user_password;
|
|
}
|
|
assert_and_click "anaconda_install_user_creation_make_admin";
|
|
assert_and_click "anaconda_spoke_done";
|
|
# handle 'weak password' due to dictionary error: WORKAROUND
|
|
if (check_screen "anaconda_install_password_dictionary_error", 10) {
|
|
assert_and_click "anaconda_spoke_done";
|
|
}
|
|
|
|
# Check username (and hence keyboard layout) if non-English
|
|
if (get_var('LANGUAGE')) {
|
|
assert_screen "anaconda_install_user_created";
|
|
}
|
|
|
|
# Wait for install to end. Give Rawhide a bit longer, in case
|
|
# we're on a debug kernel, debug kernel installs are really slow.
|
|
my $timeout = 1800;
|
|
if (lc(get_var('VERSION')) eq "rawhide") {
|
|
$timeout = 2400;
|
|
}
|
|
assert_screen "anaconda_install_done", $timeout;
|
|
# wait for transition to complete so we don't click in the sidebar
|
|
wait_still_screen 3;
|
|
assert_and_click "anaconda_install_done";
|
|
if (get_var('LIVE')) {
|
|
x11_start_program("sudo reboot");
|
|
}
|
|
}
|
|
|
|
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 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|