From 7359c0fda4fce603ee126ee4ae8a386df60aa3da Mon Sep 17 00:00:00 2001
From: Lukas Ruzicka <lruzicka@redhat.com>
Date: Thu, 31 Oct 2024 16:18:46 +0100
Subject: [PATCH] Create a test to connect from a GUI client.

---
 tests/remote_desktop_client.pm | 41 +++++++++++++++++++++++++++++++++-
 1 file changed, 40 insertions(+), 1 deletion(-)

diff --git a/tests/remote_desktop_client.pm b/tests/remote_desktop_client.pm
index a7d4ce83..9bed2898 100644
--- a/tests/remote_desktop_client.pm
+++ b/tests/remote_desktop_client.pm
@@ -3,11 +3,50 @@ 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 $user = "";
+    my $password = "";
+    my $ip = "";
 
-    boot_to_login_screen(timeout => 300);
+    # Switch to console and perform settings.
     $self->root_console(tty => 3);
+    assert_script_run("hostnamectl set-hostname pawn");
+
+    # Return to the desktop
+    desktop_vt();
+
+    # 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");
 }
 
 sub test_flags {