mirror of
				https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
				synced 2025-10-30 23:05:58 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			37 lines
		
	
	
		
			969 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			37 lines
		
	
	
		
			969 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
| use base "installedtest";
 | |
| use strict;
 | |
| use testapi;
 | |
| use utils;
 | |
| 
 | |
| # This test tests if Terminal starts (via using Activities and its prompt) and performs several tasks to  prove basic functionality of the application. 
 | |
| 
 | |
| sub run {
 | |
|     my $self = shift;
 | |
|     send_key 'alt-f1';
 | |
|     # wait out animations
 | |
|     wait_still_screen 2;
 | |
|     # start the application
 | |
|     type_very_safely 'terminal';
 | |
|     send_key 'ret';
 | |
|     wait_still_screen 2;
 | |
|     # When the application opens, run a command to see that it accepts commands
 | |
|     type_very_safely 'ls /';
 | |
|     send_key 'ret';
 | |
|     wait_still_screen 2;
 | |
|     assert_screen 'terminal_command_success';
 | |
|     # close the application
 | |
|     send_key 'alt-f4';
 | |
| }
 | |
| 
 | |
| # If this test fails, the others will probably start failing too, 
 | |
| # so there is no need to continue.
 | |
| # Also, when subsequent tests fail, the suite will revert to this state for further testing.
 | |
| 
 | |
| #sub test_flags {
 | |
| #    return { fatal => 1, milestone => 1 };
 | |
| #}
 | |
| 
 | |
| 1;
 | |
| 
 | |
| # vim: set sw=4 et:
 |