view release on metacpan or  search on metacpan

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

my $rand = UUID::Random::generate;

subtest "system with scalar argument" => sub {
    diag "Executing system(ls a,b)";
    system("ls a b");
    is($?, 0);
};

subtest "system with array argument" => sub {
    diag "Executing system(ls, a, b, c d)";
    system("ls", "a", "b", "c d");
    is($?, 0);
};

subtest "failed system exit code" => sub {
    diag "Executing system($rand)";
    system($rand);
    ok($?);
};

subtest "readpipe in scalar context" => sub {
    my $res;

    diag "Executing readpipe(ls a b)";
    $res = readpipe("ls a b");
    like($res, qr/a.+b/s);
    is($?, 0);

    diag "Executing `ls a b`";
    $res = `ls a b`;
    like($res, qr/a.+b/s);
    is($?, 0);
};

subtest "readpipe in array context" => sub {
    my @res;

    diag "Executing readpipe(ls a b)";
    @res = readpipe("ls a b");
    is($?, 0);
    is(scalar(@res), 2);

    diag "Executing `ls a b`";
    @res = `ls a b`;
    is($?, 0);
    is(scalar(@res), 2);
};

# XXX readpipe also accepts array argument

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;