Add a TODO test cases RT# 43403.

p4raw-id: //depot/perl@31494

diff --git a/t/op/goto.t b/t/op/goto.t
index a034682..9f98490 100755 (executable)
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -10,7 +10,8 @@ BEGIN {
 
 use warnings;
 use strict;
-plan tests => 57;
+plan tests => 58;
+our $TODO;
 
 our $foo;
 while ($?) {
@@ -446,3 +447,16 @@ like($@, qr/Can't goto subroutine from an eval-block/, 'eval block');
     );
     like($r, qr/bar/, "goto &foo in warn");
 }
+
+TODO: {
+    local $TODO = "[perl #43403] goto() from an if to an else doesn't undo local
+() changes";
+    our $global = "unmodified";
+    if ($global) { # true but not constant-folded
+         local $global = "modified";
+         goto ELSE;
+    } else {
+         ELSE: is($global, "unmodified");
+    }
+}
+