From 85fd1718f1ef3f9bfa065f982148888889ad4fcd Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Thu, 28 Feb 2002 05:50:24 +0000 Subject: [PATCH] Tests for #14908. p4raw-id: //depot/perl@14909 --- t/op/pat.t | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/t/op/pat.t b/t/op/pat.t index 86025d1..b3db7de 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..855\n"; +print "1..858\n"; BEGIN { chdir 't' if -d 't'; @@ -2689,3 +2689,20 @@ print "# some Unicode properties\n"; print $x eq "x b x" ? "ok 855\n" : "not ok 855\n"; } + +{ + print "# UTF-8 hash keys and /\$/\n"; + # http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2002-01/msg01327.html + + my $u = "a\x{100}"; + my $v = substr($u,0,1); + my $w = substr($u,1,1); + my %u = ( $u => $u, $v => $v, $w => $w ); + my $i = 856; + for (keys %u) { + my $m1 = /^\w*$/ ? 1 : 0; + my $m2 = $u{$_}=~/^\w*$/ ? 1 : 0; + print $m1 == $m2 ? "ok $i\n" : "not ok $i # $m1 $m2\n"; + $i++; + } +} -- 2.7.4