From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 28 Jun 2007 20:33:32 +0000 (+0000)
Subject: Add a TODO test cases RT# 43403.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0df5f63f6809bbf24ffde62fa2804f0041470b74;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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");
+    }
+}
+