aa8838652a
Adds handling for the "Reclaim Space" dialog, which can appear after the user clicks "Done" in the partitioning spoke.
59 lines
1.9 KiB
Perl
59 lines
1.9 KiB
Perl
use base "anacondatest";
|
|
use strict;
|
|
use testapi;
|
|
use anaconda;
|
|
use utils;
|
|
|
|
sub run {
|
|
my $self = shift;
|
|
# If we want to test graphics during installation, we need to
|
|
# call the test suite with an "IDENTIFICATION=true" variable.
|
|
my $identification = get_var('IDENTIFICATION');
|
|
# Anaconda hub
|
|
# Go to INSTALLATION DESTINATION and ensure one disk is selected.
|
|
select_disks();
|
|
|
|
# updates.img tests work by changing the appearance of the INSTALLATION
|
|
# DESTINATION screen, so check that if needed.
|
|
if (get_var('TEST_UPDATES')){
|
|
assert_screen "anaconda_install_destination_updates", 30;
|
|
}
|
|
# Here the self identification test code is placed.
|
|
my $branched = get_var('VERSION');
|
|
if ($identification eq 'true' or $branched ne "Rawhide") {
|
|
check_top_bar(); # See utils.pm
|
|
# we don't check version or pre-release because here those
|
|
# texts appear on the banner which makes the needling
|
|
# complex and fragile (banner is different between variants,
|
|
# and has a gradient so for RTL languages the background color
|
|
# differs; pre-release text is also translated)
|
|
}
|
|
|
|
assert_and_click "anaconda_spoke_done";
|
|
|
|
# if we get the "Reclaim Space" dialog, hit enter to reclaim space
|
|
if (check_screen("anaconda_install_destination_reclaim_space_btn", 5)) {
|
|
# hit enter to reclaim space
|
|
send_key "ret";
|
|
|
|
# select 'delete all' button and hit enter to delete existing data
|
|
send_key_until_needlematch("anaconda_install_destination_delete_all_btn_selected", "tab", 5);
|
|
send_key "ret";
|
|
|
|
# send tab 5 times to select "Reclaim Space" button
|
|
send_key_until_needlematch("anaconda_install_destination_reclaim_space_btn_selected", "tab", 5);
|
|
send_key "ret";
|
|
}
|
|
|
|
# Anaconda hub
|
|
assert_screen "anaconda_main_hub", 300; #
|
|
|
|
}
|
|
|
|
sub test_flags {
|
|
return { fatal => 1 };
|
|
}
|
|
|
|
1;
|
|
|
|
# vim: set sw=4 et:
|