;;;; sha2-test.scm  -*- Scheme -*-
;;;; Kon Lovett, Jul '18

(import test)

(test-begin "Sha2")

;;;

(import sha2)

;;

(import message-digest-primitive)

(test-group "SHA256 Primitive"
  (let ((sha256 (sha256-primitive)))
    (test-assert (message-digest-primitive? sha256))
    (test 'sha256 (message-digest-primitive-name sha256))
    ;FIXME this is an impl detail that shouldn't be tested
    (test-assert (not (equal? (message-digest-primitive-update sha256) (message-digest-primitive-raw-update sha256)))) )
)

(test-group "SHA384 Primitive"
  (let ((sha384 (sha384-primitive)))
    (test-assert (message-digest-primitive? sha384))
    (test 'sha384 (message-digest-primitive-name sha384))
    ;FIXME this is an impl detail that shouldn't be tested
    (test-assert (not (equal? (message-digest-primitive-update sha384) (message-digest-primitive-raw-update sha384)))) )
)

(test-group "SHA512 Primitive"
  (let ((sha512 (sha512-primitive)))
    (test-assert (message-digest-primitive? sha512))
    (test 'sha512 (message-digest-primitive-name sha512))
    ;FIXME this is an impl detail that shouldn't be tested
    (test-assert (not (equal? (message-digest-primitive-update sha512) (message-digest-primitive-raw-update sha512)))) )
)

;;

(import message-digest-byte-vector)

(test-group "Strings"

  (test-group "Bits 256"
    (test "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
      (message-digest-string (sha256-primitive) ""))
    (test "ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad"
      (message-digest-string (sha256-primitive) "abc"))
    (test "248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1"
      (message-digest-string (sha256-primitive) "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"))
  )

  (test-group "Bits 384"
    (test "38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b"
      (message-digest-string (sha384-primitive) ""))
    (test "cb00753f45a35e8bb5a03d699ac65007272c32ab0eded1631a8b605a43ff5bed8086072ba1e7cc2358baeca134c825a7"
      (message-digest-string (sha384-primitive) "abc"))
    (test "3391fdddfc8dc7393707a65b1b4709397cf8b1d162af05abfe8f450de5f36bc6b0455a8520bc4e6f5fe95b1fe3c8452b"
      (message-digest-string (sha384-primitive) "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"))
  )

  (test-group "Bits 512"
    (test "cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e"
      (message-digest-string (sha512-primitive) ""))
    (test "ddaf35a193617abacc417349ae20413112e6fa4e89a97ea20a9eeee64b55d39a2192992a274fc1a836ba3c23a3feebbd454d4423643ce80e2a9ac94fa54ca49f"
      (message-digest-string (sha512-primitive) "abc"))
    (test "204a8fc6dda82f0a0ced7beb8e08a41657c16ef468b228a8279be331a703c33596fd15c13b1b07f9aa1d3bea57789ca031ad85c7a71dd70354ec631238ca3445"
      (message-digest-string (sha512-primitive) "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"))
  )
)

(test-group "Pub Strings"

  (test-group "Bits 256"
    (test "d7a8fbb307d7809469ca9abcb0082e4f8d5651e46d3cdb762d02d0bf37c9e592"
      (message-digest-string (sha256-primitive) "The quick brown fox jumps over the lazy dog"))
  )

  (test-group "Bits 384"
    (test "ca737f1014a48f4c0b6dd43cb177b0afd9e5169367544c494011e3317dbf9a509cb1e5dc1e85a941bbee3d7f2afbc9b1"
      (message-digest-string (sha384-primitive) "The quick brown fox jumps over the lazy dog"))
  )

  (test-group "Bits 512"
    (test "07e547d9586f6a73f73fbac0435ed76951218fb7d0c8d788a309d785436bbb642e93a252a954f23912547d1e8a3b5ed6e1bfd7097821233fa0538f3db854fee6"
      (message-digest-string (sha512-primitive) "The quick brown fox jumps over the lazy dog"))
  )
)

;;;

(test-end "Sha2")

(test-exit)