93 lines
1.8 KiB
Perl
93 lines
1.8 KiB
Perl
#!/usr/local/bin/perl
|
|
|
|
#
|
|
# Testing cleanup_invalid_links()
|
|
#
|
|
|
|
# load as a library
|
|
BEGIN { use lib qw(.); require "t/util.pm"; require "stow"; }
|
|
|
|
use Test::More tests => 3;
|
|
use English qw(-no_match_vars);
|
|
|
|
# local utility
|
|
sub reset_state {
|
|
@Tasks = ();
|
|
@Conflicts = ();
|
|
%Link_Task_For = ();
|
|
%Dir_Task_For = ();
|
|
%Options = ();
|
|
return;
|
|
}
|
|
|
|
### setup
|
|
eval { remove_dir('t/target'); };
|
|
eval { remove_dir('t/stow'); };
|
|
make_dir('t/target');
|
|
make_dir('t/stow');
|
|
|
|
chdir 't/target';
|
|
$Stow_Path= '../stow';
|
|
|
|
# Note that each of the following tests use a distinct set of files
|
|
|
|
#
|
|
# nothing to clean in a simple tree
|
|
#
|
|
reset_state();
|
|
$Option{'verbose'} = 1;
|
|
|
|
make_dir('../stow/pkg1/bin1');
|
|
make_file('../stow/pkg1/bin1/file1');
|
|
make_link('bin1','../stow/pkg1/bin1');
|
|
|
|
cleanup_invalid_links('./');
|
|
is(
|
|
scalar @Tasks, 0
|
|
=> 'nothing to clean'
|
|
);
|
|
|
|
#
|
|
# cleanup a bad link in a simple tree
|
|
#
|
|
reset_state();
|
|
$Option{'verbose'} = 0;
|
|
|
|
make_dir('bin2');
|
|
make_dir('../stow/pkg2/bin2');
|
|
make_file('../stow/pkg2/bin2/file2a');
|
|
make_link('bin2/file2a','../../stow/pkg2/bin2/file2a');
|
|
make_link('bin2/file2b','../../stow/pkg2/bin2/file2b');
|
|
|
|
cleanup_invalid_links('bin2');
|
|
ok(
|
|
scalar(@Conflicts) == 0 &&
|
|
scalar @Tasks == 1 &&
|
|
$Link_Task_For{'bin2/file2b'}->{'action'} eq 'remove'
|
|
=> 'cleanup a bad link'
|
|
);
|
|
|
|
#use Data::Dumper;
|
|
#print Dumper(\@Tasks,\%Link_Task_For,\%Dir_Task_For);
|
|
|
|
#
|
|
# dont cleanup a bad link not owned by stow
|
|
#
|
|
reset_state();
|
|
$Option{'verbose'} = 0;
|
|
|
|
make_dir('bin3');
|
|
make_dir('../stow/pkg3/bin3');
|
|
make_file('../stow/pkg3/bin3/file3a');
|
|
make_link('bin3/file3a','../../stow/pkg3/bin3/file3a');
|
|
make_link('bin3/file3b','../../empty');
|
|
|
|
cleanup_invalid_links('bin3');
|
|
ok(
|
|
scalar(@Conflicts) == 0 &&
|
|
scalar @Tasks == 0
|
|
=> 'dont cleanup a bad link not owned by stow'
|
|
);
|
|
|
|
|