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: