35 lines
894 B
Perl
35 lines
894 B
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This part of the suite tests if About works.
|
|
|
|
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, select the About item.
|
|
assert_and_click("evince_menu_about", button => "left", timeout => 30);
|
|
|
|
# Check that the About section has been displayed.
|
|
assert_screen("evince_about_shown");
|
|
|
|
# Click on Credits button to see the second part of the dialogue.
|
|
assert_and_click("evince_about_credits", button => "left", timeout => 30);
|
|
|
|
# Check that Credits are accessible and visible, too.
|
|
assert_screen("evince_credits_shown");
|
|
|
|
}
|
|
|
|
sub test_flags {
|
|
# Rollback to the previous state to make space for other parts.
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
1;
|