One more test (does binmode()ing a socket succeed)

[p5sagit/p5-mst-13.2.git] / lib / Digest.t

diff --git a/lib/Digest.t b/lib/Digest.t
index 5741b77..fbc2dac 100644 (file)
--- 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";
 };