1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-24 23:03:08 +00:00
os-autoinst-distri-fedora/tests/apps_startstop/gnome/boxes.pm

40 lines
881 B
Perl
Raw Normal View History

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that Boxes starts.
sub run {
my $self = shift;
2024-06-12 12:35:00 +00:00
my $subvariant = get_var("SUBVARIANT", "Workstation");
2024-06-12 12:35:00 +00:00
if ($subvariant ne "Silverblue") {
# Start the application
start_with_launcher('apps_menu_boxes');
assert_screen 'apps_boxes_tutorial';
send_key 'esc';
2024-06-12 12:35:00 +00:00
unless (check_screen 'apps_run_boxes', 30) {
record_soft_failure "Single esc didn't clear tutorial - #2005458?";
send_key 'esc';
assert_screen 'apps_run_boxes';
}
2024-06-12 12:35:00 +00:00
# Register application
register_application("gnome-boxes");
# Close the application
quit_with_shortcut();
}
else {
diag("Boxes is not installed, skipping the test.");
}
}
sub test_flags {
return {};
}
1;
# vim: set sw=4 et: