deps/cifra/shitlisp/test-sha256.sl

(assert (=
	(sha256 (bytes "abc"))
	[ba7816bf8f01cfea414140de5dae2223b00361a396177a9cb410ff61f20015ad])
)

(assert (=
	(sha256 (bytes "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"))
	[248d6a61d20638b8e5c026930c3e6039a33ce45964ff2167f6ecedd419db06c1])
)

(assert (=
	(sha256 (* (bytes "a") 1000000))
	[cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0])
)

(assert (=
	(sha256 (bytes "The quick brown fox jumps over the lazy dog"))
	[d7a8fbb307d7809469ca9abcb0082e4f8d5651e46d3cdb762d02d0bf37c9e592])
)

(assert (=
	(sha256 (bytes "The quick brown fox jumps over the lazy cog"))
	[e4c4d8f3bf76b692de791a173e05321150f7a345b46484fe427f6acc7ecc81be])
)

(assert (=
	(sha256 [])
	[e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855])
)

(assert (=
	(hmac-sha256 (* [0b] 20) (bytes "Hi There"))
	[b0344c61d8db38535ca8afceaf0bf12b881dc200c9833da726e9376c2e32cff7])
)

(assert (=
	(hmac-sha256 (bytes "Jefe") (bytes "what do ya want for nothing?"))
	[5bdcc146bf60754e6a042426089575c75a003f089d2739839dec58b964ec3843])
)

(assert (=
	(hmac-sha256 (* [aa] 20) (* [dd] 50))
	[773ea91e36800e46854db8ebd09181a72959098b3ef8c122d9635514ced565fe])
)

(assert (=
	(hmac-sha256 [0102030405060708090a0b0c0d0e0f10111213141516171819] (* [cd] 50))
	[82558a389a443c0ea4cc819899f2083a85f0faa3e578f8077a2e3ff46729665b])
)

(assert (=
	(hmac-sha256 (* [aa] 131) (bytes "Test Using Larger Than Block-Size Key - Hash Key First"))
	[60e431591ee0b67f0d8a26aacbf5b77f8e0bc6213728c5140546040f0ee37f54])
)

(assert (=
	(hmac-sha256 (* [aa] 131) (bytes "This is a test using a larger than block-size key and a larger than block-size data. The key needs to be hashed before being used by the HMAC algorithm."))
	[9b09ffa71b942fcb27635fbcd5b0e944bfdc63644f0713938a7f51535c3a35e2])
)


(puts success)