diff options
| author | Nicholas Clark <nick@ccl4.org> | 2007-10-23 09:59:48 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2007-10-23 09:59:48 +0000 |
| commit | 2acfb4e0833ecffceb6641513a689981ca8cd637 (patch) | |
| tree | 8d1035d25fadc3124769798e226c5685603374e6 /ext/B/t/optree_misc.t | |
| parent | d81018543234fe5f8d429eb7048c0b50792ea031 (diff) | |
| download | perl-2acfb4e0833ecffceb6641513a689981ca8cd637.tar.gz | |
Silly Nick. If you see a nextstate op, then it may have open hints,
and you need to test it with Unicode locales.
p4raw-id: //depot/perl@32177
Diffstat (limited to 'ext/B/t/optree_misc.t')
| -rw-r--r-- | ext/B/t/optree_misc.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ext/B/t/optree_misc.t b/ext/B/t/optree_misc.t index bd8b272bcb..38712beb6c 100644 --- a/ext/B/t/optree_misc.t +++ b/ext/B/t/optree_misc.t @@ -72,7 +72,7 @@ EONT_EONT my $t = <<'EOT_EOT'; # 8 <@> leave[1 ref] vKP/REFC ->(end) # 1 <0> enter ->2 -# 2 <;> nextstate(main 1 -e:1) v:{ ->3 +# 2 <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3 # 7 <2> sassign vKS/2 ->8 # 5 <@> index[t2] sK/2 ->6 # - <0> ex-pushmark s ->3 @@ -84,7 +84,7 @@ EOT_EOT my $nt = <<'EONT_EONT'; # 8 <@> leave[1 ref] vKP/REFC ->(end) # 1 <0> enter ->2 -# 2 <;> nextstate(main 1 -e:1) v:{ ->3 +# 2 <;> nextstate(main 1 -e:1) v:>,<,%,{ ->3 # 7 <2> sassign vKS/2 ->8 # 5 <@> index[t1] sK/2 ->6 # - <0> ex-pushmark s ->3 @@ -101,6 +101,7 @@ if ($] < 5.009) { checkOptree ( name => 'index and PVBM', prog => '$_ = index "foo", "foo"', + strip_open_hints => 1, expect => $t, expect_nt => $nt); __END__ |