mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-17 04:03:07 +00:00
46 lines
1.1 KiB
Perl
46 lines
1.1 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
use pikvm;
|
|
|
|
# This scripts selects the installation entry
|
|
# and checks it has booted correctly.
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# Depending on the EFI variable, either boot the
|
|
# EFI source or the BIOS source.
|
|
if (get_var("EFI")) {
|
|
select_source("f11");
|
|
}
|
|
else {
|
|
select_source("f11", "bios");
|
|
}
|
|
|
|
my $var = get_var("SUBVARIANT");
|
|
# If we have installed Workstation or KDE, check that we have
|
|
# arrived on the first available screen to see the OS has been
|
|
# installed correctly.
|
|
if (($var eq "Workstation") or ($var eq "KDE")) {
|
|
assert_screen("pikvm_installed_welcome", timeout => 120);
|
|
}
|
|
# Otherwise, log into the system to see that it has installed
|
|
# correctly.
|
|
else {
|
|
assert_screen("pikvm_login_prompt", timeout => 120);
|
|
type_safely("root\n");
|
|
sleep(2);
|
|
type_safely("weakpassword\n");
|
|
assert_screen("pikvm_root_logged_in");
|
|
}
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|