Tidy
Some checks failed
CI via Tox and perl / tox (pull_request) Failing after 1m49s
CI via Tox and perl / perl (pull_request) Failing after 3m57s
CI via Tox and perl / checkwiki (pull_request) Has been cancelled

This commit is contained in:
Lukáš Růžička 2026-04-28 22:48:55 +02:00
commit db742aa4d1
2 changed files with 4 additions and 4 deletions

View file

@ -29,7 +29,7 @@ sub get_screen {
# Die if we have doubts
die("No known GIS tag in matched needle: @matched_tags") unless @known;
die("Ambiguous GIS screen (multiple matches): @known") if scalar(@known) > 1;
return($tags{$known[0]});
return ($tags{$known[0]});
}
sub handle_welcome {
@ -91,7 +91,7 @@ sub handle_software {
sub handle_credentials {
my ($realname, $username) = @_;
type_very_safely($realname);
wait_screen_change({ send_key("tab"); } 2);
wait_screen_change({send_key("tab");} 2);
send_key("ctrl-a");
type_very_safely($username);
assert_and_click("next_button");
@ -172,7 +172,7 @@ sub run {
for my $screen (@required_screens) {
unless ($visited_screens{$screen}) {
push(@missing, $screen);
record_info("Screen Check","GNOME Initial Setup skipped this required screen: $screen");
record_info("Screen Check", "GNOME Initial Setup skipped this required screen: $screen");
}
}

View file

@ -11,7 +11,7 @@ sub run_as_user {
my $output = script_output($cmd, timeout => 60);
enter_cmd("exit");
sleep(2);
return $output
return $output;
}
sub assert_as_user_eq {