From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 28 Nov 2017 06:10:17 +0000 (+0000)
Subject: Add blowfish-cbc tests.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4e313761e612ae0a481b04d95d7be0130718fd6;p=mit-scheme.git

Add blowfish-cbc tests.
---

diff --git a/tests/runtime/test-blowfish.scm b/tests/runtime/test-blowfish.scm
index e531dd3bf..8160b5300 100644
--- a/tests/runtime/test-blowfish.scm
+++ b/tests/runtime/test-blowfish.scm
@@ -193,3 +193,37 @@ USA.
    #u8(#xF2 #x1E #x9A #x77 #xB7 #x1C #x49 #xBC)
    #u8(#x24 #x59 #x46 #x88 #x57 #x54 #x36 #x9A)
    #u8(#x6B #x5C #x5A #x9C #x5D #x9E #x0A #x5A)))
+
+(define (define-cbc-test i c)
+  (define k #u8(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15))
+  (define iv #u8(7 6 5 4 3 2 1 0))
+  (define p #u8(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23))
+  (let ((p (bytevector-copy p 0 i)))
+    (define-bf-test (symbol 'CBC:ENCRYPT ': i)
+      (lambda ()
+        (let ((bf (blowfish-set-key k))
+              (iv (bytevector-copy iv))
+              (buf (make-bytevector i)))
+          (blowfish-cbc p buf bf iv #t)
+          (assert-equal buf c)
+          (assert-equal iv (bytevector-copy buf (- i 8) i)))))
+    (define-bf-test (symbol 'CBC:DECRYPT ': i)
+      (lambda ()
+        (let ((bf (blowfish-set-key k))
+              (iv (bytevector-copy iv))
+              (buf (make-bytevector i)))
+          (blowfish-cbc c buf bf iv #f)
+          (assert-equal buf p)
+          (assert-equal iv (bytevector-copy c (- i 8) i)))))))
+
+(define-cbc-test 8
+  #u8(#x90 #x6a #xb9 #x17 #xb0 #x9f #xcd #x3a))
+
+(define-cbc-test 16
+  #u8(#x90 #x6a #xb9 #x17 #xb0 #x9f #xcd #x3a
+      #x2b #x41 #x4d #x69 #xbb #xa0 #xc0 #xdf))
+
+(define-cbc-test 24
+  #u8(#x90 #x6a #xb9 #x17 #xb0 #x9f #xcd #x3a
+      #x2b #x41 #x4d #x69 #xbb #xa0 #xc0 #xdf
+      #xed #x69 #x9e #xca #x55 #x13 #xc2 #x7e))