Add some tests and their needles.

needles/xfce/apps/dnfdragora_runs.json

@@ -0,0 +1,15 @@
+{
+  "properties": [],
+  "tags": [
+    "dnfdragora_runs"
+  ],
+  "area": [
+    {
+      "xpos": 6,
+      "ypos": 38,
+      "width": 32,
+      "height": 19,
+      "type": "match"
+    }
+  ]
+}

needles/xfce/apps/firewall_runs.json

@@ -0,0 +1,15 @@
+{
+  "properties": [],
+  "tags": [
+    "firewall_runs"
+  ],
+  "area": [
+    {
+      "xpos": 34,
+      "ypos": 96,
+      "width": 30,
+      "height": 22,
+      "type": "match"
+    }
+  ]
+}

needles/xfce/apps/language_runs.json

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

needles/xfce/apps/settings_runs.json

@@ -0,0 +1,15 @@
+{
+  "properties": [],
+  "tags": [
+    "settings_runs"
+  ],
+  "area": [
+    {
+      "xpos": 194,
+      "ypos": 112,
+      "width": 29,
+      "height": 20,
+      "type": "match"
+    }
+  ]
+}

needles/xfce/apps/thunar_runs.json

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

tests/apps_startstop/xfce/dnfdragora.pm

@@ -0,0 +1,35 @@
+use base "installedtest";
+use strict;
+use testapi;
+use utils;
+
+# This test checks that DnfDragora starts.
+
+sub run {
+    my $self = shift;
+    my $mode = get_var('MODE');
+    
+    # Start the application
+    if ($mode eq 'fast') {
+        start_with_command 'dnfdragora';
+    }
+    else {
+        #start_with_launcher('konsole_launch','menu_applications','menu_system');
+        sleep 1;
+    }
+    # Wait some time for repo information to download
+    sleep 20;
+    # Check that it is started
+    assert_screen 'dnfdragora_runs';
+    # Close the application
+    quit_with_shortcut();
+}
+
+sub test_flags {
+    return {always_rollback => 1};
+}
+
+
+1;
+
+# vim: set sw=4 et:

tests/apps_startstop/xfce/firewall.pm

@@ -0,0 +1,36 @@
+use base "installedtest";
+use strict;
+use testapi;
+use utils;
+
+# This test checks that Firewall starts.
+
+sub run {
+    my $self = shift;
+    my $mode = get_var('MODE');
+    
+    # Start the application
+    if ($mode eq 'fast') {
+        start_with_command 'firewall-config';
+    }
+    else {
+        #start_with_launcher('konsole_launch','menu_applications','menu_system');
+        sleep 1;
+    }
+    # Insert password to start the application
+    type_very_safely(get_var('ROOT_PASSWORD','weakpassword'));
+    send_key 'ret';
+    # Check that it is started
+    assert_screen 'firewall_runs';
+    # Close the application
+    quit_with_shortcut();
+}
+
+sub test_flags {
+    return {always_rollback => 1};
+}
+
+
+1;
+
+# vim: set sw=4 et:

tests/apps_startstop/xfce/language.pm

@@ -0,0 +1,36 @@
+use base "installedtest";
+use strict;
+use testapi;
+use utils;
+
+# This test checks that Language settings starts.
+
+sub run {
+    my $self = shift;
+    my $mode = get_var('MODE');
+    
+    # Start the application
+    if ($mode eq 'fast') {
+        start_with_command 'system-config-language';
+    }
+    else {
+        #start_with_launcher('konsole_launch','menu_applications','menu_system');
+        sleep 1;
+    }
+    # Enter password in order to start the application
+    type_very_safely(get_var('ROOT_PASSWORD','weakpassword'));
+    send_key 'ret';
+    # Check that it is started
+    assert_screen 'language_runs';
+    # Close the application
+    quit_with_shortcut();
+}
+
+sub test_flags {
+    return {always_rollback => 1};
+}
+
+
+1;
+
+# vim: set sw=4 et:

tests/apps_startstop/xfce/specimen.pm

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

tests/apps_startstop/xfce/thunar.pm

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