t/op/sub.t: add a TODO test for RT #129916

1 files changed, 12 insertions, 1 deletions

diff --git a/t/op/sub.t b/t/op/sub.t
index 07fa03368b..5c501b181e 100644
--- a/t/op/sub.t
+++ b/t/op/sub.t
@@ -6,7 +6,7 @@ BEGIN {
     set_up_inc('../lib');
 }
 
-plan(tests => 63);
+plan(tests => 65);
 
 sub empty_sub {}
 
@@ -416,6 +416,17 @@ sub curpm {
 "a" =~ /(.)/;
 is(curpm(), 'c', 'return and PL_curpm');
 
+sub rt_129916 { 42 }
+is ref($main::{rt_129916}), 'CODE', 'simple sub stored as CV in stash (main::)';
+{
+    package RT129916;
+    sub foo { 42 }
+}
+{
+    local $TODO = "CV symbol table optimization only works in main:: [perl #129916]";
+    is ref($RT129916::{foo}), 'CODE', 'simple sub stored as CV in stash (non-main::)';
+}
+
 # [perl #129090] Crashes and hangs
 watchdog 10;
 { no warnings;