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" && $branched ne "ELN")) { # See utils.pm check_top_bar(); # 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"; # Anaconda hub assert_screen "anaconda_main_hub", 300; } sub test_flags { return {fatal => 1}; } 1; # vim: set sw=4 et: