+ for part in ("swap", "root", "efi", "boot"):

+     testliterals.append(f"anaconda_blivet_part_inactive_{part}")

+ our @EXPORT = qw/select_disks custom_scheme_select custom_blivet_add_partition custom_blivet_format_partition custom_blivet_resize_partition custom_change_type custom_change_fs custom_change_device custom_delete_part get_full_repo get_mirrorlist_url/;

+ sub custom_blivet_format_partition {

+     # This subroutine formats a selected partition. To use it, you must select the 

+     # partition by other means before you format it using this routine.

+     # You have to create a needle for any non-existing filesystem that is

+     # passed via the $type, such as anaconda_blivet_part_fs_ext4.

+     my %args = @_;

+     # Start editing the partition and select the Format option

+     assert_and_click "anaconda_blivet_part_edit";

+     assert_and_click "anaconda_blivet_part_format";

+     # Select the appropriate filesystem type.

+     assert_and_click "anaconda_blivet_part_drop_select";

+     assert_and_click "anaconda_blivet_part_fs_$args{type}";

+     wait_still_screen 2;

+     # Fill in the label if needed.

+     send_key "tab";

+     if ($args{label}) {

+         type_very_safely $args{label};

+     }

+     # Fill in the mountpoint.

+     send_key "tab";

+     type_very_safely $args{mountpoint};

+     assert_and_click "anaconda_blivet_part_format_button";

+ }

+ 

+ sub custom_blivet_resize_partition {

+     # This subroutine resizes the selected (active) partition to a given value. Note, that

+     # if the selected value is bigger than the available space, it will only be

+     # resized to fill up the available space no matter the number. 

+     # This routine cannot will not be able to select a particular partition!!!

+     my %args = @_;

+     # Start editing the partition and select the Resize option

+     assert_and_click "anaconda_blivet_part_edit";

+     assert_and_click "anaconda_blivet_part_resize";

+     # Select the appropriate units. Note, that there must a be needle existing

+     # for each possible unit that you might want to use, such as 

+     # "anaconda_blivet_size_unit_gib".

+     assert_and_click "anaconda_blivet_part_drop_select";

+     assert_and_click "anaconda_blivet_size_unit_$args{units}";

+     # Move back to the value field.

+     send_key "shift-tab";

+     # Type in the new size.

+     type_very_safely $args{size};

+     assert_and_click "anaconda_blivet_part_resize_button";

+ }

+ 

+ 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_add"

+   ],

