From ca9dc00c559bb16eae63de552c549a40c3f17e5b Mon Sep 17 00:00:00 2001 From: Inaba Hiroto Date: Sun, 10 Dec 2000 14:53:21 +0900 Subject: [PATCH] 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 --- t/op/each.t | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/t/op/each.t b/t/op/each.t index 4a00a1e..35792ab 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"; -- 2.7.4