use strict;
use warnings;
use Test::Tester;
use Test::More tests => 2;
use Test::Script;
use IPC::Run3 ();
do { no warnings; sub IPC::Run3::run3 { die "an exception" } };
subtest script_compiles => sub {
my(undef, $result) = check_test( sub {
script_compiles( 't/bin/missing.pl' );
}, {
ok => 0,
name => 'Script t/bin/missing.pl compiles',
},
);
note $result->{diag};
};
subtest script_runs => sub {
my(undef, $result) = check_test( sub {
script_runs( 't/bin/missing.pl' );
}, {
ok => 0,
name => 'Script t/bin/missing.pl runs',
},
);
note $result->{diag};
};