67 lines
2.1 KiB
Perl
67 lines
2.1 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This script will delete contacts.
|
|
|
|
sub remove_contact {
|
|
my $name = shift;
|
|
# The name identifiers are made as hashes of their values,
|
|
# let's hash the input to identify correct needles.
|
|
my $identity = hashed_string($name);
|
|
assert_and_click("contacts_contact_listed_$identity");
|
|
wait_still_screen(2);
|
|
# in older versions there's just a delete button on the right
|
|
# side of the screen, in newer versions there's a burger menu
|
|
# with a "Delete contact" entry, so we need to open the menu
|
|
# then click the entry. The other path is selecting multiple
|
|
# contacts; when we do that we get a red "Remove" button at
|
|
# bottom left
|
|
assert_and_click(["gnome_button_delete", "contacts_contact_remove", "contacts_right_menu"]);
|
|
assert_and_click("contacts_contact_delete") if (match_has_tag "contacts_right_menu");
|
|
wait_still_screen(2);
|
|
}
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# Wait to let everything settle.
|
|
sleep 5;
|
|
# One of the contact has always a grey background.
|
|
# Let's click on Charles Dickens to make sure that
|
|
# this one will be greyed out.
|
|
my $identity = hashed_string("Charles Dickens");
|
|
assert_and_click("contacts_contact_listed_$identity");
|
|
|
|
# Check that all contacts are in the addressbook.
|
|
assert_screen("contacts_contact_list_full");
|
|
|
|
# Remove one of the contacts.
|
|
remove_contact("John Keats");
|
|
# Now assert that the removal was successful by checking
|
|
# the list of contacts
|
|
assert_and_click("contacts_contact_listed_$identity");
|
|
assert_screen("contacts_contact_list_keatsless");
|
|
|
|
# Remove more contacts at once.
|
|
remove_contact("Walter Scott");
|
|
remove_contact("Emily Bronte");
|
|
remove_contact("Jane Austen");
|
|
|
|
# Assert that the contacts have been successfully removed.
|
|
assert_and_click("contacts_contact_listed_$identity");
|
|
assert_screen("contacts_contact_list_emptied");
|
|
}
|
|
|
|
sub test_flags {
|
|
# If this test fails, there is no need to continue.
|
|
return {always_rollback => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|
|
|
|
|
|
|