os-autoinst-distri-rocky/tests/_anaconda_network_static.pm

39 lines
1.1 KiB
Perl

use base "anacondatest";
use strict;
use testapi;
use utils;
use tapnet;
sub run {
my $self = shift;
assert_and_click "anaconda_main_hub_network_host_name";
assert_and_click "anaconda_network_configure";
assert_and_click "anaconda_network_ipv4";
assert_and_click "anaconda_network_method";
assert_and_click "anaconda_network_method_manual";
assert_and_click "anaconda_network_address_add";
type_safely get_var('ANACONDA_STATIC');
# netmask is automatically set
type_safely "\t\t";
# assume gateway
type_safely "172.16.2.2";
# move to DNS servers
type_safely "\n\t\t\t";
# set DNS from host
type_safely join(',', get_host_dns());
type_safely "\t\t\t\t\t\n";
assert_and_click "anaconda_network_connect";
# can take a bit of time as it seems to wait for all the pending
# DHCP requests to time out before applying the static config
assert_screen "anaconda_network_connected", 90;
assert_and_click "anaconda_spoke_done";
}
sub test_flags {
return { fatal => 1 };
}
1;
# vim: set sw=4 et: