This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Tweak the test from 98517ccb8d5e8751 to work with PERL_UNICODE set.
authorNicholas Clark <nick@ccl4.org>
Fri, 5 Nov 2010 16:15:18 +0000 (16:15 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 5 Nov 2010 16:19:59 +0000 (16:19 +0000)
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.

ext/B/t/optree_misc.t

index c5d4e2e..f450e71 100644 (file)
@@ -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
              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
 # 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
 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
 # 3        </> subst(/"(a)"/ replstart->4) KS ->6
 # -           <1> ex-rv2sv sKRM/1 ->3
 # 2              <$> gvsv(*foo) s ->3