diff options
Diffstat (limited to 'web/server/h2o/libh2o/deps/picotls/deps/cifra/shitlisp/test-sha256.sl')
-rw-r--r-- | web/server/h2o/libh2o/deps/picotls/deps/cifra/shitlisp/test-sha256.sl | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/web/server/h2o/libh2o/deps/picotls/deps/cifra/shitlisp/test-sha256.sl b/web/server/h2o/libh2o/deps/picotls/deps/cifra/shitlisp/test-sha256.sl deleted file mode 100644 index 83c04573b..000000000 --- a/web/server/h2o/libh2o/deps/picotls/deps/cifra/shitlisp/test-sha256.sl +++ /dev/null @@ -1,62 +0,0 @@ -(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) |