Permalink
Fetching contributors…
Cannot retrieve contributors at this time
31 lines (22 sloc) 812 Bytes
use v6;
use lib $?FILE.IO.parent(2).add("packages");
use Test;
use Test::Util;
plan 4;
ok($*PROGRAM ~~ /S02'-'magicals['/'|'\\']progname'.'\w+$/, "progname var matches test file path");
ok(PROCESS::<$PROGRAM> ~~ /S02'-'magicals['/'|'\\']progname'.'\w+$/, "progname var accessible as context var");
# NOTE:
# above is a junction hack for Unix and Win32 file
# paths until the FileSpec hack is working - Stevan
# changed junction hack in test 2 to regex for Rakudo fudged filename - mberends
lives-ok { my $*PROGRAM-NAME = "coldfusion" }, '$*PROGRAM-NAME is assignable';
# RT #113078
{
is_run 'print $*PROGRAM-NAME', {
out => -> $x { $x !~~ /IGNOREME/ },
},
:compiler-args['-IGNOREME'],
:args['IGNOREME'],
'$*PROGRAM-NAME is not confused by compiler options';
}
# vim: ft=perl6