diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2000-12-10 14:53:21 +0900 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-09 21:53:35 +0000 |
| commit | ca9dc00c559bb16eae63de552c549a40c3f17e5b (patch) | |
| tree | 18e10d6625c78adc8826ad922f1b760f05c2cdb7 /t/op | |
| parent | c3654f1afb5dff5b62753314bd22e2270ff9f009 (diff) | |
| download | perl-ca9dc00c559bb16eae63de552c549a40c3f17e5b.tar.gz | |
Re: Additional patch for UTF8-keys (Re: perl@8016)
Message-ID: <3A329BC0.15E8BFF9@st.rim.or.jp>
Tests for #8056.
p4raw-id: //depot/perl@8057
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/each.t | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/t/op/each.t b/t/op/each.t index 4a00a1e2c5..35792ab9c3 100755 --- a/t/op/each.t +++ b/t/op/each.t @@ -1,6 +1,6 @@ #!./perl -print "1..20\n"; +print "1..24\n"; $h{'abc'} = 'ABC'; $h{'def'} = 'DEF'; @@ -143,3 +143,16 @@ foreach (keys %u) { } } print "ok 20\n"; + +$a = "\xe3\x81\x82"; $A = "\x{3042}"; +%b = ( $a => "non-utf8"); +%u = ( $A => "utf8"); + +print "not " if exists $b{$A}; +print "ok 21\n"; +print "not " if exists $u{$a}; +print "ok 22\n"; +print "#$b{$_}\n" for keys %b; # Used to core dump before change #8056. +print "ok 23\n"; +print "#$u{$_}\n" for keys %u; # Used to core dump before change #8056. +print "ok 24\n"; |