Permalink
Browse files

Add a failing test for exit in callbacks

  • Loading branch information...
1 parent cca07ac commit bf19b6885b822cc3c4311bb491fdfede9657891f @sorear sorear committed Apr 30, 2010
Showing with 14 additions and 0 deletions.
  1. +14 −0 nt/exit.t
View
@@ -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);

0 comments on commit bf19b68

Please sign in to comment.