TODO tests for RT#84526 - given needs to handle magical TARG

diff --git a/t/op/switch.t b/t/op/switch.t
index bcf77d4..c0e57a7 100644 (file)
--- a/t/op/switch.t
+++ b/t/op/switch.t
@@ -9,7 +9,7 @@ BEGIN {
 use strict;
 use warnings;
 
-plan tests => 164;
+plan tests => 166;
 
 # The behaviour of the feature pragma should be tested by lib/switch.t
 # using the tests in t/lib/switch/*. This file tests the behaviour of
@@ -1200,6 +1200,17 @@ unreified_check(undef,"");
     is("@in_slice", "a", "when(hash slice)");
 }
 
+{ # RT#84526 - Handle magical TARG
+    local our $TODO = "RT#84526 - Handle magical TARG";
+    my $x = my $y = "aaa";
+    for ($x, $y) {
+       given ($_) {
+           is(pos, undef, "handle magical TARG");
+            pos = 1;
+       }
+    }
+}
+
 # Okay, that'll do for now. The intricacies of the smartmatch
 # semantics are tested in t/op/smartmatch.t
 __END__