mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-11-26 23:53:08 +00:00
d3c97a64be
It's not just Installation Destination, on aarch64 at least we have lots of tests failing because entering the source or software selection spokes didn't work. Let's try extra clicks for these too. Signed-off-by: Adam Williamson <awilliam@redhat.com>
83 lines
2.1 KiB
Perl
83 lines
2.1 KiB
Perl
use base "anacondatest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
use anaconda;
|
|
use Time::HiRes qw( usleep );
|
|
|
|
sub main_repo {
|
|
# 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
|
|
send_key "tab";
|
|
send_key "tab";
|
|
send_key "down";
|
|
}
|
|
elsif (get_var("REPOSITORY_GRAPHICAL")) {
|
|
$repourl = get_full_repo(get_var("REPOSITORY_GRAPHICAL"));
|
|
# strip the nfs and nfsvers prefix if present for typing here
|
|
$repourl =~ s/^nfs://;
|
|
$repourl =~ s/^nfsvers=.://;
|
|
type_safely $repourl;
|
|
}
|
|
}
|
|
|
|
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";
|
|
# as with installation destination, on wayland it seems like
|
|
# sometimes the first click is lost, so click twice
|
|
sleep 1;
|
|
click_lastmatch;
|
|
|
|
main_repo() if (get_var("REPOSITORY_GRAPHICAL") || get_var("MIRRORLIST_GRAPHICAL"));
|
|
|
|
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:
|