Help language development. Donate to The Perl Foundation

FindBin cpan:LEMBARK last updated on 2020-01-21

t/04-program-script.rakutest
use v6.d;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;

use Test;

use FindBin;

my $found   = Script;
my $expect  = $*PROGRAM.basename;

ok $found,  'Script returns ' ~ $found; 
ok $expect, '$*PROGRAM.basename is ' ~ $expect;
is $found, $expect, 'Script matches basename.';

done-testing;