Remove trailing whitespace

This commit is contained in:
Adam Spiers 2021-04-04 23:37:24 +01:00
parent a426a5979d
commit cb4b0c6a9a
2 changed files with 11 additions and 11 deletions

View file

@ -186,7 +186,7 @@ sub parent {
my $path = join '/', @_; my $path = join '/', @_;
my @elts = split m{/+}, $path; my @elts = split m{/+}, $path;
pop @elts; pop @elts;
return join '/', @elts; return join '/', @elts;
} }
#===== METHOD =============================================================== #===== METHOD ===============================================================

View file

@ -40,7 +40,7 @@ my %conflicts;
# #
# unstow a simple tree minimally # unstow a simple tree minimally
# #
$stow = new_compat_Stow(); $stow = new_compat_Stow();
@ -53,7 +53,7 @@ $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
-f '../stow/pkg1/bin1/file1' && ! -e 'bin1' -f '../stow/pkg1/bin1/file1' && ! -e 'bin1'
=> 'unstow a simple tree' => 'unstow a simple tree'
); );
# #
@ -70,7 +70,7 @@ $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
-f '../stow/pkg2/lib2/file2' && -d 'lib2' -f '../stow/pkg2/lib2/file2' && -d 'lib2'
=> 'unstow simple tree from a pre-existing directory' => 'unstow simple tree from a pre-existing directory'
); );
# #
@ -89,10 +89,10 @@ make_file('../stow/pkg3b/bin3/file3b');
make_link('bin3/file3b' => '../../stow/pkg3b/bin3/file3b'); # emulate stow make_link('bin3/file3b' => '../../stow/pkg3b/bin3/file3b'); # emulate stow
$stow->plan_unstow('pkg3b'); $stow->plan_unstow('pkg3b');
$stow->process_tasks(); $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
-l 'bin3' && -l 'bin3' &&
readlink('bin3') eq '../stow/pkg3a/bin3' readlink('bin3') eq '../stow/pkg3a/bin3'
=> 'fold tree after unstowing' => 'fold tree after unstowing'
); );
@ -235,7 +235,7 @@ make_file('../stow/pkg9b/man9/man1/file9.1');
capture_stderr(); capture_stderr();
$stow->plan_unstow('pkg9b'); $stow->plan_unstow('pkg9b');
$stow->process_tasks(); $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
!-l 'man9/man1/file9.1' !-l 'man9/man1/file9.1'
=> 'overriding existing documentation files' => 'overriding existing documentation files'
@ -263,9 +263,9 @@ make_file('../stow/pkg10c/man10/man1/file10a.1');
capture_stderr(); capture_stderr();
$stow->plan_unstow('pkg10c'); $stow->plan_unstow('pkg10c');
is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg10c'); is($stow->get_tasks, 0, 'no tasks to process when unstowing pkg10c');
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
readlink('man10/man1/file10a.1') eq '../../../stow/pkg10a/man10/man1/file10a.1' readlink('man10/man1/file10a.1') eq '../../../stow/pkg10a/man10/man1/file10a.1'
=> 'defer to existing documentation files' => 'defer to existing documentation files'
); );
check_protected_dirs_skipped(); check_protected_dirs_skipped();
@ -285,7 +285,7 @@ make_link('man12/man1/file12.1' => '../../../stow/pkg12/man12/man1/file12.1');
capture_stderr(); capture_stderr();
$stow->plan_unstow('pkg12'); $stow->plan_unstow('pkg12');
$stow->process_tasks(); $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
!-e 'man12/man1/file12.1' !-e 'man12/man1/file12.1'
=> 'ignore temp files' => 'ignore temp files'
@ -355,7 +355,7 @@ $stow->process_tasks();
ok( ok(
$stow->get_conflict_count == 0 && $stow->get_conflict_count == 0 &&
-f "$TEST_DIR/stow/pkg13/bin13/file13" && ! -e "$TEST_DIR/target/bin13" -f "$TEST_DIR/stow/pkg13/bin13/file13" && ! -e "$TEST_DIR/target/bin13"
=> 'unstow a simple tree' => 'unstow a simple tree'
); );
# #