1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2024-11-27 16:13:09 +00:00
os-autoinst-distri-fedora/tests/applications/archiver/aaa_setup.pm
2023-10-10 17:43:21 -07:00

43 lines
1.1 KiB
Perl

use base "installedtest";
use strict;
use testapi;
use utils;
# This will set up the environment for the archiver test.
# It creates nine file and places them in the Documents folder.
# Then opens Nautilus (archive fce) and switches to that folder.
sub run {
my $self = shift;
my $username = get_var("USER_LOGIN") // "test";
# Create the files on the CLI
$self->root_console(tty => 3);
assert_script_run("cd /home/$username/Documents");
assert_script_run('for i in {1..9}; do echo $i > file$i.txt; done');
assert_script_run("chown -R $username:$username /home/$username/Documents/");
# Exit to the GUI
desktop_vt;
# Set the update notification timestamp
set_update_notification_timestamp();
# Start the application
menu_launch_type("nautilus");
# Check it has started
assert_screen 'apps_run_files';
# Fullsize the window.
wait_screen_change { send_key("super-up"); };
wait_still_screen 3;
# Open the Documents directory
assert_and_click("gnome_open_location_documents");
}
sub test_flags {
return {fatal => 1, milestone => 1};
}
1;
# vim: set sw=4 et: