os-autoinst-distri-fedora/tests/applications/nautilus/permissions.pm

use base "installedtest";
use strict;
use testapi;
use utils;

# View and change file permissions.

sub run {
    my $self = shift;
    
    #  Enter the Documents directory to get to the test data. 
    assert_and_dclick("nautilus_directory_documents");
    
    #  Rigth click onto a file to open context menu.
    assert_and_click("nautilus_test_file", button => "right");
    wait_still_screen(2);
    
    # Click on the Properties menu item
    assert_and_click("nautilus_context_properties");
    wait_still_screen(2);
    
    # Check that the Properties window has appeared and close it.
    assert_screen("nautilus_properties_check");
    send_key("esc");
    
    # Send a key combination to open the Properties again.
    send_key("ctrl-i");
    
    # Check that the Properties window has appeared again.
    assert_screen("nautilus_properties_check");
    
    # Click on the Permissions tab
    assert_and_click("nautilus_select_permissions");
    
    # Check that the owner can read and write the file
    assert_screen("nautilus_owner_permissions");
    
    # Check that others cannot do anything.
    assert_screen("nautilus_others_permissions");
    
    # Set the permission for others to None
    assert_and_click("nautilus_permissions_read_only");
    
    # Click on Read Only to select it.
    assert_and_click("nautilus_permissions_set_none");
    
    # Close the Properties
    send_key("esc");
    
    # Go into the root console and verify the operation in the background.
    $self->root_console(tty=>3);
    
    # Check that the permissions have been changed.
    validate_script_output("ls -l /home/test/Documents/markdown.md", sub { m/-rw-r-----/ });

}

sub test_flags {
    # Rollback to the previous state to make space for other parts.
    return {always_rollback => 1};
}

1;