00dani/stow
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

cleanup_invalid_links: add test for non-cleanup of an unowned link

Browse source
This commit is contained in:
Adam Spiers 2024-03-31 11:53:54 +01:00
parent 541faf68eb
commit 877fc0ce7e
1 changed files with 18 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

20
t/cleanup_invalid_links.t
View file

@ -22,7 +22,7 @@
use strict;
use warnings;
use Test::More tests => 3;
use Test::More tests => 4;
use English qw(-no_match_vars);
use testutil;
@ -50,7 +50,7 @@ subtest('nothing to clean in a simple tree' => sub {
);
});
subtest('cleanup a bad link in a simple tree' => sub {
subtest('cleanup an orphaned owned link in a simple tree' => sub {
plan tests => 3;
make_path('bin2');
@ -80,3 +80,19 @@ subtest("don't cleanup a bad link not owned by stow" => sub {
is($stow->get_conflict_count, 0, 'no conflicts cleaning up bad link not owned by stow');
is(scalar($stow->get_tasks), 0, 'no tasks cleaning up bad link not owned by stow');
});
subtest("don't cleanup a valid link in the target not owned by stow" => sub {
plan tests => 2;
make_path('bin4');
make_path('../stow/pkg4/bin4');
make_file('../stow/pkg4/bin4/file3a');
make_link('bin4/file3a', '../../stow/pkg4/bin4/file3a');
make_file("unowned");
make_link('bin4/file3b', '../unowned');
$stow = new_Stow();
$stow->cleanup_invalid_links('bin4');
is($stow->get_conflict_count, 0, 'no conflicts cleaning up bad link not owned by stow');
is(scalar($stow->get_tasks), 0, 'no tasks cleaning up bad link not owned by stow');
});