1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-09 09:04:20 +00:00
os-autoinst-distri-fedora/tests/iot_greenboot.pm
Adam Williamson 1a65993d36 Add a perltidy check and apply it to the entire codebase
Signed-off-by: Adam Williamson <awilliam@redhat.com>
2022-07-28 14:38:38 -07:00

38 lines
869 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
sub run {
my $self = shift;
# switch to TTY3 for both, graphical and console tests
$self->root_console(tty => 3);
# Use ssh to log into this machine to see its status.
type_string "ssh test\@localhost\n";
sleep 2;
# It is very probable that this is the first time that anybody
# wants to ssh in. We need to accept the authentication.
type_string "yes\n";
sleep 1;
# Type the user password for this connection and hopefully log in.
my $pwd = get_var("USER_PASSWORD") // "weakpassword";
type_string "$pwd\n";
sleep 2;
# Check that the output is correct as expected.
assert_screen "iot_greenboot_passed";
# Logout from the ssh connection.
type_string "exit\n";
}
sub test_flags {
return {fatal => 1};
}
1;
# vim: set sw=4 et: