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-Tag: accepted/trunk/20130322.191538~14985
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=0df5f63f6809bbf24ffde62fa2804f0041470b74;p=platform%2Fupstream%2Fperl.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");
+    }
+}
+