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

Fix chkstow.t

Browse source
This commit is contained in:
Adam Spiers 2011-11-16 14:51:38 +00:00
parent 5fe30e9f1a
commit 8da2a43eb1
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
chkstow.in
View file

@ -60,8 +60,7 @@ sub check_stow {
delete $Package{'..'}; delete $Package{'..'};
if (keys %Package) { if (keys %Package) {
local $,="\n"; print map "$_\n", sort(keys %Package);
print sort(keys %Package), "\n";
} }
} }
return; return;

4
t/chkstow.t
View file

@ -79,7 +79,7 @@ $SIG{'__WARN__'} = sub { };
@ARGV = ('-t', '.', '-l',); @ARGV = ('-t', '.', '-l',);
stdout_like( stdout_like(
\&run_chkstow, \&run_chkstow,
qr{emacs$perl$stow}xms, qr{emacs\nperl\nstow\n}xms,
"List packages"); "List packages");
@ARGV = ('-t', '.', '-b',); @ARGV = ('-t', '.', '-b',);
@ -111,5 +111,5 @@ stdout_like(
@ARGV = ('-b',); @ARGV = ('-b',);
process_options(); process_options();
ok($Target == q{/usr/local}, ok($::Target == q{/usr/local},
"Default target is /usr/local/"); "Default target is /usr/local/");