Change 16374 by jhi@alpha on 2002/05/03 13:58:08
EBCDIC tweak.
Affected files ...
.... //depot/perl/ext/Digest/MD5/t/utf8.t#2 edit
Differences ...
==== //depot/perl/ext/Digest/MD5/t/utf8.t#2 (text) ====
Index: perl/ext/Digest/MD5/t/utf8.t
--- perl/ext/Digest/MD5/t/utf8.t.~1~ Fri May 3 08:15:05 2002
+++ perl/ext/Digest/MD5/t/utf8.t Fri May 3 08:15:05 2002
@@ -20,10 +20,14 @@
print "not " unless $@ && $@ =~ /^(Big byte|Wide character)/;
print "ok 1\n";
+my $exp = ord "A" == 193 ? # EBCDIC
+ "c307ec81deba65e9a222ca81cd8f6ccd" :
+ "503debffe559537231ed24f25651ec20"; # Latin 1
+
chop($str); # only bytes left
-print "not " unless md5_hex($str) eq "503debffe559537231ed24f25651ec20";
+print "not " unless md5_hex($str) eq $exp;
print "ok 2\n";
# reference
-print "not " unless md5_hex("foo\xFF") eq "503debffe559537231ed24f25651ec20";
+print "not " unless md5_hex("foo\xFF") eq $exp;
print "ok 3\n";
End of Patch.
