Skip to content
This repository
Browse code

Add a failing test for exit in callbacks

  • Loading branch information...
commit bf19b6885b822cc3c4311bb491fdfede9657891f 1 parent cca07ac
Stefan O'Rear sorear authored

Showing 1 changed file with 14 additions and 0 deletions. Show diff stats Hide diff stats

  1. +14 0 nt/exit.t
14 nt/exit.t
... ... @@ -0,0 +1,14 @@
  1 +# vim: ft=perl6
  2 +
  3 +plan(0);
  4 +
  5 +my $p5code := 'sub { shift->() }';
  6 +
  7 +pir::load_bytecode("perl5.pir");
  8 +my $p5fun := pir::compreg__ps("perl5").make_interp($p5code)();
  9 +
  10 +my &foo := sub () {
  11 + pir::exit(0);
  12 +};
  13 +
  14 +$p5fun(&foo);

0 comments on commit bf19b68

Please sign in to comment.
Something went wrong with that request. Please try again.