From 5a14a27cedbd1512158eb3b46e7c04cc992027b1 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Luk=C3=A1=C5=A1=20R=C5=AF=C5=BEi=C4=8Dka?= Date: Tue, 7 May 2024 08:15:36 +0200 Subject: [PATCH] Work on KDE version. --- .../applications/keyring/keyring_password.pm | 24 +++++++++++++++++-- 1 file changed, 22 insertions(+), 2 deletions(-) diff --git a/tests/applications/keyring/keyring_password.pm b/tests/applications/keyring/keyring_password.pm index 19581a67..f770c3c6 100644 --- a/tests/applications/keyring/keyring_password.pm +++ b/tests/applications/keyring/keyring_password.pm @@ -31,7 +31,27 @@ sub connect_localhost { send_key("alt-f4"); } else { - die("Unknown desktop"); + menu_launch_type("dolphin"); + assert_screen("dolphin_runs"); + assert_and_click("dolphin_explore_network"); + assert_and_click("dolphin_add_network_folder"); + assert_and_click("dolphin_rbutton_ssh"); + assert_and_click("kde_button_next"); + + type_very_safely("SSH folder"); + send_key("tab"); + type_very_safely($user); + send_key("tab"); + type_very_safely("127.0.0.1"); + for my $i (1..3) { + send_key("tab"); + } + type_very_safely("/"); + assert_and_click("dolphin_save_and_connect"); + assert_and_click("kde_dismiss_notification"); + assert_and_click("dolphin_dont_askagain"); + assert_and_click("dolphin_connect_anyway"); + assert_screen("dolphin_network_ssh_connected"); } } @@ -70,7 +90,7 @@ sub run { my $user = get_var("USER_LOGIN", "test"); my $pass = get_var("USER_PASSWORD", "weakpassword"); - enter_cmd("echo 'Starting test.'"); + enter_cmd("echo 'Starting test for keyring_password.'"); # We are still at the root console, but for the following steps, # there is nothing we should be doing there, so we switch back