e68e113f76
It's not really a good idea to have the comments that explain the test_flags in *every* test, because they can go stale and then we either have to live with them being old or update them all. Like, now. So let's just take 'em all out. There's always a reference in the openQA and os-autoinst docs, and those get updated faster. More importantly, add the new `ignore_failure` flag to relevant tests - all the tests that don't have the 'important' or 'fatal' flag at present. Upstream killed the 'important' flag (making all tests 'important' by default), I got it replaced with the 'ignore_failure' flag, we now need to explicitly mark all modules we want the 'ignore_failure' behaviour for.
70 lines
1.8 KiB
Perl
70 lines
1.8 KiB
Perl
use base "anacondatest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
use anaconda;
|
|
use Time::HiRes qw( usleep );
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# Anaconda hub
|
|
assert_screen "anaconda_main_hub", 300; #
|
|
|
|
# Go into the Install Source spoke
|
|
assert_and_click "anaconda_main_hub_installation_source";
|
|
|
|
# select appropriate protocol on the network
|
|
assert_and_click "anaconda_install_source_on_the_network";
|
|
send_key "tab";
|
|
wait_still_screen 2;
|
|
# select appropriate repo type for the URL by pressing 'up' a given
|
|
# number of times. default - 3 - is https
|
|
my $num = 3;
|
|
if (get_var("REPOSITORY_GRAPHICAL") =~ m/^nfs:/) {
|
|
$num = 1;
|
|
}
|
|
if (get_var("REPOSITORY_GRAPHICAL") =~ m/^http:/) {
|
|
$num = 4;
|
|
}
|
|
for (my $i=0; $i<$num; $i++) {
|
|
send_key "up";
|
|
usleep 100;
|
|
}
|
|
# we accept any of the protocol needles here, if we happened to
|
|
# choose wrong the test will fail soon anyhow
|
|
assert_screen "anaconda_install_source_selected";
|
|
|
|
# insert the url
|
|
wait_screen_change { send_key "tab"; };
|
|
my $repourl = "";
|
|
|
|
# if either MIRRORLIST_GRAPHICAL or REPOSITORY_GRAPHICAL is set, type this into
|
|
# the repository url input
|
|
if (get_var("MIRRORLIST_GRAPHICAL")) {
|
|
$repourl = get_mirrorlist_url();
|
|
type_safely $repourl;
|
|
|
|
# select as mirror list
|
|
assert_and_click "anaconda_install_source_repo_select_mirrorlist";
|
|
}
|
|
elsif (get_var("REPOSITORY_GRAPHICAL")) {
|
|
$repourl = get_full_repo(get_var("REPOSITORY_GRAPHICAL"));
|
|
# strip the 'nfs:' for typing here
|
|
$repourl =~ s/^nfs://;
|
|
type_safely $repourl;
|
|
}
|
|
|
|
assert_and_click "anaconda_spoke_done";
|
|
|
|
# Anaconda hub
|
|
assert_screen "anaconda_main_hub", 300;
|
|
}
|
|
|
|
sub test_flags {
|
|
return { fatal => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|