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: