Fix chkstow.t
This commit is contained in:
parent
5fe30e9f1a
commit
8da2a43eb1
2 changed files with 3 additions and 4 deletions
|
@ -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;
|
||||||
|
|
|
@ -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/");
|
||||||
|
|
Loading…
Reference in a new issue