Added 'server_delete_pata' testsuite

main.pm

@@ -30,6 +30,9 @@ unless (get_var("KICKSTART"))
     elsif (get_var('DISK_GUIDED_MULTI')){
         autotest::loadtest get_var('CASEDIR')."/tests/disk_guided_multi.pm";
     }
+    elsif (get_var('DISK_GUIDED_DELETE_ALL')){
+        autotest::loadtest get_var('CASEDIR')."/tests/disk_guided_delete_all.pm";
+    }
 
     # Start installation, set user & root passwords, reboot
     autotest::loadtest get_var('CASEDIR')."/tests/_do_install_and_reboot.pm";

needles/anaconda_install_destination_delete_all_btn.json

@@ -0,0 +1,17 @@
+{
+  "area": [
+    {
+      "xpos": 920,
+      "ypos": 506,
+      "width": 100,
+      "height": 41,
+      "type": "match"
+    }
+  ],
+  "tags": [
+    "anaconda_install_destination_delete_all_btn",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-FLAVOR-server"
+  ]
+}

needles/anaconda_install_destination_reclaim_space_btn.json

@@ -0,0 +1,17 @@
+{
+  "tags": [
+    "anaconda_install_destination_reclaim_space_btn",
+    "ENV-DISTRI-fedora",
+    "ENV-INSTLANG-en_US",
+    "ENV-FLAVOR-server"
+  ],
+  "area": [
+    {
+      "xpos": 681,
+      "ypos": 553,
+      "width": 108,
+      "height": 22,
+      "type": "match"
+    }
+  ]
+}

templates

@@ -79,5 +79,16 @@
                       ],
                       variables => "",
                     },
+                    {
+                      name => "server_delete_pata",
+                      prio => 5,
+                      settings => [
+                        { key => "DISK_GUIDED_DELETE_ALL", value => "1" },
+                        { key => "HDDMODEL", value => "ide-hd" },
+                        { key => "HDDVERSION", value => "Full disk" },
+                        { key => "HDD_1", value => "disk_full.img" },
+                      ],
+                      variables => "",
+                    },
                   ],
 }

tests/disk_guided_delete_all.pm

@@ -0,0 +1,35 @@
+use base "basetest";
+use strict;
+use testapi;
+
+sub run {
+    # Anaconda hub
+    assert_screen "anaconda_main_hub", 300; #
+
+    # Default install destination (hdd should be empty for new KVM machine)
+    assert_and_click "anaconda_main_hub_install_destination"; 
+
+    assert_and_click "anaconda_spoke_done";
+
+    assert_and_click "anaconda_install_destination_reclaim_space_btn";
+
+    assert_and_click "anaconda_install_destination_delete_all_btn";
+
+    assert_and_click "anaconda_install_destination_reclaim_space_btn";
+
+    # Anaconda hub
+    assert_screen "anaconda_main_hub", 300; #
+
+}
+
+sub test_flags {
+    # without anything - rollback to 'lastgood' snapshot if failed
+    # 'fatal' - whole test suite is in danger if this fails
+    # 'milestone' - after this test succeeds, update 'lastgood'
+    # 'important' - if this fails, set the overall state to 'fail'
+    return { important => 1 };
+}
+
+1;
+
+# vim: set sw=4 et: