2019-06-27 15:37:50 -04:00
|
|
|
#!/usr/bin/perl
|
2019-06-27 09:02:19 -04:00
|
|
|
#
|
|
|
|
# This file is part of GNU Stow.
|
|
|
|
#
|
|
|
|
# GNU Stow is free software: you can redistribute it and/or modify it
|
|
|
|
# under the terms of the GNU General Public License as published by
|
|
|
|
# the Free Software Foundation, either version 3 of the License, or
|
|
|
|
# (at your option) any later version.
|
|
|
|
#
|
|
|
|
# GNU Stow is distributed in the hope that it will be useful, but
|
|
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
|
|
# General Public License for more details.
|
|
|
|
#
|
|
|
|
# You should have received a copy of the GNU General Public License
|
|
|
|
# along with this program. If not, see https://www.gnu.org/licenses/.
|
2016-07-01 19:38:25 -04:00
|
|
|
|
|
|
|
#
|
|
|
|
# Test processing of stowrc file.
|
|
|
|
#
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
2019-06-29 08:04:30 -04:00
|
|
|
use Test::More tests => 34;
|
2016-07-01 19:38:25 -04:00
|
|
|
|
|
|
|
use testutil;
|
|
|
|
|
|
|
|
require 'stow';
|
|
|
|
|
2019-06-28 04:56:46 -04:00
|
|
|
# .stowrc files used for testing, relative to run_from/
|
|
|
|
my $CWD_RC_FILE = ".stowrc";
|
|
|
|
my $HOME_RC_FILE = "../.stowrc";
|
2016-07-01 19:38:25 -04:00
|
|
|
# Take the safe route and cowardly refuse to continue if there's
|
2019-06-28 04:56:46 -04:00
|
|
|
# already a file at $HOME_RC_FILE.
|
|
|
|
if (-e $HOME_RC_FILE) {
|
|
|
|
die "RC file location $HOME_RC_FILE already exists!\n";
|
2016-07-01 19:38:25 -04:00
|
|
|
}
|
|
|
|
|
2019-06-28 04:56:46 -04:00
|
|
|
my ($options, $pkgs_to_delete, $pkgs_to_stow);
|
2016-07-01 19:38:25 -04:00
|
|
|
|
|
|
|
# Init testing directory structure and overwrite ENV{HOME} to prevent
|
2019-06-28 04:56:46 -04:00
|
|
|
# squashing existing .stowrc file.
|
2016-07-01 19:38:25 -04:00
|
|
|
init_test_dirs();
|
|
|
|
|
|
|
|
# =========== RC Loading Tests ===========
|
|
|
|
# Basic parsing and loading rc file tests.
|
|
|
|
# ========================================
|
|
|
|
|
2019-06-28 04:56:46 -04:00
|
|
|
my $orig_HOME = $ENV{HOME};
|
|
|
|
|
|
|
|
#
|
|
|
|
# Test no .stowrc file anywhere
|
|
|
|
#
|
|
|
|
delete $ENV{HOME};
|
|
|
|
local @ARGV = ('dummy');
|
|
|
|
cd("$TEST_DIR/run_from");
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR", "default --target with no .stowrc");
|
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/run_from", "default -d with no .stowrc");
|
|
|
|
|
|
|
|
#
|
|
|
|
# Test .stowrc file in cwd with relative paths, and $HOME not defined
|
|
|
|
#
|
|
|
|
make_file($CWD_RC_FILE, <<HERE);
|
|
|
|
-d ../stow
|
|
|
|
--target ../target
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "../target"
|
|
|
|
=> "relative --target from \$PWD/.stowrc");
|
|
|
|
is($options->{dir}, "../stow"
|
|
|
|
=> "relative -d from \$PWD/.stowrc");
|
|
|
|
|
|
|
|
$ENV{HOME} = $orig_HOME;
|
|
|
|
remove_file($CWD_RC_FILE);
|
|
|
|
|
|
|
|
#
|
|
|
|
# Test .stowrc file in cwd with absolute paths, and $HOME not defined
|
|
|
|
#
|
|
|
|
make_file($CWD_RC_FILE, <<HERE);
|
|
|
|
-d $ABS_TEST_DIR/stow
|
|
|
|
--target $ABS_TEST_DIR/target
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR/target"
|
|
|
|
=> "absolute --target from \$PWD/.stowrc");
|
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow"
|
|
|
|
=> "abs_test_dir -d from \$PWD/.stowrc");
|
|
|
|
|
|
|
|
$ENV{HOME} = $orig_HOME;
|
|
|
|
remove_file($CWD_RC_FILE);
|
|
|
|
|
2016-07-01 19:38:25 -04:00
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
# Test ~/.stowrc file with one relative option per line.
|
2016-07-01 19:38:25 -04:00
|
|
|
#
|
|
|
|
local @ARGV = ('dummy');
|
2019-06-28 04:56:46 -04:00
|
|
|
make_file($HOME_RC_FILE, <<HERE);
|
|
|
|
-d ../stow
|
|
|
|
--target ../target
|
2016-07-01 19:38:25 -04:00
|
|
|
HERE
|
2019-06-28 04:56:46 -04:00
|
|
|
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "../target", "--target from \$HOME/.stowrc");
|
|
|
|
is($options->{dir}, "../stow", "-d from \$HOME/.stowrc");
|
2016-07-01 19:38:25 -04:00
|
|
|
|
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
# Test ~/.stowrc file with one absolute option per line.
|
2016-07-14 09:55:55 -04:00
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
local @ARGV = ('dummy');
|
|
|
|
make_file($HOME_RC_FILE, <<HERE);
|
|
|
|
-d $ABS_TEST_DIR/stow
|
|
|
|
--target $ABS_TEST_DIR/target
|
|
|
|
HERE
|
|
|
|
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR/target"
|
|
|
|
=> "--target from \$HOME/.stowrc");
|
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow"
|
|
|
|
=> "-d from \$HOME/.stowrc");
|
|
|
|
|
|
|
|
#
|
2019-06-29 08:04:30 -04:00
|
|
|
# Test that some but not all options ~/.stowrc file are overridden by
|
|
|
|
# .stowrc in cwd.
|
2019-06-28 04:56:46 -04:00
|
|
|
#
|
|
|
|
local @ARGV = ('dummy');
|
|
|
|
make_file($HOME_RC_FILE, <<HERE);
|
|
|
|
-d $ABS_TEST_DIR/stow-will-be-overridden
|
|
|
|
--target $ABS_TEST_DIR/target-will-be-overridden
|
2019-06-29 08:04:30 -04:00
|
|
|
--defer=info
|
2019-06-28 04:56:46 -04:00
|
|
|
HERE
|
|
|
|
make_file($CWD_RC_FILE, <<HERE);
|
|
|
|
-d $ABS_TEST_DIR/stow
|
|
|
|
--target $ABS_TEST_DIR/target
|
2019-06-29 08:04:30 -04:00
|
|
|
--defer=man
|
2019-06-28 04:56:46 -04:00
|
|
|
HERE
|
|
|
|
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR/target"
|
|
|
|
=> "--target overridden by \$PWD/.stowrc");
|
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow"
|
|
|
|
=> "-d overridden \$PWD/.stowrc");
|
2019-06-29 08:04:30 -04:00
|
|
|
is_deeply($options->{defer}, [qr(\Ainfo), qr(\Aman)],
|
|
|
|
'defer man and info');
|
2019-06-28 04:56:46 -04:00
|
|
|
unlink($CWD_RC_FILE) or die "Failed to unlink $CWD_RC_FILE";
|
|
|
|
|
|
|
|
#
|
|
|
|
# Test that scalar cli option overwrites conflicting ~/.stowrc option.
|
|
|
|
#
|
|
|
|
local @ARGV = ('-d', "$ABS_TEST_DIR/stow", 'dummy');
|
|
|
|
make_file($HOME_RC_FILE, <<HERE);
|
2016-07-14 09:55:55 -04:00
|
|
|
-d bad/path
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
2019-06-28 04:56:46 -04:00
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow", "cli overwrite scalar rc option.");
|
2016-07-14 09:55:55 -04:00
|
|
|
|
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
# Test that list cli option merges with conflicting .stowrc option.
|
|
|
|
# Documentation states that .stowrc options are prepended to cli options.
|
2016-07-14 09:55:55 -04:00
|
|
|
#
|
|
|
|
local @ARGV = (
|
|
|
|
'--defer=man',
|
|
|
|
'dummy'
|
|
|
|
);
|
2019-06-28 04:56:46 -04:00
|
|
|
make_file($HOME_RC_FILE, <<HERE);
|
2016-07-14 09:55:55 -04:00
|
|
|
--defer=info
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = process_options();
|
|
|
|
is_deeply($options->{defer}, [qr(\Ainfo), qr(\Aman)],
|
|
|
|
'defer man and info');
|
|
|
|
|
2016-07-14 12:37:42 -04:00
|
|
|
# ======== Filepath Expansion Tests ========
|
|
|
|
# Test proper filepath expansion in rc file.
|
|
|
|
# Expansion is only applied to options that
|
|
|
|
# take a filepath, namely target and dir.
|
|
|
|
# ==========================================
|
|
|
|
|
|
|
|
|
|
|
|
#
|
|
|
|
# Test environment variable expansion function.
|
|
|
|
#
|
|
|
|
# Basic expansion
|
2019-06-28 04:56:46 -04:00
|
|
|
is(expand_environment('$HOME/stow'), "$ABS_TEST_DIR/stow", 'expand $HOME');
|
|
|
|
is(expand_environment('${HOME}/stow'), "$ABS_TEST_DIR/stow", 'expand ${HOME}');
|
2016-07-14 12:37:42 -04:00
|
|
|
|
|
|
|
delete $ENV{UNDEFINED}; # just in case
|
|
|
|
foreach my $var ('$UNDEFINED', '${UNDEFINED}') {
|
|
|
|
eval {
|
|
|
|
expand_environment($var, "--foo option");
|
|
|
|
};
|
|
|
|
is(
|
|
|
|
$@,
|
|
|
|
"--foo option references undefined environment variable \$UNDEFINED; " .
|
|
|
|
"aborting!\n",
|
|
|
|
"expand $var"
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
# Expansion with an underscore.
|
|
|
|
$ENV{'WITH_UNDERSCORE'} = 'test string';
|
|
|
|
is(expand_environment('${WITH_UNDERSCORE}'), 'test string',
|
|
|
|
'expand ${WITH_UNDERSCORE}');
|
|
|
|
delete $ENV{'WITH_UNDERSCORE'};
|
|
|
|
# Expansion with escaped $
|
|
|
|
is(expand_environment('\$HOME/stow'), '$HOME/stow', 'expand \$HOME');
|
|
|
|
|
2016-07-14 15:48:40 -04:00
|
|
|
#
|
|
|
|
# Test tilde (~) expansion
|
|
|
|
#
|
|
|
|
# Basic expansion
|
|
|
|
is(expand_tilde('~/path'), "$ENV{HOME}/path", 'tilde expansion to $HOME');
|
|
|
|
# Should not expand if middle of path
|
|
|
|
is(expand_tilde('/path/~/here'), '/path/~/here', 'middle ~ not expanded');
|
|
|
|
# Test escaped ~
|
|
|
|
is(expand_tilde('\~/path'), '~/path', 'escaped tilde');
|
|
|
|
|
2016-07-14 12:37:42 -04:00
|
|
|
#
|
|
|
|
# Test that environment variable expansion is applied.
|
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
make_file($HOME_RC_FILE, <<'HERE');
|
2016-07-14 12:37:42 -04:00
|
|
|
--dir=$HOME/stow
|
|
|
|
--target=$HOME/stow
|
|
|
|
--ignore=\$HOME
|
|
|
|
--defer=\$HOME
|
|
|
|
--override=\$HOME
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = get_config_file_options();
|
2019-06-28 04:56:46 -04:00
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow",
|
|
|
|
"apply environment expansion on \$HOME/.stowrc --dir");
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR/stow",
|
|
|
|
"apply environment expansion on \$HOME/.stowrc --target");
|
2016-07-14 12:37:42 -04:00
|
|
|
is_deeply($options->{ignore}, [qr(\$HOME\z)],
|
|
|
|
"environment expansion not applied on --ignore");
|
|
|
|
is_deeply($options->{defer}, [qr(\A\$HOME)],
|
|
|
|
"environment expansion not applied on --defer");
|
|
|
|
is_deeply($options->{override}, [qr(\A\$HOME)],
|
|
|
|
"environment expansion not applied on --override");
|
|
|
|
|
2016-07-14 15:48:40 -04:00
|
|
|
#
|
|
|
|
# Test that tilde expansion is applied in correct places.
|
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
make_file($HOME_RC_FILE, <<'HERE');
|
2016-07-14 15:48:40 -04:00
|
|
|
--dir=~/stow
|
|
|
|
--target=~/stow
|
|
|
|
--ignore=~/stow
|
|
|
|
--defer=~/stow
|
|
|
|
--override=~/stow
|
|
|
|
HERE
|
|
|
|
($options, $pkgs_to_delete, $pkgs_to_stow) = get_config_file_options();
|
2019-06-28 04:56:46 -04:00
|
|
|
is($options->{dir}, "$ABS_TEST_DIR/stow",
|
|
|
|
"apply tilde expansion on \$HOME/.stowrc --dir");
|
|
|
|
is($options->{target}, "$ABS_TEST_DIR/stow",
|
|
|
|
"apply tilde expansion on \$HOME/.stowrc --target");
|
2016-07-14 15:48:40 -04:00
|
|
|
is_deeply($options->{ignore}, [qr(~/stow\z)],
|
2019-06-28 04:56:46 -04:00
|
|
|
"tilde expansion not applied on --ignore");
|
2016-07-14 15:48:40 -04:00
|
|
|
is_deeply($options->{defer}, [qr(\A~/stow)],
|
2019-06-28 04:56:46 -04:00
|
|
|
"tilde expansion not applied on --defer");
|
2016-07-14 15:48:40 -04:00
|
|
|
is_deeply($options->{override}, [qr(\A~/stow)],
|
2019-06-28 04:56:46 -04:00
|
|
|
"tilde expansion not applied on --override");
|
2016-07-14 15:48:40 -04:00
|
|
|
|
2019-06-28 04:56:46 -04:00
|
|
|
#
|
2016-07-01 19:38:25 -04:00
|
|
|
# Clean up files used for testing.
|
|
|
|
#
|
2019-06-28 04:56:46 -04:00
|
|
|
unlink $HOME_RC_FILE or die "Unable to clean up $HOME_RC_FILE.\n";
|
|
|
|
remove_dir($ABS_TEST_DIR);
|
2016-07-01 19:38:25 -04:00
|
|
|
|