use base "installedtest"; use strict; use testapi; use utils; sub _open_new_tab { # I hate life. ctrl-t seems to not always be reliable in openQA # tests since 2019-01 or so, but the 'new tab' button is not # always visible because GNOME might pop up a notification that # blocks it. so, we try both. if (check_screen 'browser_new_tab') { click_lastmatch; } else { send_key 'ctrl-t'; } } # we are very paranoid with waits and typing speed in this test # because the system can be very busy; it's effectively first boot of # a freshly installed system and we're running Firefox for the first # time, which causes an awful lot of system load, and there's lots of # screen change potentially going on. This makes the test quite slow, # but it's best to be safe. If you're working on the test you might # want to tweak the waits down a bit and use type_safely instead of # type_very_safely for your test runs, just to save your time. sub run { my $self = shift; check_desktop; # switch to a VT and disable things that can mess with the test $self->root_console(tty => 3); disable_firefox_studies; desktop_vt; send_key 'super'; # wait out animations wait_still_screen(stilltime => 4, similarity_level => 45); assert_and_click 'browser_launcher'; unless (check_screen 'browser', 45) { if (check_screen 'browser', 45) { record_soft_failure "Browser start up is very slow - probably https://bugzilla.redhat.com/show_bug.cgi?id=2312900"; } else { die "Browser never reached!"; } } # firefox is quite grindy on startup, let it settle wait_still_screen(stilltime => 5, similarity_level => 45); # open a new tab so we don't race with the default page load # (also focuses the location bar for us) _open_new_tab; wait_still_screen(stilltime => 5, similarity_level => 45); sleep 3; # check FAS, typing slowly to avoid errors type_very_safely "https://accounts.fedoraproject.org/\n"; assert_screen 'browser_fas_home'; _open_new_tab; wait_still_screen(stilltime => 2, similarity_level => 45); sleep 2; type_very_safely "https://kernel.org\n"; assert_and_click "browser_kernelorg_patch"; wait_still_screen(stilltime => 2, similarity_level => 45); # browsers do...something...when the download completes, and we # expect there's a single click to make it go away and return # browser to a state where we can open a new tab assert_and_click "browser_download_complete"; wait_still_screen(stilltime => 2, similarity_level => 45); # we'll check it actually downloaded later # add-on test: at present all desktops we test (KDE, GNOME) are # using Firefox by default so we do this unconditionally, but we # may need to conditionalize it if we ever test desktops whose # default browser doesn't support add-ons or uses different ones _open_new_tab; wait_still_screen(stilltime => 2, similarity_level => 45); sleep 2; type_very_safely "https://addons.mozilla.org/en-US/firefox/addon/ublock-origin/\n"; # sometimes there's some stupid header taking up space and we # need to scroll down to see the 'add' button send_key_until_needlematch "firefox_addon_add", "pgdn", 3, 5; assert_and_click "firefox_addon_add"; assert_and_click "firefox_addon_install"; assert_and_click "firefox_addon_success"; # go to a console and check download worked $self->root_console(tty => 3); my $user = get_var("USER_LOGIN", "test"); assert_script_run "test -e /home/$user/Downloads/patch-*.xz"; } sub test_flags { return {fatal => 1}; } 1; # vim: set sw=4 et: