mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2025-08-08 18:05:44 +00:00
This adds both the Gnome and the KDE tests to test the Desktop Keyring. After a discussion with the Brno team, how this could be tested without the need to rely on external servers to log into, we set up a local FTP server, we will log into it and remember the credentials and verify that the credentials will be stored in the keyring correctly.
60 lines
1.6 KiB
Perl
60 lines
1.6 KiB
Perl
use base "installedtest";
|
|
use strict;
|
|
use testapi;
|
|
use utils;
|
|
|
|
# This script will open the File application and attempt
|
|
# to reconnect to the FTP server, this time without
|
|
# having to put credentials into the process.
|
|
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
my $pw = get_var("USER_PASSWORD") // "weakpassword";
|
|
my $desktop = get_var("DESKTOP");
|
|
# Check that the machine has been rebooted
|
|
# and log in.
|
|
boot_to_login_screen();
|
|
send_key("ret") if (get_var("DESKTOP") eq "gnome");
|
|
type_very_safely("$pw\n");
|
|
wait_still_screen(5);
|
|
|
|
if ($desktop eq "kde") {
|
|
# Start the file exploring application
|
|
menu_launch_type("dolphin");
|
|
send_key("super-pgup");
|
|
|
|
# Open the network location and check
|
|
# that the FTP content is accessible.
|
|
assert_and_click("keyring_open_network");
|
|
assert_and_click("keyring_open_location");
|
|
send_key("ret");
|
|
assert_screen("keyring_test_file");
|
|
}
|
|
else {
|
|
# Start the file exploring application
|
|
send_key("esc");
|
|
menu_launch_type("nautilus");
|
|
send_key("super-up");
|
|
|
|
# Open the network location and check
|
|
# that the FTP content is accessible.
|
|
assert_and_click("keyring_other_location");
|
|
assert_and_click("keyring_location_line");
|
|
type_very_safely("ftp://127.0.0.1");
|
|
assert_and_click("keyring_button_connect");
|
|
# Check that we have opened the location and that
|
|
# we can see the FTP content.
|
|
assert_screen("keyring_test_file");
|
|
|
|
}
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1, milestone => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|