X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDigest.t;h=fbc2dac80567d9ba269061ff402007ced0971fbc;hb=ce4f4a1cb8714c6c6c3c7b002c9830a7cafc6780;hp=5741b777fe2adea7fafe9dc85f395a7127880396;hpb=b695f709e8a342e35e482b0437eb6cdacdc58b6b;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Digest.t b/lib/Digest.t
index 5741b77..fbc2dac 100644
--- a/lib/Digest.t
+++ b/lib/Digest.t
@@ -1,13 +1,9 @@
 print "1..3\n";
 
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
 use Digest;
 
-my $hexdigest = "900150983cd24fb0d6963f7d28e17f72";
+my $hexdigest = "900150983cd24fb0d6963f7d28e17f72"; # ASCII
+
 if (ord('A') == 193) { # EBCDIC
     $hexdigest = "fe4ea0d98f9cd8d1d27f102a93cb0bb0"; # IBM-1047
 }
@@ -19,6 +15,7 @@ print "not " unless Digest->MD5->add("abc")->hexdigest eq $hexdigest;
 print "ok 2\n";
 
 eval {
+    # Not yet EBCDICified.
     print "not " unless Digest->new("HMAC-MD5" => "Jefe")->add("what do ya want for nothing?")->hexdigest eq "750c783e6ab0b503eaa86e310a5db738";
     print "ok 3\n";
 };