diff options
Diffstat (limited to 'lib/Digest.t')
| -rw-r--r-- | lib/Digest.t | 23 |
1 files changed, 0 insertions, 23 deletions
diff --git a/lib/Digest.t b/lib/Digest.t deleted file mode 100644 index fbc2dac805..0000000000 --- a/lib/Digest.t +++ /dev/null @@ -1,23 +0,0 @@ -print "1..3\n"; - -use Digest; - -my $hexdigest = "900150983cd24fb0d6963f7d28e17f72"; # ASCII - -if (ord('A') == 193) { # EBCDIC - $hexdigest = "fe4ea0d98f9cd8d1d27f102a93cb0bb0"; # IBM-1047 -} - -print "not " unless Digest->MD5->add("abc")->hexdigest eq $hexdigest; -print "ok 1\n"; - -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"; -}; -print "ok 3\n" if $@ && $@ =~ /^Can't locate/; - |