Help language development. Donate to The Perl Foundation

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

t/09-cmdline-bin.rakutest
# $ raku -M'FindBin' -e 'say Bin.Str';
# # Resolve:  True
# # Bin from: '-e'
# # Path is:  '/sandbox/lembark/Modules/Raku/FindBin/-e'
# /sandbox/lembark/Modules/Raku/FindBin
 
use v6.d;
use lib $*PROGRAM.parent(2).add( 'lib' ).absolute;

use Test;

my $expect  = $*CWD.absolute.IO;

my ( $found ) = qx{ raku -I./lib -M'FindBin' -e 'say Bin.Str' }.chomp;

say "# Expect: '$expect'";
say "# Found:  '$found'";

is $found, $expect, "'raku -e' returns '$found' ($expect)";

done-testing;