1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2025-02-22 07:04:31 +00:00
os-autoinst-distri-fedora/tests/pikvm/connect_kvm.pm

39 lines
928 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
use pikvm;
# This script starts a helper image and performs steps
# to log into the PiKVM web administration.
sub run {
my $self = shift;
my $ip_address = get_var("KVM_IP");
# Fluxbox is started automatically and so is Chromium.
# In case, Chromium does not start, we start it manually, just for case.
unless (check_screen("pikvm_chrome_started", timeout => 30)) {
send_key("alt-f2");
wait_still_screen(2);
type_very_safely("chromium-browser fqe-pikvm.usersys.redhat.com --start-fullscreen\n");
assert_screen("pikvm_chrome_started");
}
# Login onto the PiKVM
open_pikvm();
# Go to the KVM subpage
open_subpage("kvm");
# Make the output fullscreen.
assert_and_click("pikvm_fullscreen_output");
}
sub test_flags {
return {fatal => 1, milestone => 1};
}
1;
# vim: set sw=4 et: