diff options
author | Tony Cook <tony@develop-help.com> | 2016-11-09 14:16:21 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2016-11-09 14:16:21 +1100 |
commit | 272d03f882615257eeac4d2796d0b94e8c4ad868 (patch) | |
tree | 2146a1b890c60229b665f233714c6bf226618bbf /t | |
parent | cbe6b21e6e54a6011fdc65434771479776a3818d (diff) | |
download | perl-272d03f882615257eeac4d2796d0b94e8c4ad868.tar.gz |
skip some tests that aren't UTF-EBCIDIC compatible on non-ASCII
Diffstat (limited to 't')
-rw-r--r-- | t/op/lex.t | 43 |
1 files changed, 24 insertions, 19 deletions
diff --git a/t/op/lex.t b/t/op/lex.t index 3d9eec7c8a..df96ed745d 100644 --- a/t/op/lex.t +++ b/t/op/lex.t @@ -248,22 +248,27 @@ fresh_perl_like( {}, '[perl #129336] - #!perl -i argument handling' ); -fresh_perl_is( - "BEGIN{\$^H=hex ~0}\xF3", - "Integer overflow in hexadecimal number at - line 1.\n" . - "Malformed UTF-8 character: \\xf3 (too short; got 1 byte, need 4) at - line 1.", - {}, - '[perl #128996] - use of PL_op after op is freed' -); -fresh_perl_like( - qq(BEGIN{\$0="";\$^H=-hex join""=>1}""\xFF), - qr/Malformed UTF-8 character: \\xff \(too short; got 1 byte, need 13\) at - line 1\./, - {}, - '[perl #128997] - buffer read overflow' -); -fresh_perl_like( - qq(BEGIN{\$^H=0x800000}\n 0m 0\xB5\xB500\xB5\0), - qr/Unrecognized character \\x\{0\}; marked by <-- HERE after 0m.*<-- HERE near column 12 at - line 2./, - {}, - '[perl #129000] read before buffer' -); +SKIP: +{ + ord("A") == 65 + or skip "These tests won't work on EBCIDIC", 3; + fresh_perl_is( + "BEGIN{\$^H=hex ~0}\xF3", + "Integer overflow in hexadecimal number at - line 1.\n" . + "Malformed UTF-8 character: \\xf3 (too short; got 1 byte, need 4) at - line 1.", + {}, + '[perl #128996] - use of PL_op after op is freed' + ); + fresh_perl_like( + qq(BEGIN{\$0="";\$^H=-hex join""=>1}""\xFF), + qr/Malformed UTF-8 character: \\xff \(too short; got 1 byte, need 13\) at - line 1\./, + {}, + '[perl #128997] - buffer read overflow' + ); + fresh_perl_like( + qq(BEGIN{\$^H=0x800000}\n 0m 0\xB5\xB500\xB5\0), + qr/Unrecognized character \\x\{0\}; marked by <-- HERE after 0m.*<-- HERE near column 12 at - line 2./, + {}, + '[perl #129000] read before buffer' + ); +} |