mirror of
				https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
				synced 2025-10-30 23:05:58 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			28 lines
		
	
	
		
			463 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			28 lines
		
	
	
		
			463 B
		
	
	
	
		
			Perl
		
	
	
	
	
	
| use base "installedtest";
 | |
| use strict;
 | |
| use testapi;
 | |
| use utils;
 | |
| 
 | |
| # This part tests if the application can show the shortcuts.
 | |
| 
 | |
| sub run {
 | |
|     my $self = shift;
 | |
|     sleep 2;
 | |
|     
 | |
|     # Open the shortcuts
 | |
|     send_key("ctrl-?");
 | |
|     assert_screen("eog_shortcuts_shown");
 | |
|     # Try another screen
 | |
|     send_key("right");
 | |
|     send_key("ret");
 | |
|     assert_screen("eog_shortcuts_alt_shown");
 | |
| }
 | |
| 
 | |
| sub test_flags {
 | |
|     return {always_rollback => 1};
 | |
| }
 | |
| 
 | |
| 1;
 | |
| 
 | |
| # vim: set sw=4 et:
 |