### ----------------------------------------------------
### -- File::Which
### -- Licenses: MIT
### -- Authors: 
### -- File: t/01-which.rakutest
### ----------------------------------------------------
use v6;

use Test;

plan 4;

use File::Which;
ok 1, "'use File::Which' worked!";

my $raku = which('raku');
diag "Found raku at '$raku'";
ok $raku.defined, "raku is found";
ok $raku.IO ~~ :e, "raku file exists";
if $*DISTRO.is-win {
  skip("Windows does not set an executable file permission", 1);
} else {
  ok $raku.IO ~~ :x, "raku and is an executable";
}


