mirror of
https://pagure.io/fedora-qa/os-autoinst-distri-fedora.git
synced 2025-02-16 12:34:32 +00:00
25 lines
657 B
Perl
25 lines
657 B
Perl
package i3;
|
|
|
|
use strict;
|
|
|
|
use base 'Exporter';
|
|
use Exporter;
|
|
|
|
use testapi;
|
|
use utils;
|
|
|
|
our @EXPORT = qw/create_user_i3_config/;
|
|
|
|
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";
|
|
assert_script_run "restorecon -vr /home/$login/.config";
|
|
}
|
|
|