From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 3 May 2002 13:58:08 +0000 (+0000)
Subject: EBCDIC tweak.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=bf32f79f786151d716c36c45b6a1f750bc2ec0bb;p=p5sagit%2Fp5-mst-13.2.git

EBCDIC tweak.

p4raw-id: //depot/perl@16374
---

diff --git a/ext/Digest/MD5/t/utf8.t b/ext/Digest/MD5/t/utf8.t
index 65d929b..83b980a 100644
--- a/ext/Digest/MD5/t/utf8.t
+++ b/ext/Digest/MD5/t/utf8.t
@@ -20,10 +20,14 @@ eval {
 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";