view release on metacpan or  search on metacpan

t/04-_which.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More import => [ qw( is like ) ], tests => 4;
use Test::Fatal qw( exception );

use Config qw( %Config );

use App::runscript();

like exception { App::runscript::_which( undef ) }, qr/\ACannot locate undefined executable file/,
  'executable is undefined';

like App::runscript::_which( 'perl' ), '/perl' . $Config{ _exe } . '\z/i', 'locate perl';

like App::runscript::_which( 'perl', 1 ), '/perl' . $Config{ _exe } . '\z/i', 'locate perl returning absolute path';

{
  local $ENV{ PATH } = File::Spec->catfile( $ENV{ PWD }, 'bin' );
  is App::runscript::_which( 'runscript' ), undef, 'runscript has no execute permissions';
}