mirror of
				https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
				synced 2025-10-31 15:16:00 +00:00 
			
		
		
		
	
		
			
				
	
	
		
			47 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
			
		
		
	
	
			47 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Perl
		
	
	
	
	
	
| use base "installedtest";
 | |
| use strict;
 | |
| use testapi;
 | |
| use utils;
 | |
| 
 | |
| # Rename a file.
 | |
| 
 | |
| sub run {
 | |
|     my $self = shift;
 | |
| 
 | |
|     #  Enter the Documents directory to get to the test data.
 | |
|     assert_and_click("nautilus_directory_documents");
 | |
| 
 | |
|     #  Click onto a file to select it.
 | |
|     assert_and_click("nautilus_test_file");
 | |
| 
 | |
|     # Press the keyboard shortcut to rename the file
 | |
|     send_key("f2");
 | |
| 
 | |
|     # Check that a rename dialogue has been displayed.
 | |
|     assert_screen("nautilus_rename_dialogue");
 | |
| 
 | |
|     # Type a new name and confirm it.
 | |
|     type_very_safely("renamed");
 | |
|     send_key("ret");
 | |
| 
 | |
|     # Check that the file has been renamed.
 | |
|     assert_screen("nautilus_rename_check");
 | |
| 
 | |
|     # Go into the root console and verify the operation in the background.
 | |
|     $self->root_console(tty => 3);
 | |
| 
 | |
|     # Verify that the new file exists in the location.
 | |
|     assert_script_run("ls /home/test/Documents/renamed.md", timeout => '60', fail_message => 'The renamed file has not been found in the location.', quiet => '0');
 | |
| 
 | |
| }
 | |
| 
 | |
| sub test_flags {
 | |
|     # Rollback to the previous state to make space for other parts.
 | |
|     return {always_rollback => 1};
 | |
| }
 | |
| 
 | |
| 1;
 | |
| 
 | |
| 
 | |
| 
 |