1
0
mirror of https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git synced 2025-02-19 13:54:32 +00:00
os-autoinst-distri-fedora/lib/i3.pm

25 lines
657 B
Perl
Raw Normal View History

2020-10-17 22:22:09 +00:00
package i3;
use strict;
use base 'Exporter';
use Exporter;
use testapi;
use utils;
our @EXPORT = qw/create_user_i3_config/;
2020-10-17 22:22:09 +00:00
sub create_user_i3_config {
my %args = @_;
my $login = $args{login};
assert_script_run("mkdir -p /home/$login/.config/i3/");
# ensure that no alias of cp prevents an existing config from being overwritten
assert_script_run("/usr/bin/cp -f /etc/i3/config /home/$login/.config/i3/config");
assert_script_run("sed -i '/i3-config-wizard/d' /home/$login/.config/i3/config");
assert_script_run "chown -R $login:$login /home/$login/.config";
2020-10-17 22:22:09 +00:00
assert_script_run "restorecon -vr /home/$login/.config";
}