view release on metacpan or  search on metacpan

t/01-basics.t  view on Meta::CPAN

76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
subtest "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;