view release on metacpan or  search on metacpan

t/easy-qx.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More tests => 2;
use Test::Exception;

use AnyEvent::Subprocess::Easy qw(qx_nonblock);

{
    my $cv = qx_nonblock('date');
    my $result = $cv->recv;
    diag $result;
    ok length $result > 5, 'got some result back';
}

{
    diag "The 'failed' message you are about to see is good.";
    # if you have a command with this name on your machine...
    my $cv = qx_nonblock('I CAN HAZ', 'CHEZBURGER?');

    throws_ok {
        my $result = $cv->recv;
    } qr/: 255/, 'non-existent command errored';

}