From 21490649347dd7738131635333645926ea49c1d1 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Tue, 16 Aug 2011 00:42:18 +0200
Subject: HMAC: Add test data.

---
 hmac.rkt | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'hmac.rkt')

diff --git a/hmac.rkt b/hmac.rkt
index 6ff03cf..b9d012d 100644
--- a/hmac.rkt
+++ b/hmac.rkt
@@ -55,8 +55,15 @@
                              msg))
                            hashsize)))))
 
+;; According to Ironclad:
+;;
+;; CRYPTO[12]> (map nil
+;;                  (lambda (x) (format t "~x" x))
+;;                    (hmac-digest (make-hmac "" 'whirlpool)))
+;; 57D73990319055DEFA7739FF7B72406A927BBC54E8FCDC98E145FA4C36CE83
+;; A9CF165AD1E0D1925F93AC1D12B985A26044E9FB1B9CCE24301FAA76EAAB53
+;;
 #;
 (begin
   (require "whirlpool.rkt")
   (printf "~x~%" (hmac whirlpool 64 64 #"" #"")))
-
-- 
cgit v1.2.3