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: