mirror of
				https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
				synced 2025-10-30 23:05:58 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			101 lines
		
	
	
		
			3.8 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			101 lines
		
	
	
		
			3.8 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
| 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;
 | |
|     if (get_var("DESKTOP") eq "i3") {
 | |
|         x11_start_program("firefox");
 | |
|     }
 | |
|     else {
 | |
|         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:
 |