Added one test, from GNUPG.

Rev: src/nettle/testsuite/blowfish-test.m4:1.2

diff --git a/testsuite/blowfish-test.m4 b/testsuite/blowfish-test.m4
index 125beb4ddfb587c0b156b3f9bf6de46b7fcb5ae9..931ed8cb01ce832952bbc60e7e2f16e22ff76281 100644 (file)
--- a/testsuite/blowfish-test.m4
+++ b/testsuite/blowfish-test.m4
@@ -2,13 +2,25 @@
 
 BEGIN_TEST
 
-/* FIXME: All values below are bogus. */
 struct blowfish_ctx ctx;
 
 uint8_t msg[BLOWFISH_BLOCK_SIZE];
 uint8_t cipher[BLOWFISH_BLOCK_SIZE];
 uint8_t clear[BLOWFISH_BLOCK_SIZE];
 
+/* 128 bit key. Test from GNUPG. */
+blowfish_set_key(&ctx, 16, "abcdefghijklmnopqrstuvwxyz"));
+blowfish_encrypt(&ctx, BLOWFISH_BLOCK_SIZE, cipher, "BLOWFISH");
+if (!MEMEQ(BLOWFISH_BLOCK_SIZE, cipher, H("32 4E D0 FE F4 13 A2 03")))
+  FAIL;
+
+blowfish_decrypt(&ctx, BLOWFISH_BLOCK_SIZE, clear, cipher);
+if (!MEMEQ(16, "BLOWFISH", clear))
+  FAIL;
+
+/* FIXME: All values below are bogus. */
+#if 0
+
 /* 128 bit keys */
 H(msg, "506812A45F08C889 B97F5980038B8359");
 
@@ -79,3 +91,4 @@ if (!MEMEQ(16, cipher, H("1946DABF6A03A2A2 C3D0B05080AED6FC")))
 blowfish_decrypt(&ctx, BLOWFISH_BLOCK_SIZE, clear, cipher);
 if (!MEMEQ(16, msg, clear))
   FAIL;
+#endif