diff options
| author | Dorner Thomas <tdorner@amadeus.net> | 2003-12-19 08:16:47 +0100 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2004-01-01 19:22:24 +0000 |
| commit | cc8040a133daf622c9005eb6ffea6375088dc5e7 (patch) | |
| tree | 6986bc2bb4a81c5d9f286d74a8e83790938370ab /t/io | |
| parent | 1933e12cd0d32c774bd7f483285802de52dc8cbc (diff) | |
| download | perl-cc8040a133daf622c9005eb6ffea6375088dc5e7.tar.gz | |
Perl 5.8.3 patches from the BS2000 port - part 2
Message-ID: <6727B1DACFCDD311A757009027CA8D69044B6740@Ex02.inhouse.start.de>
Date: Fri, 19 Dec 2003 07:16:47 +0100
p4raw-id: //depot/perl@22033
Diffstat (limited to 't/io')
| -rwxr-xr-x | t/io/utf8.t | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/t/io/utf8.t b/t/io/utf8.t index 7b2d6723fc..721d7dbd1f 100755 --- a/t/io/utf8.t +++ b/t/io/utf8.t @@ -321,17 +321,22 @@ ok( 1 ); local $SIG{__WARN__} = sub { $@ = shift }; open F, ">a"; binmode F; - print F "foo", chr(0xE4), "\n"; - print F "foo", chr(0xF6), "\n"; + my ($chrE4, $chrF6) = (chr(0xE4), chr(0xF6)); + if (ord('A') == 193) # EBCDIC + { ($chrE4, $chrF6) = (chr(0x43), chr(0xEC)); } + print F "foo", $chrE4, "\n"; + print F "foo", $chrF6, "\n"; close F; open F, "<:utf8", "a"; undef $@; my $line = <F>; - like( $@, qr/utf8 "\\xE4" does not map to Unicode .+ <F> line 1/, + my ($chrE4, $chrF6) = ("E4", "F6"); + if (ord('A') == 193) { ($chrE4, $chrF6) = ("43", "EC"); } # EBCDIC + like( $@, qr/utf8 "\\x$chrE4" does not map to Unicode .+ <F> line 1/, "<:utf8 readline must warn about bad utf8"); undef $@; $line .= <F>; - like( $@, qr/utf8 "\\xF6" does not map to Unicode .+ <F> line 2/, + like( $@, qr/utf8 "\\x$chrF6" does not map to Unicode .+ <F> line 2/, "<:utf8 rcatline must warn about bad utf8"); close F; } |