This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
z/OS: an easy test nit
authorJarkko Hietaniemi <jhi@iki.fi>
Thu, 27 Jul 2006 20:00:02 +0000 (23:00 +0300)
committerH.Merijn Brand <h.m.brand@xs4all.nl>
Fri, 28 Jul 2006 08:04:01 +0000 (08:04 +0000)
Message-Id: <200607271700.k6RH02V1355005@kosh.hut.fi>

p4raw-id: //depot/perl@28629

ext/PerlIO/t/encoding.t

index 80e2aff..f36680e 100644 (file)
@@ -152,13 +152,21 @@ print "ok 14\n";
 
 # Try decoding some bad stuff
 open(F,'>:raw',$threebyte) || die "Cannot open $threebyte:$!";
-print F "foo\xF0\x80\x80\x80bar\n\x80foo\n";
+if (ord('A') == 193) { # EBCDIC
+    print F "foo\x8c\x80\x80\x80bar\n\x80foo\n";
+} else {
+    print F "foo\xF0\x80\x80\x80bar\n\x80foo\n";
+}
 close(F);
 
 open(F,'<:encoding(utf-8)',$threebyte) || die "Cannot open $threebyte:$!";
 $dstr = join(":", <F>);
 close(F);
-print "not " unless $dstr eq "foo\\xF0\\x80\\x80\\x80bar\n:\\x80foo\n";
+if (ord('A') == 193) { # EBCDIC
+    print "not " unless $dstr eq "foo\\x8C\\x80\\x80\\x80bar\n:\\x80foo\n";
+} else {
+    print "not " unless $dstr eq "foo\\xF0\\x80\\x80\\x80bar\n:\\x80foo\n";
+}
 print "ok 15\n";
 
 END {