Imported Upstream version 2.13

t/badfile.t

@@ -0,0 +1,19 @@
+print "1..2\n";
+
+use Digest::SHA1 ();
+
+$sha1 = Digest::SHA1->new;
+
+eval {
+   use vars qw(*FOO);
+   $sha1->addfile(*FOO);
+};
+print "not " unless $@ =~ /^Bad filehandle: FOO at/;
+print "ok 1\n";
+
+open(BAR, "no-existing-file.$$");
+eval {
+    $sha1->addfile(*BAR);
+};
+print "not " unless $@ =~ /^No filehandle passed at/;
+print "ok 2\n";

t/bits.t

@@ -0,0 +1,36 @@
+#!perl -w
+
+BEGIN {
+    if ($] < 5.005) {
+	# Test module can't be expected to be available
+	# and I ended up with seg faults when trying to
+	# load it with eval { require Test };
+	print "1..0\n";
+	exit;
+    }
+}
+
+use Test qw(plan ok);
+plan tests => 2;
+
+use Digest::SHA1;
+
+my $sha1 = Digest::SHA1->new;
+
+if ($Digest::base::VERSION && $Digest::base::VERSION) {
+    $sha1->add_bits("01111111");
+    ok($sha1->hexdigest, "23833462f55515a900e016db2eb943fb474c19f6");
+    eval {
+	$sha1->add_bits("0111");
+    };
+    ok($@ =~ /must be multiple of 8/);
+}
+else {
+    print "# No Digest::base\n";
+    eval {
+	$sha1->add_bits("foo");
+    };
+    ok($@ =~ /^Can\'t locate Digest\/base\.pm in \@INC/);
+    ok(1);  # dummy
+}
+

t/sha1.t

@@ -0,0 +1,62 @@
+print "1..13\n";
+
+use Digest::SHA1 qw(sha1 sha1_hex sha1_base64 sha1_transform);
+
+print "not " unless Digest::SHA1->new->add("abc")->hexdigest eq "a9993e364706816aba3e25717850c26c9cd0d89d";
+print "ok 1\n";
+
+print "not " unless sha1("abc") eq pack("H*", "a9993e364706816aba3e25717850c26c9cd0d89d");
+print "ok 2\n";
+
+print "not " unless sha1_hex("abc") eq "a9993e364706816aba3e25717850c26c9cd0d89d";
+print "ok 3\n";
+
+print "not " unless sha1_base64("abc") eq "qZk+NkcGgWq6PiVxeFDCbJzQ2J0";
+print "ok 4\n";
+
+# Test file checking from too...
+open(FILE, ">stest$$.txt") || die;
+binmode(FILE);
+for (1..512) {
+    print FILE "This is line $_\n";
+}
+close(FILE);
+
+open(FILE, "stest$$.txt") || die;
+$digest = Digest::SHA1->new->addfile(*FILE)->b64digest;
+print "$digest\nnot " unless $digest eq "1ZuIK/sQeBwqh+dIACqpnoRQUE4";
+print "ok 5\n";
+close(FILE);
+
+unlink("stest$$.txt");
+
+
+print "not " unless sha1_transform(pack('H*', 'dc71a8092d4b1b7b98101d58698d9d1cc48225bb')) 
+	eq pack('H*', '2e4c75ad39160f52614d122e6c7ec80446f68567');
+print "ok 6\n";
+
+print "not " unless sha1_transform(pack('H*', '0abe1db666612acdf95d2f86d60c65210b78ab23')) 
+	eq pack('H*', '7c1c2aabca822912f3016299b160035787477b48');
+print "ok 7\n";
+
+print "not " unless sha1_transform(pack('H*', '86da486230e353e0ec5e9220876c687892c0266c')) 
+	eq pack('H*', '1da304aec652c21d4f54642434705c91aeaf9abe');
+print "ok 8\n";
+
+$digest = Digest::SHA1->new;
+print "not " unless $digest->hexdigest eq "da39a3ee5e6b4b0d3255bfef95601890afd80709";
+print "ok 9\n";
+
+print "not " unless $digest->clone->hexdigest eq "da39a3ee5e6b4b0d3255bfef95601890afd80709";
+print "ok 10\n";
+
+$digest->add("abc");
+print "not " unless $digest->clone->hexdigest eq "a9993e364706816aba3e25717850c26c9cd0d89d";
+print "ok 11\n";
+
+$digest->add("d");
+print "not " unless $digest->hexdigest eq "81fe8bfe87576c3ecb22426f8e57847382917acf";
+print "ok 12\n";
+
+print "not " unless $digest->hexdigest eq "da39a3ee5e6b4b0d3255bfef95601890afd80709";
+print "ok 13\n";