use base "anacondalog"; use strict; use testapi; sub run { # Wait for bootloader to appear assert_screen "bootloader", 30; if ( get_var("FLAVOR") eq "server") { # Skip the media check on DVD send_key "up"; } if( get_var("GRUB")){ send_key "tab"; type_string " ".get_var("GRUB"); } if (get_var("REPOSITORY_VARIATION")){ unless (get_var("GRUB")){ send_key "tab"; } my $fedora_version = ""; my $repourl = ""; if (get_var("VERSION") eq "rawhide"){ $fedora_version = "rawhide"; } else { $fedora_version = (split /_/, get_var("BUILD"))[0]; } $repourl = "http://download.fedoraproject.org/pub/fedora/linux/development/".$fedora_version."/".get_var("ARCH")."/os"; type_string " inst.repo=".$repourl; } send_key "ret"; unless (get_var("KICKSTART")) { # Select install language assert_screen "anaconda_select_install_lang", 300; type_string "english"; assert_and_click "anaconda_select_install_lang_english_filtered"; assert_screen "anaconda_select_install_lang_english_selected", 3; assert_and_click "anaconda_select_install_lang_continue"; if ( get_var("VERSION") eq "rawhide") { assert_and_click "anaconda_rawhide_accept_fate"; } # Anaconda hub assert_screen "anaconda_main_hub", 300; # } } sub test_flags { # without anything - rollback to 'lastgood' snapshot if failed # 'fatal' - whole test suite is in danger if this fails # 'milestone' - after this test succeeds, update 'lastgood' # 'important' - if this fails, set the overall state to 'fail' return { fatal => 1 }; } 1; # vim: set sw=4 et: