1 files changed, 26 insertions, 0 deletions
diff --git a/ext/Digest/SHA/t/2-nist-sha-1.t b/ext/Digest/SHA/t/2-nist-sha-1.t
new file mode 100644
index 0000000000..18165bc6c1
--- /dev/null
+++ b/ext/Digest/SHA/t/2-nist-sha-1.t
@@ -0,0 +1,26 @@
+use Test;
+use strict;
+use integer;
+use Digest::SHA qw(sha1_hex);
+
+my(@vec, @rsp);
+
+BEGIN {
+	@vec = (
+"abc",
+"abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq",
+"a" x 1000000
+	);
+
+	@rsp = (
+"a9993e364706816aba3e25717850c26c9cd0d89d",
+"84983e441c3bd26ebaae4aa1f95129e5e54670f1",
+"34aa973cd4c4daa4f61eeb2bdbad27316534016f"
+	);
+
+	plan tests => scalar(@vec);
+}
+
+for (my $i = 0; $i < @vec; $i++) {
+	ok(sha1_hex($vec[$i]), $rsp[$i]);
+}