This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
D'oh! This has been moved to lib/Digest/t/digest.t but not deleted.
authorNicholas Clark <nick@ccl4.org>
Sat, 29 Nov 2003 17:30:18 +0000 (17:30 +0000)
committerNicholas Clark <nick@ccl4.org>
Sat, 29 Nov 2003 17:30:18 +0000 (17:30 +0000)
p4raw-id: //depot/perl@21811

lib/Digest.t [deleted file]

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