use strict;
use warnings;
use Test::More qw/no_plan/;
use Test::Exception;
BEGIN { $INC{'IPC/Cmd.pm'} = 1 }
our $can_run = 0;
our @run;
package IPC::Cmd;
sub can_run { $can_run }
sub run { ( 0, 1 ) }
package main;
use lib 't/lib';
BEGIN {
use_ok('Test::Cmd::Perl');
}
isa_ok( my $wrapper = Test::Cmd::Perl->new, 'Test::Cmd::Perl' );
throws_ok { $wrapper->run } qr/couldn't find command 'perl'/;
$can_run = 'perl';
throws_ok { $wrapper->run } qr/error running 'perl': 1/;