Commit c77ee1ad authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

hmac: Fix incorrect test.

* tests/hmac.scm ("unit: (get-signature empty string)"): Fix incorrect
expected value.
Fix typos.
parent c1549125
......@@ -20,24 +20,24 @@
(test-begin "hmac")
(test-equal "unit: (get-singature empty string)"
"e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855"
(test-equal "unit: (get-signature empty string)"
"b613679a0814d9ec772f95d778c35fc5ff1697c493715653c6c712144292c5ad"
(get-signature "" ""))
(test-equal "unit: (get-singature foo bar)"
(test-equal "unit: (get-signature foo bar)"
"f9320baf0249169e73850cd6156ded0106e2bb6ad8cab01b7bbbebe6d1065317"
(get-signature "foo" "bar"))
(test-equal "unit: (get-singature ADSILLH inria)"
(test-equal "unit: (get-signature ADSILLH inria)"
"36ba1d2bb2c5c7d856a5ceb130c4c2231e0c4142a95af5dfeca7c054a101780f"
(get-signature "ADSILLH" "inria"))
(test-equal "unit: (get-singature Free Software Free Society)"
(test-equal "unit: (get-signature Free Software Free Society)"
"32a9099a7cd02a82d217e792556afc8ac1d4557d4400332b5f2f5ad47413f05c"
(get-signature "Free-Software" "Free-Society"))
;; Example form: <https://en.wikipedia.org/wiki/HMAC>.
(test-equal "unit: (get-singature wikipedia example)"
;; Example from <https://en.wikipedia.org/wiki/HMAC>.
(test-equal "unit: (get-signature wikipedia example)"
"f7bc83f430538424b13298e6aa6fb143ef4d59a14946175997479dbc2d1a3cd8"
(get-signature "key" "The quick brown fox jumps over the lazy dog"))
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment