From b8346d056834bf636eccec9047c86d0627dcf0c5 Mon Sep 17 00:00:00 2001
From: Karl Williamson <public@khwilliamson.com>
Date: Tue, 7 Jan 2014 10:32:20 -0700
Subject: [PATCH] lib/B/Deparse.t: TODO test for [perl #120950]

This moves a test to earlier in the file where it now fails, and makes
it TODO.  It also creates a copy just after the failure, this time
without the TODO, to show that it is order dependent.

This is in preparation for some commits that exposed this bug.
---
 lib/B/Deparse.t | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/lib/B/Deparse.t b/lib/B/Deparse.t
index fd727c2..194d2a1 100644
--- a/lib/B/Deparse.t
+++ b/lib/B/Deparse.t
@@ -281,6 +281,13 @@ is($deparse->coderef2text(sub{ use utf8; /€/; }),
 done_testing($tests);
 
 __DATA__
+# TODO [perl #120950] This succeeds when run a 2nd time
+# y/uni/code/
+tr/\x{345}/\x{370}/;
+####
+# y/uni/code/  [perl #120950] This 2nd instance succeeds
+tr/\x{345}/\x{370}/;
+####
 # A constant
 1;
 ####
@@ -965,9 +972,6 @@ foreach $' (1, 2) {
 # y///r
 tr/a/b/r;
 ####
-# y/uni/code/
-tr/\x{345}/\x{370}/;
-####
 # [perl #90898]
 <a,>;
 ####
-- 
2.7.4