diff options
| author | David Mitchell <davem@iabyn.com> | 2016-08-24 13:41:00 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-08-24 13:41:00 +0100 |
| commit | 91abb413c86e04a93ab807cac8a8d3ff68cbb345 (patch) | |
| tree | 2317972670685c2ac12949ff2623ef7db59d6281 /ext/B/t | |
| parent | 71a9d1055562b01938400494965dac70b3a685c5 (diff) | |
| download | perl-91abb413c86e04a93ab807cac8a8d3ff68cbb345.tar.gz | |
concise.t: work with PERL_UNICODE=""
Fixup some tests I added recently so that they pass with PERL_UNICODE=""
- which causes extra hints bits to be set in nextstate ops.
Diffstat (limited to 'ext/B/t')
| -rw-r--r-- | ext/B/t/concise.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/B/t/concise.t b/ext/B/t/concise.t index fe955d166e..3541ce3504 100644 --- a/ext/B/t/concise.t +++ b/ext/B/t/concise.t @@ -514,10 +514,14 @@ like $out, qr/$end/, 'OP_AND->op_other points correctly'; my @hints = $out =~ /nextstate\([^)]+\) (.*) ->/g; + # handle test script run with PERL_UNICODE="" + s/>,<,// for @hints; + s/%,// for @hints; + is(scalar(@hints), 3, "3 hints"); is($hints[0], 'v:{', "hints[0]"); is($hints[1], 'v:*,&,{,x*,x&,x$,$', "hints[1]"); - is($hints[2], 'v:%,us,*,&,{,x*,x&,x$,$,fea=7', "hints[2]"); + is($hints[2], 'v:us,*,&,{,x*,x&,x$,$,fea=7', "hints[2]"); } __END__ |