Add screen checking
Some checks failed
CI via Tox and perl / tox (pull_request) Successful in 1m32s
CI via Tox and perl / perl (pull_request) Failing after 5m49s
CI via Tox and perl / checkwiki (pull_request) Successful in 1m18s

This commit is contained in:
Lukáš Růžička 2026-04-27 14:10:28 +02:00
commit 2a5c2c3161

View file

@ -102,12 +102,22 @@ sub run {
assert_screen('gis_screen_welcome', timeout => 120);
# Keep running through screens until we reach the final screen
# Keep running through screens until we reach the final screen.
# Also track which screens were visited already.
my $iterations = 0;
my %visited_screens;
my @required_screens = qw(
privacy
timezone
software
credentials
password
);
while (1) {
die("GNOME Initial Setup appears stuck") if ++$iterations > 20;
my $current_screen = get_screen();
$visited_screens{$current_screen} = 1;
record_info("GNOME Initial Setup", "Testing screen: $current_screen");
last if $current_screen eq 'final';
@ -137,6 +147,10 @@ sub run {
wait_still_screen(2);
}
for my $screen (@required_screens) {
die("GNOME Initial Setup skipped this required screen: $screen") unless $visited_screens{$screen};
}
# When we have reached the final screen
assert_and_click("gis_button_start_fedora");
# When we have reached the system, dismiss the tour