This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
EBCDIC: the sorting order is different under
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Mar 2002 17:15:15 +0000 (17:15 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 23 Mar 2002 17:15:15 +0000 (17:15 +0000)
byte-EBCDIC and Unicode.

p4raw-id: //depot/perl@15441

t/op/utfhash.t

index a955f28..54f77bb 100644 (file)
@@ -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}")
  {