a2beb7b371
Placing a .stow file in a directory tells Stow that this directory should be considered a Stow directory. This is already well-documented. There was an undocumented and slightly broken feature where placing a .nonstow file in a directory was treated in exactly the same way. The intention was for .nonstow to cause Stow to skip stowing into and unstowing from that directory and any of its descendants. However, it also caused Stow to consider symlinks into any of those directories as owned by Stow, even though that was clearly not the intention. So separate treatment of .stow and .nonstow markers, so that while both provide protection against Stow stowing and unstowing, only .stow affects the symlink ownership logic in find_stowed_path() and marked_stow_dir(). Probably no one uses the undocumented .nonstow feature, so it may make sense to remove this in future.
451 lines
13 KiB
Perl
Executable file
451 lines
13 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# 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/.
|
|
|
|
#
|
|
# Test unstowing packages
|
|
#
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Test::More tests => 39;
|
|
use Test::Output;
|
|
use English qw(-no_match_vars);
|
|
|
|
use testutil;
|
|
use Stow::Util qw(canon_path);
|
|
|
|
init_test_dirs();
|
|
cd("$TEST_DIR/target");
|
|
|
|
# Note that each of the following tests use a distinct set of files
|
|
|
|
my $stow;
|
|
my %conflicts;
|
|
|
|
#
|
|
# unstow a simple tree minimally
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('../stow/pkg1/bin1');
|
|
make_file('../stow/pkg1/bin1/file1');
|
|
make_link('bin1', '../stow/pkg1/bin1');
|
|
|
|
$stow->plan_unstow('pkg1');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-f '../stow/pkg1/bin1/file1' && ! -e 'bin1'
|
|
=> 'unstow a simple tree'
|
|
);
|
|
|
|
#
|
|
# unstow a simple tree from an existing directory
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('lib2');
|
|
make_path('../stow/pkg2/lib2');
|
|
make_file('../stow/pkg2/lib2/file2');
|
|
make_link('lib2/file2', '../../stow/pkg2/lib2/file2');
|
|
$stow->plan_unstow('pkg2');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-f '../stow/pkg2/lib2/file2' && -d 'lib2'
|
|
=> 'unstow simple tree from a pre-existing directory'
|
|
);
|
|
|
|
#
|
|
# fold tree after unstowing
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('bin3');
|
|
|
|
make_path('../stow/pkg3a/bin3');
|
|
make_file('../stow/pkg3a/bin3/file3a');
|
|
make_link('bin3/file3a' => '../../stow/pkg3a/bin3/file3a'); # emulate stow
|
|
|
|
make_path('../stow/pkg3b/bin3');
|
|
make_file('../stow/pkg3b/bin3/file3b');
|
|
make_link('bin3/file3b' => '../../stow/pkg3b/bin3/file3b'); # emulate stow
|
|
$stow->plan_unstow('pkg3b');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-l 'bin3' &&
|
|
readlink('bin3') eq '../stow/pkg3a/bin3'
|
|
=> 'fold tree after unstowing'
|
|
);
|
|
|
|
#
|
|
# existing link is owned by stow but is invalid so it gets removed anyway
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('bin4');
|
|
make_path('../stow/pkg4/bin4');
|
|
make_file('../stow/pkg4/bin4/file4');
|
|
make_invalid_link('bin4/file4', '../../stow/pkg4/bin4/does-not-exist');
|
|
|
|
$stow->plan_unstow('pkg4');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
! -e 'bin4/file4'
|
|
=> q(remove invalid link owned by stow)
|
|
);
|
|
|
|
#
|
|
# Existing link is not owned by stow
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('../stow/pkg5/bin5');
|
|
make_invalid_link('bin5', '../not-stow');
|
|
|
|
$stow->plan_unstow('pkg5');
|
|
%conflicts = $stow->get_conflicts;
|
|
like(
|
|
$conflicts{unstow}{pkg5}[-1],
|
|
qr(existing target is not owned by stow)
|
|
=> q(existing link not owned by stow)
|
|
);
|
|
|
|
#
|
|
# Target already exists, is owned by stow, but points to a different package
|
|
#
|
|
$stow = new_Stow();
|
|
|
|
make_path('bin6');
|
|
make_path('../stow/pkg6a/bin6');
|
|
make_file('../stow/pkg6a/bin6/file6');
|
|
make_link('bin6/file6', '../../stow/pkg6a/bin6/file6');
|
|
|
|
make_path('../stow/pkg6b/bin6');
|
|
make_file('../stow/pkg6b/bin6/file6');
|
|
|
|
$stow->plan_unstow('pkg6b');
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-l 'bin6/file6' &&
|
|
readlink('bin6/file6') eq '../../stow/pkg6a/bin6/file6'
|
|
=> q(ignore existing link that points to a different package)
|
|
);
|
|
|
|
#
|
|
# Don't unlink anything under the stow directory
|
|
#
|
|
make_path('stow'); # make out stow dir a subdir of target
|
|
$stow = new_Stow(dir => 'stow');
|
|
|
|
# emulate stowing into ourself (bizarre corner case or accident)
|
|
make_path('stow/pkg7a/stow/pkg7b');
|
|
make_file('stow/pkg7a/stow/pkg7b/file7b');
|
|
make_link('stow/pkg7b', '../stow/pkg7a/stow/pkg7b');
|
|
|
|
$stow->plan_unstow('pkg7b');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg7b');
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-l 'stow/pkg7b' &&
|
|
readlink('stow/pkg7b') eq '../stow/pkg7a/stow/pkg7b'
|
|
=> q(don't unlink any nodes under the stow directory)
|
|
);
|
|
|
|
|
|
#
|
|
# Don't unlink any nodes under another stow directory
|
|
#
|
|
$stow = new_Stow(dir => 'stow');
|
|
|
|
make_path('stow2'); # make our alternate stow dir a subdir of target
|
|
make_file('stow2/.stow');
|
|
|
|
# emulate stowing into ourself (bizarre corner case or accident)
|
|
make_path('stow/pkg8a/stow2/pkg8b');
|
|
make_file('stow/pkg8a/stow2/pkg8b/file8b');
|
|
make_link('stow2/pkg8b', '../stow/pkg8a/stow2/pkg8b');
|
|
|
|
capture_stderr();
|
|
$stow->plan_unstow('pkg8a');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg8a');
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-l 'stow2/pkg8b' &&
|
|
readlink('stow2/pkg8b') eq '../stow/pkg8a/stow2/pkg8b'
|
|
=> q(don't unlink any nodes under another stow directory)
|
|
);
|
|
like($stderr,
|
|
qr/WARNING: skipping marked Stow directory stow2/
|
|
=> "unstowing from ourself should skip stow");
|
|
uncapture_stderr();
|
|
|
|
#
|
|
# overriding already stowed documentation
|
|
#
|
|
$stow = new_Stow(override => ['man9', 'info9']);
|
|
make_file('stow/.stow');
|
|
|
|
make_path('../stow/pkg9a/man9/man1');
|
|
make_file('../stow/pkg9a/man9/man1/file9.1');
|
|
make_path('man9/man1');
|
|
make_link('man9/man1/file9.1' => '../../../stow/pkg9a/man9/man1/file9.1'); # emulate stow
|
|
|
|
make_path('../stow/pkg9b/man9/man1');
|
|
make_file('../stow/pkg9b/man9/man1/file9.1');
|
|
$stow->plan_unstow('pkg9b');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
!-l 'man9/man1/file9.1'
|
|
=> 'overriding existing documentation files'
|
|
);
|
|
|
|
#
|
|
# deferring to already stowed documentation
|
|
#
|
|
$stow = new_Stow(defer => ['man10', 'info10']);
|
|
|
|
make_path('../stow/pkg10a/man10/man1');
|
|
make_file('../stow/pkg10a/man10/man1/file10a.1');
|
|
make_path('man10/man1');
|
|
make_link('man10/man1/file10a.1' => '../../../stow/pkg10a/man10/man1/file10a.1');
|
|
|
|
# need this to block folding
|
|
make_path('../stow/pkg10b/man10/man1');
|
|
make_file('../stow/pkg10b/man10/man1/file10b.1');
|
|
make_link('man10/man1/file10b.1' => '../../../stow/pkg10b/man10/man1/file10b.1');
|
|
|
|
|
|
make_path('../stow/pkg10c/man10/man1');
|
|
make_file('../stow/pkg10c/man10/man1/file10a.1');
|
|
$stow->plan_unstow('pkg10c');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg10c');
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
readlink('man10/man1/file10a.1') eq '../../../stow/pkg10a/man10/man1/file10a.1'
|
|
=> 'defer to existing documentation files'
|
|
);
|
|
|
|
#
|
|
# Ignore temp files
|
|
#
|
|
$stow = new_Stow(ignore => ['~', '\.#.*']);
|
|
|
|
make_path('../stow/pkg12/man12/man1');
|
|
make_file('../stow/pkg12/man12/man1/file12.1');
|
|
make_file('../stow/pkg12/man12/man1/file12.1~');
|
|
make_file('../stow/pkg12/man12/man1/.#file12.1');
|
|
make_path('man12/man1');
|
|
make_link('man12/man1/file12.1' => '../../../stow/pkg12/man12/man1/file12.1');
|
|
|
|
$stow->plan_unstow('pkg12');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
!-e 'man12/man1/file12.1'
|
|
=> 'ignore temp files'
|
|
);
|
|
|
|
#
|
|
# Unstow an already unstowed package
|
|
#
|
|
$stow = new_Stow();
|
|
$stow->plan_unstow('pkg12');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg12');
|
|
ok(
|
|
$stow->get_conflict_count == 0
|
|
=> 'unstow already unstowed package pkg12'
|
|
);
|
|
|
|
#
|
|
# Unstow a never stowed package
|
|
#
|
|
|
|
eval { remove_dir("$TEST_DIR/target"); };
|
|
mkdir("$TEST_DIR/target");
|
|
|
|
$stow = new_Stow();
|
|
$stow->plan_unstow('pkg12');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg12 which was never stowed');
|
|
ok(
|
|
$stow->get_conflict_count == 0
|
|
=> 'unstow never stowed package pkg12'
|
|
);
|
|
|
|
#
|
|
# Unstowing when target contains a real file shouldn't be an issue.
|
|
#
|
|
make_file('man12/man1/file12.1');
|
|
|
|
$stow = new_Stow();
|
|
$stow->plan_unstow('pkg12');
|
|
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg12 for third time');
|
|
%conflicts = $stow->get_conflicts;
|
|
ok(
|
|
$stow->get_conflict_count == 1 &&
|
|
$conflicts{unstow}{pkg12}[0]
|
|
=~ m!existing target is neither a link nor a directory: man12/man1/file12\.1!
|
|
=> 'unstow pkg12 for third time'
|
|
);
|
|
|
|
#
|
|
# unstow a simple tree minimally when cwd isn't target
|
|
#
|
|
cd('../..');
|
|
$stow = new_Stow(dir => "$TEST_DIR/stow", target => "$TEST_DIR/target");
|
|
|
|
make_path("$TEST_DIR/stow/pkg13/bin13");
|
|
make_file("$TEST_DIR/stow/pkg13/bin13/file13");
|
|
make_link("$TEST_DIR/target/bin13", '../stow/pkg13/bin13');
|
|
|
|
$stow->plan_unstow('pkg13');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-f "$TEST_DIR/stow/pkg13/bin13/file13" && ! -e "$TEST_DIR/target/bin13"
|
|
=> 'unstow a simple tree'
|
|
);
|
|
|
|
#
|
|
# unstow a simple tree minimally with absolute stow dir when cwd isn't
|
|
# target
|
|
#
|
|
$stow = new_Stow(dir => canon_path("$TEST_DIR/stow"),
|
|
target => "$TEST_DIR/target");
|
|
|
|
make_path("$TEST_DIR/stow/pkg14/bin14");
|
|
make_file("$TEST_DIR/stow/pkg14/bin14/file14");
|
|
make_link("$TEST_DIR/target/bin14", '../stow/pkg14/bin14');
|
|
|
|
$stow->plan_unstow('pkg14');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-f "$TEST_DIR/stow/pkg14/bin14/file14" && ! -e "$TEST_DIR/target/bin14"
|
|
=> 'unstow a simple tree with absolute stow dir'
|
|
);
|
|
|
|
#
|
|
# unstow a simple tree minimally with absolute stow AND target dirs
|
|
# when cwd isn't target
|
|
#
|
|
$stow = new_Stow(dir => canon_path("$TEST_DIR/stow"),
|
|
target => canon_path("$TEST_DIR/target"));
|
|
|
|
make_path("$TEST_DIR/stow/pkg15/bin15");
|
|
make_file("$TEST_DIR/stow/pkg15/bin15/file15");
|
|
make_link("$TEST_DIR/target/bin15", '../stow/pkg15/bin15');
|
|
|
|
$stow->plan_unstow('pkg15');
|
|
$stow->process_tasks();
|
|
ok(
|
|
$stow->get_conflict_count == 0 &&
|
|
-f "$TEST_DIR/stow/pkg15/bin15/file15" && ! -e "$TEST_DIR/target/bin15"
|
|
=> 'unstow a simple tree with absolute stow and target dirs'
|
|
);
|
|
|
|
#
|
|
# unstow a tree with no-folding enabled -
|
|
# no refolding should take place
|
|
#
|
|
cd("$TEST_DIR/target");
|
|
|
|
sub create_and_stow_pkg {
|
|
my ($id, $pkg) = @_;
|
|
|
|
my $stow_pkg = "../stow/$id-$pkg";
|
|
make_path ($stow_pkg);
|
|
make_file("$stow_pkg/$id-file-$pkg");
|
|
|
|
# create a shallow hierarchy specific to this package and stow
|
|
# via folding
|
|
make_path ("$stow_pkg/$id-$pkg-only-folded");
|
|
make_file("$stow_pkg/$id-$pkg-only-folded/file-$pkg");
|
|
make_link("$id-$pkg-only-folded", "$stow_pkg/$id-$pkg-only-folded");
|
|
|
|
# create a deeper hierarchy specific to this package and stow
|
|
# via folding
|
|
make_path ("$stow_pkg/$id-$pkg-only-folded2/subdir");
|
|
make_file("$stow_pkg/$id-$pkg-only-folded2/subdir/file-$pkg");
|
|
make_link("$id-$pkg-only-folded2",
|
|
"$stow_pkg/$id-$pkg-only-folded2");
|
|
|
|
# create a shallow hierarchy specific to this package and stow
|
|
# without folding
|
|
make_path ("$stow_pkg/$id-$pkg-only-unfolded");
|
|
make_file("$stow_pkg/$id-$pkg-only-unfolded/file-$pkg");
|
|
make_path ("$id-$pkg-only-unfolded");
|
|
make_link("$id-$pkg-only-unfolded/file-$pkg",
|
|
"../$stow_pkg/$id-$pkg-only-unfolded/file-$pkg");
|
|
|
|
# create a deeper hierarchy specific to this package and stow
|
|
# without folding
|
|
make_path ("$stow_pkg/$id-$pkg-only-unfolded2/subdir");
|
|
make_file("$stow_pkg/$id-$pkg-only-unfolded2/subdir/file-$pkg");
|
|
make_path ("$id-$pkg-only-unfolded2/subdir");
|
|
make_link("$id-$pkg-only-unfolded2/subdir/file-$pkg",
|
|
"../../$stow_pkg/$id-$pkg-only-unfolded2/subdir/file-$pkg");
|
|
|
|
# create a shallow shared hierarchy which this package uses, and stow
|
|
# its contents without folding
|
|
make_path ("$stow_pkg/$id-shared");
|
|
make_file("$stow_pkg/$id-shared/file-$pkg");
|
|
make_path ("$id-shared");
|
|
make_link("$id-shared/file-$pkg",
|
|
"../$stow_pkg/$id-shared/file-$pkg");
|
|
|
|
# create a deeper shared hierarchy which this package uses, and stow
|
|
# its contents without folding
|
|
make_path ("$stow_pkg/$id-shared2/subdir");
|
|
make_file("$stow_pkg/$id-shared2/file-$pkg");
|
|
make_file("$stow_pkg/$id-shared2/subdir/file-$pkg");
|
|
make_path ("$id-shared2/subdir");
|
|
make_link("$id-shared2/file-$pkg",
|
|
"../$stow_pkg/$id-shared2/file-$pkg");
|
|
make_link("$id-shared2/subdir/file-$pkg",
|
|
"../../$stow_pkg/$id-shared2/subdir/file-$pkg");
|
|
}
|
|
|
|
foreach my $pkg (qw{a b}) {
|
|
create_and_stow_pkg('no-folding', $pkg);
|
|
}
|
|
|
|
$stow = new_Stow('no-folding' => 1);
|
|
$stow->plan_unstow('no-folding-b');
|
|
is_deeply([ $stow->get_conflicts ], [] => 'no conflicts with --no-folding');
|
|
use Data::Dumper;
|
|
#warn Dumper($stow->get_tasks);
|
|
|
|
$stow->process_tasks();
|
|
|
|
is_nonexistent_path('no-folding-b-only-folded');
|
|
is_nonexistent_path('no-folding-b-only-folded2');
|
|
is_nonexistent_path('no-folding-b-only-unfolded/file-b');
|
|
is_nonexistent_path('no-folding-b-only-unfolded2/subdir/file-b');
|
|
is_dir_not_symlink('no-folding-shared');
|
|
is_dir_not_symlink('no-folding-shared2');
|
|
is_dir_not_symlink('no-folding-shared2/subdir');
|
|
|
|
|
|
# Todo
|
|
#
|
|
# Test cleaning up subdirs with --paranoid option
|