Deparse.t: Another to-do test for lex subs

1 files changed, 19 insertions, 0 deletions

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index 02ed877b7c..0ea080f6d6 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -1451,6 +1451,25 @@ no warnings 'experimental::lexical_subs';
 state sub f {}
 print f();
 ####
+# SKIP ?$] < 5.017004 && "lexical subs not implemented on this Perl version"
+# TODO unimplemented in B::Deparse; RT #116553
+# lexical subroutine scoping
+# CONTEXT use feature 'lexical_subs'; no warnings 'experimental::lexical_subs';
+{
+  {
+    my sub a { die; }
+    {
+      foo();
+      my sub b;
+      b();
+      main::b();
+      my $b;
+      sub b { $b }
+    }
+  }
+  b();
+}
+####
 # Elements of %# should not be confused with $#{ array }
 () = ${#}{'foo'};
 ####