From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 5 Nov 2010 16:15:18 +0000 (+0000)
Subject: Tweak the test from 98517ccb8d5e8751 to work with PERL_UNICODE set.
X-Git-Tag: accepted/trunk/20130322.191538~6928
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=51a95cc18fb93850bbc11a59dd88e2cbc84678af;p=platform%2Fupstream%2Fperl.git

Tweak the test from 98517ccb8d5e8751 to work with PERL_UNICODE set.

One should always generate the golden B::Concise output with PERL_UNICODE set
so that ${^OPEN} is set, as the test system knows how to take it out, not put
it in.
---

diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t
index c5d4e2e..f450e71 100644
--- a/ext/B/t/optree_misc.t
+++ b/ext/B/t/optree_misc.t
@@ -104,7 +104,7 @@ checkOptree ( name	=> 'PMOP children',
 	      expect	=> <<'EOT_EOT', expect_nt => <<'EONT_EONT');
 # 6  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->6
-# 1        <;> nextstate(main 1 -e:1) v:{ ->2
+# 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
 # 3        </> subst(/"(a)"/ replstart->4) KS ->6
 # -           <1> ex-rv2sv sKRM/1 ->3
 # 2              <#> gvsv[*foo] s ->3
@@ -114,7 +114,7 @@ checkOptree ( name	=> 'PMOP children',
 EOT_EOT
 # 6  <1> leavesub[1 ref] K/REFC,1 ->(end)
 # -     <@> lineseq KP ->6
-# 1        <;> nextstate(main 1 -e:1) v:{ ->2
+# 1        <;> nextstate(main 1 -e:1) v:>,<,%,{ ->2
 # 3        </> subst(/"(a)"/ replstart->4) KS ->6
 # -           <1> ex-rv2sv sKRM/1 ->3
 # 2              <$> gvsv(*foo) s ->3