49 lines
1.1 KiB
Perl
49 lines
1.1 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");
|
|
my $app = "files";
|
|
my $key = "up";
|
|
if ($desktop eq "kde") {
|
|
$app = "dolphin";
|
|
$key = "pgup";
|
|
}
|
|
# 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);
|
|
|
|
# Start the file exploring application
|
|
menu_launch_type($app);
|
|
send_key("super-$key");
|
|
|
|
if ($desktop eq "kde") {
|
|
# 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");
|
|
}
|
|
}
|
|
|
|
sub test_flags {
|
|
return {fatal => 1, milestone => 1};
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|