use base "anacondatest";
use strict;
use testapi;

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_string get_var('ANACONDA_STATIC');
    wait_still_screen 2;
    send_key "tab";
    # netmask is automatically set
    send_key "tab";
    # assume gateway
    wait_still_screen 2;
    type_string "10.0.2.2";
    wait_still_screen 2;
    send_key "ret";
    # move to DNS servers
    send_key "tab";
    send_key "tab";
    send_key "tab";
    wait_still_screen 2;
    # set DNS from host
    type_string join(',', $self->get_host_dns());
    send_key "tab";
    send_key "tab";
    send_key "tab";
    send_key "tab";
    send_key "tab";
    send_key "ret";
    # 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 {
    # without anything - rollback to 'lastgood' snapshot if failed
    # 'fatal' - whole test suite is in danger if this fails
    # 'milestone' - after this test succeeds, update 'lastgood'
    # 'important' - if this fails, set the overall state to 'fail'
    return { fatal => 1 };
}

1;

# vim: set sw=4 et: