use base "installedtest";
use strict;
use testapi;
use utils;

# This test uses a Connections application to establish an
# RDP connection to a remote computer running Gnome Workstation.

sub run {
    my $self = shift;
    my $password = get_var("USER_PASSWORD", "weakpassword");
    my $rdpuser = "geralt";
    my $rdppass = "ciriofcintra";
    my $ip = "172.16.2.177";

    # Wait until the RDP server is ready
    # and lock parallel connection.
    mutex_lock("kaermorhen_opened");

    # Open the Connections and start the connection.
    menu_launch_type("connections");
    wait_still_screen(3);
    assert_screen("connections_runs");
    assert_and_click("connections_add_connection");
    type_very_safely($ip);
    assert_and_click("gnome_button_connect");

    # Log onto the system.
    assert_screen("connection_authorization");
    assert_and_click("connection_namefield");
    type_very_safely($user);
    send_key("tab");
    send_key("tab");
    type_very_safely($password);
    assert_and_click("connection_authenticate");
    wait_still_screen(3);
    send_key("ret");
    type_very_safely("$syspw\n");
    wait_still_screen(2);

    # Start the terminal
    type_very_safely("terminal\n");
    wait_still_screen(3);

    # Check that we are on the correct computer.
    # We can tell from the terminal prompt.
    assert_screen("freerdp_desktop_connected");

    # Unlock the parallel connection
    mutex_unlock("karemorhen_opened");
}

sub test_flags {
    return {fatal => 1, milestone => 1};
}
1;
# vim: set sw=4 et: