1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-27 08:03:08 +00:00
os-autoinst-distri-fedora/tests/applications/nautilus/copy_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

53 lines
1.5 KiB
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# Copy 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");
wait_still_screen(2);
# Press the keyboard shortcut to copy the file
send_key("ctrl-c");
# Select a different location to place the file.
assert_and_click("nautilus_directory_downloads");
wait_still_screen(2);
# Assert that we have entered the correct directory.
assert_screen("nautilus_directory_reached_downloads");
# Put the file in the new location
send_key("ctrl-v");
# Check that the file has appeared.
assert_screen("nautilus_test_file");
# Go into the root console and verify the operation in the background.
$self->root_console(tty => 3);
# Verify that the new file exists in original location.
assert_script_run("ls /home/test/Documents/markdown.md", timeout => '60', fail_message => 'The test file was incorrectly removed from the old location.', quiet => '0');
# And also in the new location.
assert_script_run("ls /home/test/Downloads/markdown.md", timeout => '60', fail_message => 'The test file has not been found in the new location.', quiet => '0');
}
sub test_flags {
# Rollback to the previous state to make space for other parts.
return {always_rollback => 1};
}
1;