1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2025-10-16 00:28:49 +00:00
os-autoinst-distri-fedora/tests/applications/nautilus/about.pm
Adam Williamson f0b9bd3e94 Add a simple perl lint script and fix all the errors it found
This adds a script that checks for common whitespace issues
(per our house style) and can (if run with --write) correct some
of them. It adds a run of the script (without --write) to the
tox config, and includes fixes for all the issues the script
discovered in the existing tests and libs.

Signed-off-by: Adam Williamson <awilliam@redhat.com>
2022-07-27 11:33:29 -07:00

36 lines
884 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# Test the About dialogue.
sub run {
my $self = shift;
# Open the menu by clicking on the Burger icon
assert_and_click("gnome_burger_menu", button => "left", timeout => 30);
wait_still_screen 2;
# In the menu, click on the About item.
assert_and_click("nautilus_menu_about", button => "left", timeout => 30);
# Check that the About section has been displayed.
assert_screen("nautilus_about_show");
# Click on Credits button to see the second part of the dialogue.
assert_and_click("nautilus_about_credits", button => "left", timeout => 30);
# Check that Credits are accessible and visible, too.
assert_screen("nautilus_credits_shown");
}
sub test_flags {
# Rollback to the previous state to make space for other parts.
return {always_rollback => 1};
}
1;