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

46 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";
#add the stuff here to click the connected button
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";
## 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: