From d7959d217d19597d2390d556f8c1048e0cf04657 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Luk=C3=A1=C5=A1=20R=C5=AF=C5=BEi=C4=8Dka?=
 <lruzicka@redhat.com>
Date: Wed, 3 Apr 2024 12:45:09 +0200
Subject: [PATCH] Create a test suite for Gwenview

---
 .../applications/gwenview/pic_to_wallpaper.pm | 33 +++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 tests/applications/gwenview/pic_to_wallpaper.pm

diff --git a/tests/applications/gwenview/pic_to_wallpaper.pm b/tests/applications/gwenview/pic_to_wallpaper.pm
new file mode 100644
index 00000000..4c28a3df
--- /dev/null
+++ b/tests/applications/gwenview/pic_to_wallpaper.pm
@@ -0,0 +1,33 @@
+use base "installedtest";
+use strict;
+use testapi;
+use utils;
+
+# This part tests if the application can put an image as a wallpaper.
+
+sub run {
+    my $self = shift;
+    sleep 2;
+
+    # Go to the menu
+    send_key("f10");
+    # Set as background
+    assert_and_click("loupe_menu_set_wallpaper");
+    wait_still_screen(2);
+    # Confirm
+    assert_and_click("loupe_set_wallpaper");
+    wait_still_screen(2);
+    # Close the application
+    send_key("alt-f4");
+    # Check that the wallpaper was set
+    assert_screen("loupe_image_background");
+
+}
+
+sub test_flags {
+    return {always_rollback => 1};
+}
+
+1;
+
+# vim: set sw=4 et: