os-autoinst-distri-rocky/tests/disk_custom_resize.pm

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;