Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add a failing test for exit in callbacks

  • Loading branch information...
commit bf19b6885b822cc3c4311bb491fdfede9657891f 1 parent cca07ac
@sorear sorear authored
Showing with 14 additions and 0 deletions.
  1. +14 −0 nt/exit.t
View
14 nt/exit.t
@@ -0,0 +1,14 @@
+# vim: ft=perl6
+
+plan(0);
+
+my $p5code := 'sub { shift->() }';
+
+pir::load_bytecode("perl5.pir");
+my $p5fun := pir::compreg__ps("perl5").make_interp($p5code)();
+
+my &foo := sub () {
+ pir::exit(0);
+};
+
+$p5fun(&foo);
Please sign in to comment.
Something went wrong with that request. Please try again.