1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2025-10-15 16:18:49 +00:00
os-autoinst-distri-fedora/tests/apps_startstop/kde/kontakt.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

32 lines
586 B
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# This test checks that Kontact starts.
sub run {
my $self = shift;
# Start the application
menu_launch_type 'kontact';
# Get rid of personal data
assert_and_click 'kde_cancel_button';
if (check_screen("enable_unified_mailboxes", 3)) {
assert_and_click "enable_unified_mailboxes";
}
# Check that it is started
assert_screen 'kontact_runs';
# Close the application
quit_with_shortcut();
}
sub test_flags {
return {always_rollback => 1};
}
1;
# vim: set sw=4 et: