t/op/blocks.t: add test for RT #2917

diff --git a/t/op/blocks.t b/t/op/blocks.t
index 4e1638b..0c6e945 100644 (file)
--- a/t/op/blocks.t
+++ b/t/op/blocks.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan tests => 9;
+plan tests => 10;
 
 my @expect = qw(
 b1
@@ -151,3 +151,8 @@ TODO: {
     local $TODO = 'RT #2754: CHECK{exit 0} is broken';
     fresh_perl_is('CHECK{exit 0}; print "still here"', '', {}, 'RT #2754: CHECK{exit 0} should exit');
 }
+
+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');
+}