1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-09-22 23:17:21 +00:00
os-autoinst-distri-fedora/tests/upgrade_graph.pm

49 lines
1.1 KiB
Perl
Raw Normal View History

2018-06-25 14:28:50 +00:00
use base "installedtest";
use strict;
use testapi;
use utils;
sub run {
my $self = shift;
my $release = lc(get_var("VERSION"));
my $relnum = $release;
if ($release eq "rawhide") {
$relnum = get_var("RAWREL", "rawhide");
}
2018-06-27 08:08:51 +00:00
# log as the test user
2018-06-27 08:38:45 +00:00
script_run "su --login test";
2018-06-27 08:08:51 +00:00
# switch back to the graphics
2018-06-27 08:38:45 +00:00
send_key "ctrl-alt-f2";
2018-06-27 08:08:51 +00:00
2018-06-25 14:28:50 +00:00
# disable screen blanking (download can take a long time)
script_run "setterm -blank 0";
2018-06-27 08:08:51 +00:00
2018-06-25 14:28:50 +00:00
# handle bootloader, if requested; set longer timeout as sometimes
# reboot here seems to take a long time
if (get_var("GRUB_POSTINSTALL")) {
do_bootloader(postinstall=>1, params=>get_var("GRUB_POSTINSTALL"), timeout=>120);
}
# decrypt, if encrypted
if (get_var("ENCRYPT_PASSWORD")) {
boot_decrypt(120);
# in encrypted case we need to wait a bit so postinstall test
# doesn't bogus match on the encryption prompt we just completed
# before it disappears from view
sleep 5;
}
}
sub test_flags {
return { fatal => 1 };
}
1;
# vim: set sw=4 et: