1N/A chdir 't' if -d 't'; 1N/A$h{
'jkl',
'mno'} =
"JKL\034MNO";
1N/A$h{
'a',
2,
3,
4,
5} =
join("\034",'A',2,3,4,5);
1N/A$i =
0;
# stop -w complaints 1N/Aok ($i == 30, "each count");
1N/Aok ($total != 100, "test iterator of each is being maintained"); 1N/A%h = (a => A, b => B, c=> C, d => D, abc => ABC); 1N/A sub DESTROY { print "ok $::tests[1] # DESTROY called\n"; } 1N/A print "ok $::tests[2]\n"; 1N/A# Check for Unicode hash keys. 1N/A%u = ("\x{12}", "f", "\x{123}", "fo", "\x{1234}", "foo"); 1N/A$u{"\x{12345}"} = "bar"; 1N/A@u{"\x{10FFFD}"} = "zap"; 1N/A$a = "\xe3\x81\x82"; $A = "\x{3042}"; 1N/A%b = ( $a => "non-utf8"); 1N/A%u = ( $A => "utf8"); 1N/Aprint "# $b{$_}\n" for keys %b; # Used to core dump before change #8056. 1N/Apass ("if we got here change 8056 worked"); 1N/Aprint "# $u{$_}\n" for keys %u; # Used to core dump before change #8056. 1N/Apass ("change 8056 is thanks to Inaba Hiroto"); 1N/A# on EBCDIC chars are mapped differently so pick something that needs encoding 1N/Aok ($ol > 3, "check encoding on EBCDIC"); 1N/A%u = ($d => "downgrade"); 1N/A is ($_, pack("U*", 0xe3, 0x81, 0xAF), "check value"); 1N/A my $b0 = "\xC3\xBF"; # 0xCB 0xBF is U+00FF in UTF-8 1N/A my $b1 = "\xC4\x80"; # 0xC4 0x80 is U+0100 in UTF-8