1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-24 14:53:09 +00:00
os-autoinst-distri-fedora/tests/apps_startstop/gnome/lwriter.pm

34 lines
701 B
Perl
Raw Normal View History

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that LibreOffice Writer 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_lwriter');
# Check that is started
assert_screen 'apps_run_lwriter';
# Register application
register_application("libreoffice-writer");
# Close the application
quit_with_shortcut();
}
else {
diag("LibreOffice Write not installed, skipping the test.");
}
}
sub test_flags {
return {};
}
1;
# vim: set sw=4 et: