diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-27 23:00:02 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-28 08:04:01 +0000 |
| commit | 501f55b944ed34544942c9ed775ce8fe98a3fa2e (patch) | |
| tree | 87d6bb65f7d2152c756c55661b70d75cdd365e1c /ext | |
| parent | ad02613cb6d8974aab9c68839c06129c8510c983 (diff) | |
| download | perl-501f55b944ed34544942c9ed775ce8fe98a3fa2e.tar.gz | |
z/OS: an easy test nit
Message-Id: <200607271700.k6RH02V1355005@kosh.hut.fi>
p4raw-id: //depot/perl@28629
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/PerlIO/t/encoding.t | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/ext/PerlIO/t/encoding.t b/ext/PerlIO/t/encoding.t index 80e2aff8b8..f36680e46b 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 { |