# $ 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;