mirror of
				https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
				synced 2025-10-30 23:05:58 +00:00 
			
		
		
		
	In several places we run 'gnome-terminal' explicitly, but as of today's compose, the default terminal app on GNOME in Rawhide is ptyxis, not gnome-terminal. Running 'terminal' should launch whichever is correct, so let's consistently do that. Also, add an apps_run_terminal needle and navigation navbar needle for ptyxis. Signed-off-by: Adam Williamson <awilliam@redhat.com>
		
			
				
	
	
		
			47 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			47 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
| use base "installedtest";
 | |
| use strict;
 | |
| use testapi;
 | |
| use utils;
 | |
| 
 | |
| # This test collects the results of application registration (presence or absence).
 | |
| 
 | |
| sub run {
 | |
|     my $self = shift;
 | |
|     my $subvariant = get_var("SUBVARIANT");
 | |
|     $self->root_console(tty => 3);
 | |
| 
 | |
|     my @core_applications;
 | |
|     # List of applications, that we want to track for their presence.
 | |
|     unless ($subvariant eq "Silverblue") {
 | |
|         my @core_applications = ("gnome-software", "firefox", "terminal", "nautilus", "gnome-text-editor", "gnome-boxes");
 | |
|     }
 | |
|     else {
 | |
|         my @core_applications = ("gnome-software", "firefox", "terminal", "nautilus", "gnome-text-editor");
 | |
|     }
 | |
| 
 | |
|     # Evaluate the results, make the log files and pass or fail the entire
 | |
|     # test suite.
 | |
|     my $failed;
 | |
|     foreach my $app (@core_applications) {
 | |
|         # @utils::application_list here is the list of registered apps
 | |
|         if (grep { $_ eq $app } @utils::application_list) {
 | |
|             assert_script_run "echo '$app=passed' >> registered.log";
 | |
|         }
 | |
|         else {
 | |
|             assert_script_run "echo '$app=failed' >> registered.log";
 | |
|             $failed = 1;
 | |
|         }
 | |
|     }
 | |
|     upload_logs "registered.log", failok => 1;
 | |
|     die "Some core applications could not be started. Check logs." if ($failed);
 | |
| }
 | |
| 
 | |
| sub test_flags {
 | |
|     return {fatal => 1};
 | |
| }
 | |
| 
 | |
| 
 | |
| 1;
 | |
| 
 | |
| # vim: set sw=4 et:
 |