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';
}