diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-07-13 22:47:29 +0300 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2006-07-13 17:12:00 +0000 |
| commit | 2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8 (patch) | |
| tree | 4fbd3f59e65577085646ea3f266175edf15efd1e /lib/utf8.t | |
| parent | 6ae709ad20fb5debe5f58c9686ed99226819442f (diff) | |
| download | perl-2f3efc978ada94e3718bd6f3a25b06cd1d13b6f8.tar.gz | |
z/OS: non-CPAN ext and lib + main() without the third arg + Stephen McCamant's comment
Message-ID: <44B67921.6090901@iki.fi>
p4raw-id: //depot/perl@28567
Diffstat (limited to 'lib/utf8.t')
| -rw-r--r-- | lib/utf8.t | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/lib/utf8.t b/lib/utf8.t index 81ebc22161..a5827f48c0 100644 --- a/lib/utf8.t +++ b/lib/utf8.t @@ -349,7 +349,11 @@ SKIP: { ok( utf8::is_utf8($c), "utf8::is_utf8 unicode"); is(utf8::upgrade($a), 1, "utf8::upgrade basic"); - is(utf8::upgrade($b), 2, "utf8::upgrade beyond"); + if (ord('A') == 193) { # EBCDIC. + is(utf8::upgrade($b), 1, "utf8::upgrade beyond"); + } else { + is(utf8::upgrade($b), 2, "utf8::upgrade beyond"); + } is(utf8::upgrade($c), 2, "utf8::upgrade unicode"); is($a, "A", "basic"); @@ -381,7 +385,11 @@ SKIP: { utf8::encode($c); is($a, "A", "basic"); - is(length($b), 2, "beyond length"); + if (ord('A') == 193) { # EBCDIC. + is(length($b), 1, "beyond length"); + } else { + is(length($b), 2, "beyond length"); + } is(length($c), 2, "unicode length"); ok(utf8::valid($a), "utf8::valid basic"); @@ -406,7 +414,11 @@ SKIP: { ok(utf8::valid($c), " utf8::valid unicode"); ok(!utf8::is_utf8($a), "!utf8::is_utf8 basic"); - ok( utf8::is_utf8($b), " utf8::is_utf8 beyond"); # $b stays in UTF-8. + if (ord('A') == 193) { # EBCDIC. + ok( utf8::is_utf8(pack('U',0x0ff)), " utf8::is_utf8 beyond"); + } else { + ok( utf8::is_utf8($b), " utf8::is_utf8 beyond"); # $b stays in UTF-8. + } ok( utf8::is_utf8($c), " utf8::is_utf8 unicode"); } |