+   "area": [

+     {

+       "xpos": 22,

+       "ypos": 630,

+       "width": 53,

+       "height": 14,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_add_mountpoint"

+   ],

+   "area": [

+     {

+       "xpos": 546,

+       "ypos": 479,

+       "width": 109,

+       "height": 17,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "area": [

+     {

+       "xpos": 53,

+       "ypos": 285,

+       "width": 69,

+       "height": 18,

+       "type": "match"

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "anaconda_part_select_efiboot"

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_fs_select",

+     "anaconda_blivet_part_drop_select"

+   ],

+   "area": [

+     {

+       "xpos": 657,

+       "ypos": 313,

+       "width": 18,

+       "height": 15,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_edit"

+   ],

+   "area": [

+     {

+       "xpos": 312,

+       "ypos": 247,

+       "width": 19,

+       "height": 19,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_format"

+   ],

+   "area": [

+     {

+       "xpos": 329,

+       "ypos": 325,

+       "width": 56,

+       "height": 15,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_format_button"

+   ],

+   "area": [

+     {

+       "xpos": 629,

+       "ypos": 496,

+       "width": 49,

+       "height": 16,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "area": [

+     {

+       "xpos": 398,

+       "ypos": 295,

+       "width": 32,

+       "height": 20,

+       "type": "match"

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_fs_ext4"

+   ]

+ } 

+ {

+   "area": [

+     {

+       "xpos": 320,

+       "ypos": 419,

+       "type": "match",

+       "width": 171,

+       "height": 24

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "LANGUAGE-english",

+     "anaconda_blivet_part_fs",

+     "anaconda_blivet_part_fs_ext4_selected"

+   ]

+ } 

+ {

+   "area": [

+     {

+       "xpos": 297,

+       "ypos": 329,

+       "width": 98,

+       "height": 19,

+       "type": "match"

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_inactive_boot"

+   ]

+ } 

+ {

+   "area": [

+     {

+       "width": 23,

+       "type": "match",

+       "height": 14,

+       "xpos": 710,

+       "ypos": 171

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_inactive_root"

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_inactive_root"

+   ],

+   "area": [

+     {

+       "xpos": 581,

+       "ypos": 186,

+       "width": 23,

+       "height": 18,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_resize"

+   ],

+   "area": [

+     {

+       "xpos": 331,

+       "ypos": 298,

+       "width": 43,

+       "height": 19,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_part_resize_button"

+   ],

+   "area": [

+     {

+       "xpos": 718,

+       "ypos": 434,

+       "width": 41,

+       "height": 16,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "area": [

+     {

+       "xpos": 714,

+       "ypos": 314,

+       "width": 28,

+       "height": 17,

+       "type": "match"

+     }

+   ],

+   "properties": [],

+   "tags": [

+     "anaconda_blivet_size_unit_gib",

+     "anaconda_blivet_size_unit_GiB"

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_device_reformat"

+   ],

+   "area": [

+     {

+       "xpos": 614,

+       "ypos": 386,

+       "width": 80,

+       "height": 19,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_mountpoint_selected"

+   ],

+   "area": [

+     {

+       "xpos": 501,

+       "ypos": 152,

+       "width": 87,

+       "height": 25,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_select_boot"

+   ],

+   "area": [

+     {

+       "xpos": 53,

+       "ypos": 434,

+       "width": 44,

+       "height": 18,

+       "type": "match"

+     }

+   ]

+ } 

+ {

+   "properties": [],

+   "tags": [

+     "anaconda_part_use_current"

+   ],

+   "area": [

+     {

+       "xpos": 29,

+       "ypos": 347,

+       "width": 108,

+       "height": 18,

+       "type": "match"

+     }

+   ]

+ } 

+                 "HDDSIZEGB": "20",

+                 "HDDSIZEGB": "20",

+         "install_blivet_resize_lvm": {

+             "profiles": {

+                 "fedora-Workstation-live-iso-x86_64-*-64bit": 30,

+                 "fedora-Workstation-live-iso-ppc64le-*-ppc64le": 30

+             },

+             "settings": {

+                 "PARTITIONING": "custom_blivet_resize_lvm",

+                 "HDD_1": "disk_%FLAVOR%_%MACHINE%.qcow2",

+                 "ROOT_PASSWORD": "weakpassword",

+                 "START_AFTER_TEST": "install_default_upload",

+                 "INSTALL": "1"

+             }

+         },

+         "install_resize_lvm": {

+             "profiles": {

+                 "fedora-Workstation-live-iso-x86_64-*-64bit": 30,

+                 "fedora-Workstation-live-iso-ppc64le-*-ppc64le": 30

+             },

+             "settings": {

+                 "PARTITIONING": "custom_resize_lvm",

+                 "START_AFTER_TEST": "install_default_upload",

+                 "HDD_1": "disk_%FLAVOR%_%MACHINE%.qcow2",

+                 "INSTALL": "1",

+                 "ROOT_PASSWORD": "weakpassword"

+             }

+         },

+ use base "anacondatest";

+ use strict;

+ use testapi;

+ use anaconda;

+ use utils;

+ 

+ sub activate {

+     # This subroutine activates a partition in Blivet environment.

+     # Due to some failures on different architectures, probably caused by their

+     # slowliness, we will need to do the partition activation proces several

+     # times to make sure the proper partition gets activated.

+     my $partition = shift;

+     my $count = 12;

+     while (check_screen "anaconda_blivet_part_inactive_$partition" and $count > 0) {

+         assert_and_click "anaconda_blivet_part_inactive_$partition";

+         sleep 5;

+         $count -= 1;

+     }

+ }

+ 

+ sub run {

+     my $self = shift;

+     # Navigate to "Installation destionation" and select blivet-gui 

+     # to manipulate the partitions. This will be automatically

+     # done using the following method, because PARTITIONING starts

+     # with "custom_blivet".

+     select_disks();

+     assert_and_click "anaconda_spoke_done";

+ 

+     # The following procedure will use Blivet to resize the root partition from

+     # a previous Linux installation and prepare the disk for new installation

+     # which will be then followed through.

+ 

+     # Partitioning starts out of the LVM on VD1. We will use it to recreate

+     # the "/boot" partition in there. In UEFI, we will need to deal with the /boot/efi

+     # partition first.

+     if (get_var("UEFI") == 1) {

+         #The efi partition should be already activated. So reformat it and remount.

+         custom_blivet_format_partition(type => 'efi_filesystem', label => 'efiboot', mountpoint => '/boot/efi');

+         wait_still_screen 5;

+     }

+ 

+     # Select the boot partition and reformat it and remount.

+     activate("boot");

+     # Boot is the only ext4 partition on that scheme, so we will use that to make a needle.

+     wait_still_screen 5;

+     custom_blivet_format_partition(type => 'ext4', label => 'boot', mountpoint => '/boot');

+     wait_still_screen 5;

+ 

+     # Select the LVM root partition, resize it, and format it.

+     assert_and_click "anaconda_blivet_volumes_icon";

+     wait_still_screen 5;

+     # Activate root partition if not active already

+     activate("root");

+     custom_blivet_resize_partition(size => '13', units => 'GiB');

+     wait_still_screen 5;

+ 

+     # Now format the resized root partition. It seems that the focus returns to the first

+     # partition in the view, so we need to activate this again before we attempt to do 

+     # anything to the partition.

+     activate("root");

+     custom_blivet_format_partition(type => 'ext4', label => 'root', mountpoint => '/');

+     wait_still_screen 5;

+ 

+     # Select the newly created free space

+     assert_and_click "anaconda_blivet_free_space";

+ 

+     # Create a partition and format it.

+     custom_blivet_add_partition(filesystem => 'ext4', mountpoint => '/home');

+     wait_still_screen 5;

+ 

+     # Close the spoke.

+     assert_and_click "anaconda_spoke_done";

+     wait_still_screen 5;

+ 

+     # Confirm changes

+     assert_and_click "anaconda_part_accept_changes";

+ }

+ 

+ sub test_flags {

+         return { fatal => 1 };

+ }

+ 

+ 1;

+ use base "anacondatest";

+ use strict;

+ use testapi;

+ use anaconda;

+ use utils;

+ 

+ sub goto_mountpoint {

+     my $counter = 20;

+     while (!check_screen "anaconda_part_mountpoint_selected" and $counter > 0) {

+         send_key "tab";

+         $counter += 1;

+         sleep 1;

+     }

+ }

+ 

+ sub run {

+     my $self = shift;

+     # Navigate to "Installation destionation" and select blivet-gui 

+     # to manipulate the partitions. This will be automatically

+     # done using the following method, because PARTITIONING starts

+     # with "custom_blivet".

+     select_disks();

+     assert_and_click "anaconda_spoke_done";

+ 

+     # The following procedure will use Custom Partitioning to resize the root partition from

+     # a previous Linux installation and prepare the disk for new installation

+     # which will be then followed through.

+ 

+     # Custom partitioning shows that an existing installations is there on the disk, 

+     # we need to select it to proceed.

+     assert_and_click "anaconda_part_use_current";

+ 

+     # At first, we will recreate the /boot mountpoint in the existing installation

+     # and reformat it.

+     #

+     assert_and_click "anaconda_part_select_boot";

+     # navigate to "Mountpoint"

+     goto_mountpoint();

+     type_very_safely "/boot";

+     assert_and_click "anaconda_part_device_reformat";

+     assert_and_click "anaconda_part_update_settings";

+ 

+     # For UEFI based images, we need to reassign the efi boot

+     # mountpoint as well

+     if (get_var("UEFI") == 1) {

+         assert_and_click "anaconda_part_select_efiboot";

+         goto_mountpoint();

+         type_very_safely "/boot/efi";

+         assert_and_click "anaconda_part_device_reformat";

+         assert_and_click "anaconda_part_update_settings";

+     }

+ 

+     # Now resize and format the current root partition

+     assert_and_click "anaconda_part_select_root";

+     # Navigate to Mountpoint

+     goto_mountpoint();

+     type_very_safely "/";

+     # Skip to the Size window

+     send_key "tab";

+     type_very_safely "13 GiB";

+     # Reformat and update the partition

+     assert_and_click "anaconda_part_device_reformat";

+     assert_and_click "anaconda_part_update_settings";

+ 

+     # Add new /home partition into the emptied space.

+     assert_and_click "anaconda_part_add";

+ 

+     # The previous step brings us into a mountpoint field

+     # of the pop-up window, so we only need to fill the value in.

+     # Also, it seems that leaving the size field empty automatically

+     # suggests to use the remaining free space.

+     type_very_safely "/home";

+     send_key "tab";

+     assert_and_click "anaconda_part_add_mountpoint";

+ 

+     # Then mount the Swap partition.

+     assert_and_click "anaconda_part_select_swap";

+     assert_and_click "anaconda_part_device_reformat";

+     assert_and_click "anaconda_part_update_settings";

+ 

+     # Close the spoke.

+     assert_and_click "anaconda_spoke_done";

+ 

+     # Confirm changes

+     assert_and_click "anaconda_part_accept_changes";

+ }

+ 

+ sub test_flags {

+         return { fatal => 1 };

+ }

+ 

+ 1;