diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 17:15:15 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-23 17:15:15 +0000 |
| commit | 20b5b8d0e20c19318eff308529643927999e830c (patch) | |
| tree | b02956c62e6621a9354c62808009d1a229704e34 /t | |
| parent | 53f109d64552578b0c4530d4506e1d95566f5f0f (diff) | |
| download | perl-20b5b8d0e20c19318eff308529643927999e830c.tar.gz | |
EBCDIC: the sorting order is different under
byte-EBCDIC and Unicode.
p4raw-id: //depot/perl@15441
Diffstat (limited to 't')
| -rw-r--r-- | t/op/utfhash.t | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/t/op/utfhash.t b/t/op/utfhash.t index a955f28f1a..54f77bbe4f 100644 --- a/t/op/utfhash.t +++ b/t/op/utfhash.t @@ -43,14 +43,14 @@ foreach my $a ("\x7f","\xff") } # Check we have not got an spurious extra keys -is(join('',sort keys %hash8),"\x7f\xff"); -is(join('',sort keys %hashu),"\x7f\xff\x{1ff}"); +is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff"); +is(join('',sort { ord $a <=> ord $b } keys %hashu),"\x7f\xff\x{1ff}"); # Now add a utf8 key to the 8-bit hash $hash8{chr(0x1ff)} = 0x1ff; # Check we have not got an spurious extra keys -is(join('',sort keys %hash8),"\x7f\xff\x{1ff}"); +is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff\x{1ff}"); foreach my $a ("\x7f","\xff","\x{1ff}") { |