1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-14 18:53:12 +00:00
os-autoinst-distri-fedora/tests/applications/nautilus/rename_file.pm
Adam Williamson 1a65993d36 Add a perltidy check and apply it to the entire codebase
Signed-off-by: Adam Williamson <awilliam@redhat.com>
2022-07-28 14:38:38 -07:00

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;