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{'..'};
if (keys %Package) {
local $,="\n";
print sort(keys %Package), "\n";
print map "$_\n", sort(keys %Package);
}
}
return;

4
t/chkstow.t
View file

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