;;;; 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"))
  )
)

#; ;FIXME sha###sum "..." <> sha###-primitive "..."
(test-group "Pub Strings"

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

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

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

;;;

(test-end "Sha2")

(test-exit)