From: Nicholas Clark <nick@ccl4.org>
Date: Sat, 29 Nov 2003 17:30:18 +0000 (+0000)
Subject: D'oh! This has been moved to lib/Digest/t/digest.t but not deleted.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72fcecc52baa353d60255cacfa57be92e76f59d2;p=p5sagit%2Fp5-mst-13.2.git

D'oh! This has been moved to lib/Digest/t/digest.t but not deleted.

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

diff --git a/lib/Digest.t b/lib/Digest.t
deleted file mode 100644
index fbc2dac..0000000
--- 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/;
-