diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-02-06 09:52:23 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2002-02-06 09:52:23 +0000 |
| commit | 4ea261a707f4e168dd781badd6330f75cbcc1012 (patch) | |
| tree | 1a17b4c5538c378e9f80c5598f42f6dcc73ecf2b /ext/Encode | |
| parent | 9d9f6b522dae2008a4aa198438ba564e1f80bf14 (diff) | |
| parent | ed46d1101c4681a31a79445e8edbb2ec2fd5341a (diff) | |
| download | perl-4ea261a707f4e168dd781badd6330f75cbcc1012.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@14569
Diffstat (limited to 'ext/Encode')
| -rw-r--r-- | ext/Encode/t/Encode.t | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/ext/Encode/t/Encode.t b/ext/Encode/t/Encode.t index 3f5d206685..ffc4780ae2 100644 --- a/ext/Encode/t/Encode.t +++ b/ext/Encode/t/Encode.t @@ -112,7 +112,7 @@ for my $i (256,128,129,256) } # Spot check a few points in/out of utf8 -for my $i (0x41,128,256,0x20AC) +for my $i (ord('A'),128,256,0x20AC) { my $c = chr($i); my $o = encode_utf8($c); @@ -135,6 +135,3 @@ $a = "\x{100}"; chop $a; ok( is_utf8($a)); # weird but true: an empty UTF-8 string - - - |