mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-14 10:44:22 +00:00
7a8ae3a357
Summary: this is following a SUSE model for tests where we need a server end but don't want setting up the server to constitute a real test in itself, we want it to be stable. The 'support_server' test just boots a pre-built (by createhdds) disk image, sets up networking, and runs the iSCSI server. To run the iSCSI test we need to handle networking config in anaconda (or we would need to set the support server up as a DHCP server, which may be worth considering), so this adds that. We also need to be able to specify the target device for a volume in custom partitioning, so this adds that too. Test Plan: Build the necessary support server disk image (use D883), then run the test and make sure it works. Also make sure all other tests continue to work. Reviewers: jskladan, garretraziel Reviewed By: garretraziel Subscribers: tflink Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D884
53 lines
1.5 KiB
Perl
53 lines
1.5 KiB
Perl
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:
|