This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/chop.t: Don't use too large code points
authorKarl Williamson <khw@cpan.org>
Mon, 3 Jul 2017 15:33:09 +0000 (09:33 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:23 +0000 (21:14 -0600)
commit5139efdda3fe1fa1c39a7c4d3f8d48f71debf1f0
tree5948d76b0c3ea51d495a8827ff817ea2f169c29b
parent56a85032922b2ccda478b54ad82410492b69d74c
t/op/chop.t: Don't use too large code points

The bug this was testing for requires a code point that will no longer
be legal on 32-bit machines.  So skip unless we're on a 64-bit platform,
and revise to use chr() in the skipped code instead of "\x{}".  The
latter would try to be compiled even if execution gets skipped, so would
cause it to die, whereas chr() is runtime, so get skipped if
inappropriate.  This also tested the very highest legal code point on
64-bit machines, which is now illegal, so test the new very highest one.
t/op/chop.t