Permalink
Browse files

Test for previous fix

  • Loading branch information...
1 parent 94726e7 commit bc0e8b1472d608ea27c4458ec3215d2227f11a50 @sorear sorear committed Mar 30, 2010
Showing with 11 additions and 0 deletions.
  1. +11 −0 nt/instantiate_segfault.t
View
@@ -0,0 +1,11 @@
+# vim: ft=perl6
+
+plan(1);
+
+pir::load_bytecode('perl5.pbc');
+my $exn := 0;
+try {
+ my $a := pir::new__pk(['P5Scalar']);
+ CATCH { $exn := $!; }
+}
+ok(pir::defined($exn), "attempting to create a P5Scalar directly fails");

0 comments on commit bc0e8b1

Please sign in to comment.