Builtin-Logged
view release on metacpan or search on metacpan
t/01-basics.t view on Meta::CPAN
767778798081828384858687888990919293949596subtest
"readpipe exit code"
=>
sub
{
my
$res
;
diag
"Executing readpipe($rand)"
;
$res
=
readpipe
$rand
;
ok(!
defined
(
$res
));
ok($?);
diag
"Executing `$rand`"
;
$res
= `
$rand
`;
if
($] lt
"5.020"
) {
# in perl < v5.20, res is an empty string [CT]
ok(!
defined
(
$res
) ||
$res
eq
''
) or diag
"res="
, explain(
$res
);
}
else
{
ok(!
defined
(
$res
)) or diag
"res="
, explain(
$res
);
ok($?);
}
};
$CWD
=
"/"
;
done_testing;
( run in 0.226 second using v1.01-cache-2.11-cpan-0d8aa00de5b )