mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2025-02-27 17:34:32 +00:00
59 lines
1.7 KiB
Perl
59 lines
1.7 KiB
Perl
|
use base "installedtest";
|
||
|
|
use strict;
|
||
|
|
use testapi;
|
||
|
|
use utils;
|
||
|
|
|
||
|
|
# With installation tests, we have already proven that Software
|
||
|
|
# can list applications installed with it. This test checks
|
||
|
|
# if applications installed using different methods (DNF)
|
||
|
|
# are also listed correctly.
|
||
|
|
|
||
|
|
sub run {
|
||
|
|
my $self = shift;
|
||
|
|
|
||
|
|
# We will switch to the console and perform the installation
|
||
|
|
# of the packages.
|
||
|
|
$self->root_console(tty=>3);
|
||
|
|
script_run("dnf install -y gnome-mahjongg", timeout => 240);
|
||
|
|
|
||
|
|
# Sometimes, PackageKit does not know about the changed status
|
||
|
|
# until the computer is restared, or PackageKit is refreshed.
|
||
|
|
# Let us kill it so that when it gets restarted, it will
|
||
|
|
# be in sync.
|
||
|
|
script_run("pkill gnome-software");
|
||
|
|
|
||
|
|
# Return to the GUI
|
||
|
|
desktop_vt();
|
||
|
|
|
||
|
|
# Sometimes, Software crashes after the VM has been rolled back.
|
||
|
|
# If so, restart the application.
|
||
|
|
unless(check_screen("apps_run_software")) {
|
||
|
|
restart_application("software");
|
||
|
|
}
|
||
|
|
|
||
|
|
# Search for the application and confirm its status
|
||
|
|
assert_and_click("gnome_search_button");
|
||
|
|
type_very_safely("mahjongg");
|
||
|
|
send_key("ret");
|
||
|
|
assert_screen("software_mahjongg_found_installed");
|
||
|
|
|
||
|
|
# Go to the Installed view to see the list of all installed
|
||
|
|
# applications and find the new application there.
|
||
|
|
assert_and_click("software_installed_button");
|
||
|
|
wait_still_screen(2);
|
||
|
|
# We know that currently this part of the test will fail as there is
|
||
|
|
# a known and reported bug #1950037.
|
||
|
|
send_key_until_needlematch("software_mahjongg_listed", "tab", 100);
|
||
|
|
record_info("Known bug", "This is due to a long known bug.", result => "ok");
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub test_flags {
|
||
|
|
return {always_rollback => 1};
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|
||
|
|
|
||
|
|
# vim: set sw=4 et:
|
||
|
|
|