1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-20 13:03:09 +00:00
os-autoinst-distri-fedora/tests/upgrade_preinstall_minimal.pm
2015-05-13 13:03:23 +02:00

51 lines
1.1 KiB
Perl

use base "fedoralog";
use strict;
use testapi;
sub boot_and_login {
wait_still_screen 10;
my $password = get_var("ROOT_PASSWORD", "weakpassword");
send_key "ctrl-alt-f3";
assert_screen "text_console_login", 20;
type_string "root";
send_key "ret";
assert_screen "console_password_required", 10;
type_string $password;
send_key "ret";
assert_screen "root_logged_in", 10;
}
sub run {
boot_and_login();
type_string 'yum -y update; echo $?';
send_key "ret";
assert_screen "console_command_success", 1800;
type_string "reboot";
send_key "ret";
boot_and_login();
type_string 'yum -y install fedup; echo $?';
send_key "ret";
assert_screen "console_command_success", 1800;
}
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: