This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/blocks.t: tests for RT #113934
authorDan Collins <dcollinsn@gmail.com>
Wed, 21 Sep 2016 14:08:26 +0000 (10:08 -0400)
committerYves Orton <demerphq@gmail.com>
Fri, 21 Oct 2016 07:09:44 +0000 (09:09 +0200)
t/op/blocks.t

index 0c6e945..1673733 100644 (file)
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan tests => 10;
+plan tests => 11;
 
 my @expect = qw(
 b1
@@ -156,3 +156,6 @@ TODO: {
     local $TODO = 'RT #2917: INIT{} in eval is wrongly considered too late';
     fresh_perl_is('eval "INIT { print qq(in init); };";', 'in init', {}, 'RT #2917: No constraint on how late INIT blocks can run');
 }
+
+fresh_perl_is('eval "BEGIN {goto end}"; end:', '', {}, 'RT #113934: goto out of BEGIN causes assertion failure');
+