diff options
| author | Nicholas Clark <nick@ccl4.org> | 2003-11-29 17:30:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2003-11-29 17:30:18 +0000 |
| commit | 72fcecc52baa353d60255cacfa57be92e76f59d2 (patch) | |
| tree | 9e3f13f87436c30c9d46b3ef6e0d499ef70921d0 | |
| parent | 10d7ec48cd7252976e5d98d8245df9ed1b239c74 (diff) | |
| download | perl-72fcecc52baa353d60255cacfa57be92e76f59d2.tar.gz | |
D'oh! This has been moved to lib/Digest/t/digest.t but not deleted.
p4raw-id: //depot/perl@21811
| -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/; - |