summaryrefslogtreecommitdiff
path: root/t
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2016-11-09 14:16:21 +1100
committerTony Cook <tony@develop-help.com>2016-11-09 14:16:21 +1100
commit272d03f882615257eeac4d2796d0b94e8c4ad868 (patch)
tree2146a1b890c60229b665f233714c6bf226618bbf /t
parentcbe6b21e6e54a6011fdc65434771479776a3818d (diff)
downloadperl-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.t43
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'
+ );
+}