lexsub.t: Test state sub defined inside eval

diff --git a/t/cmd/lexsub.t b/t/cmd/lexsub.t
index ebf1188..24dc5b0 100644 (file)
--- a/t/cmd/lexsub.t
+++ b/t/cmd/lexsub.t
@@ -8,7 +8,7 @@ BEGIN {
     *bar::like = *like;
 }
 no warnings 'deprecated';
-plan 121;
+plan 122;
 
 # -------------------- our -------------------- #
 
@@ -286,6 +286,11 @@ sub make_anon_with_state_sub{
   }
   p(my @a);
 }
+{
+  state sub x;
+  eval 'sub x {3}';
+  is x, 3, 'state sub defined inside eval';
+}
 
 # -------------------- my -------------------- #