mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2024-12-23 02:33:08 +00:00
32 lines
815 B
Perl
32 lines
815 B
Perl
|
use base "installedtest";
|
||
|
use strict;
|
||
|
use testapi;
|
||
|
use utils;
|
||
|
|
||
|
# This script will show info for the Cantarell font
|
||
|
# that should be the among those installed by default.
|
||
|
|
||
|
sub run {
|
||
|
my $self = shift;
|
||
|
# Send the TAB key until the Cantarell font is found.
|
||
|
send_key_until_needlematch("fonts_cantarell_font", "tab", 30, 1);
|
||
|
# Click on the icon
|
||
|
click_lastmatch();
|
||
|
# Check that the correct font is shown.
|
||
|
assert_screen("fonts_cantarell_shown");
|
||
|
# Check that various sizes are shown.
|
||
|
assert_screen("fonts_cantarell_sizes");
|
||
|
# Click on Info to get more information.
|
||
|
assert_and_click("gnome_button_info");
|
||
|
# Check for various information on that page.
|
||
|
assert_screen("fonts_cantarell_info");
|
||
|
}
|
||
|
|
||
|
sub test_flags {
|
||
|
return {always_rollback => 1};
|
||
|
}
|
||
|
|
||
|
1;
|
||
|
|
||
|
# vim: set sw=4 et:
|