e1ec1997af
Summary: the main thing this does is try and type slower in X - this should cover nearly everywhere we type anything in X, and make it type slower. We also add a bit more safety checking to some old tests which didn't have it (mainly _do_install_and_reboot) - wait_still_screen after typing to make sure all the keypresses were registered before continuing. This is an attempt to mitigate the problems we've seen where the wrong text gets typed into the wrong places and the tests break. This branch is live on staging atm. It still has *some* issues, but I do think it's an improvement. Test Plan: run the tests (probably several times), compare to runs without the change, see if it's better or worse... Reviewers: jskladan, garretraziel Reviewed By: garretraziel Subscribers: tflink Differential Revision: https://phab.qadevel.cloud.fedoraproject.org/D993
73 lines
2.1 KiB
Perl
73 lines
2.1 KiB
Perl
use base "anacondatest";
|
|
use strict;
|
|
use testapi;
|
|
use main_common;
|
|
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 = $self->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 = $self->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 {
|
|
# 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:
|