mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2025-02-22 15:14:32 +00:00
35 lines
629 B
Perl
35 lines
629 B
Perl
|
use base "installedtest";
|
||
|
|
use strict;
|
||
|
|
use testapi;
|
||
|
|
use utils;
|
||
|
|
use pikvm;
|
||
|
|
|
||
|
|
# Switch off the bare machine and the VM.
|
||
|
|
|
||
|
|
sub run {
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
# Power off the testing machine.
|
||
|
|
power_switch("long");
|
||
|
|
# Detach the ISO file from the Drive
|
||
|
|
# but do not delete it, so that it can be used
|
||
|
|
# by other tests.
|
||
|
|
detach_iso_file();
|
||
|
|
|
||
|
|
# Close the PiKVM browser
|
||
|
|
send_key("alt-f4");
|
||
|
|
assert_and_click("pikvm_close_browser_confirm");
|
||
|
|
|
||
|
|
# Logout switch off the VM.
|
||
|
|
send_key("alt-f2");
|
||
|
|
type_very_safely("poweroff\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_flags {
|
||
|
|
return {fatal => 1};
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
# vim: set sw=4 et:
|