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

47 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:51:33 +00:00
send_key "ctrl-alt-f1";
2018-06-27 08:08:51 +00:00
2018-06-27 08:44:56 +00:00
# DELETE ME, check only
script_run "echo \"I wish I did not see this.\"";
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: