From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 27 Jul 2006 20:00:02 +0000 (+0300)
Subject: z/OS: an easy test nit
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=501f55b944ed34544942c9ed775ce8fe98a3fa2e;p=p5sagit%2Fp5-mst-13.2.git

z/OS: an easy test nit
Message-Id: <200607271700.k6RH02V1355005@kosh.hut.fi>

p4raw-id: //depot/perl@28629
---

diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t
index 80e2aff..f36680e 100644
--- a/ext/PerlIO/t/encoding.t
+++ b/ext/PerlIO/t/encoding.t
@@ -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 {