mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-29 00:53:09 +00:00
62 lines
1.5 KiB
Perl
62 lines
1.5 KiB
Perl
|
use base "anacondatest";
|
||
|
|
use strict;
|
||
|
|
use testapi;
|
||
|
|
use utils;
|
||
|
|
use Time::HiRes qw( usleep );
|
||
|
|
|
||
|
|
sub run {
|
||
|
|
my $self = shift;
|
||
|
|
# Check whether we have arrived in the main installation screen.
|
||
|
|
assert_screen "win_setup_main", 300; #
|
||
|
|
|
||
|
|
# Set up keyboard layouts or languages. For our purposes, a simple
|
||
|
|
# click on the Next button will do.
|
||
|
|
assert_and_click "win_setup_next", 20;
|
||
|
|
|
||
|
|
# Start installation
|
||
|
|
assert_and_click "win_setup_install", 30;
|
||
|
|
|
||
|
|
# Accept the EULA.
|
||
|
|
assert_and_click "win_setup_eula_accept", 30;
|
||
|
|
assert_and_click "win_setup_next", 20;
|
||
|
|
|
||
|
|
# Select the custom installation
|
||
|
|
assert_and_click "win_setup_custom_install", 30;
|
||
|
|
|
||
|
|
# The drive 0 will always be empty, so just click Next to continue
|
||
|
|
assert_and_click "win_setup_next", 20;
|
||
|
|
|
||
|
|
# Use Express setting to set up the installation, we do not really
|
||
|
|
# care about it.
|
||
|
|
assert_and_click "win_setup_express_settings", 600;
|
||
|
|
|
||
|
|
# Join a local domain
|
||
|
|
assert_and_click "win_setup_local_account", 600;
|
||
|
|
assert_and_click "win_setup_next", 20;
|
||
|
|
|
||
|
|
# Fill-in account info
|
||
|
|
assert_and_click "win_setup_click_user", 30;
|
||
|
|
type_very_safely "fedora";
|
||
|
|
send_key "tab";
|
||
|
|
sleep 1;
|
||
|
|
type_very_safely "weakpassword";
|
||
|
|
send_key "tab";
|
||
|
|
sleep 1;
|
||
|
|
type_very_safely "weakpassword";
|
||
|
|
send_key "tab";
|
||
|
|
sleep 1;
|
||
|
|
type_very_safely "usual";
|
||
|
|
|
||
|
|
# Check if booted
|
||
|
|
assert_screen "win_setup_logged", 600;
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_flags {
|
||
|
|
return { fatal => 1 };
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
# vim: set sw=4 et:
|