Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
11 lines (6 sloc) 231 Bytes
# vim: ft=perl6
plan(1);
my $p5code := 'sub { my $x = shift; return $x ** $x }';
pir::load_bytecode("perl5.pir");
my $p5fun := pir::compreg__ps("perl5").make_interp($p5code)();
ok($p5fun(4) == 256, "can call through p5 subs");