view release on metacpan or  search on metacpan

t/System.t  view on Meta::CPAN

#########################

use Test::More tests => 4;
BEGIN { use_ok('YVDHOVE::System', qw(:all)) };

#########################

my($rc, $stdout, $stderr) = execCMD('perl -v', 1, 0);

is($rc, 1, 'execCMD - RC');
like($stdout, qr/This is perl/, 'execCMD - STDOUT');
is($stderr, '', 'execCMD - STDERR');