Create startstop tests for XFCE

lib/utils.pm

@@ -681,7 +681,12 @@ my ($command) = @_;
 my $desktop = get_var('DESKTOP');
 
 # Open the launching page or menu
-send_key 'alt-f1';
+if ($desktop eq 'xfce') {
+    send_key 'alt-f2';
+    }
+else {
+    send_key 'alt-f1';
+    }
 sleep 2;
 
 # Type the command name to run the application

needles/xfce/apps/terminal_runs.json

@@ -0,0 +1,15 @@
+{
+  "properties": [],
+  "tags": [
+    "terminal_runs"
+  ],
+  "area": [
+    {
+      "xpos": 5,
+      "ypos": 37,
+      "width": 31,
+      "height": 20,
+      "type": "match"
+    }
+  ]
+}

tests/apps_startstop/xfce/terminal.pm

@@ -0,0 +1,33 @@
+use base "installedtest";
+use strict;
+use testapi;
+use utils;
+
+# This test checks that XCFE4-terminal starts.
+
+sub run {
+    my $self = shift;
+    my $mode = get_var('MODE');
+    
+    # Start the application
+    if ($mode eq 'fast') {
+        start_with_command 'xfce4-terminal';
+    }
+    else {
+        #start_with_launcher('konsole_launch','menu_applications','menu_system');
+        sleep 1;
+    }
+    # Check that it is started
+    assert_screen 'terminal_runs';
+    # Close the application
+    quit_with_shortcut();
+}
+
+sub test_flags {
+    return {always_rollback => 1};
+}
+
+
+1;
+
+# vim: set sw=4 et: