Mercurial > lxmppd-hg-xmllex / file comparison
comparison: tests/test_util_sasl_scram.lua
tests/test_util_sasl_scram.lua
- changeset 3406
- 748246005893
equal
deleted
inserted
replaced
| 3405:b1efe62c3c37 | 3406:748246005893 |
|---|---|
| 1 | |
| 2 | |
| 3 local hmac_sha1 = require "util.hmac".sha1; | |
| 4 local function toHex(s) | |
| 5 return s and (s:gsub(".", function (c) return ("%02x"):format(c:byte()); end)); | |
| 6 end | |
| 7 | |
| 8 function Hi(Hi) | |
| 9 assert( toHex(Hi(hmac_sha1, "password", "salt", 1)) == "0c60c80f961f0e71f3a9b524af6012062fe037a6", | |
| 10 [[FAIL: toHex(Hi(hmac_sha1, "password", "salt", 1)) == "0c60c80f961f0e71f3a9b524af6012062fe037a6"]]) | |
| 11 assert( toHex(Hi(hmac_sha1, "password", "salt", 2)) == "ea6c014dc72d6f8ccd1ed92ace1d41f0d8de8957", | |
| 12 [[FAIL: toHex(Hi(hmac_sha1, "password", "salt", 2)) == "ea6c014dc72d6f8ccd1ed92ace1d41f0d8de8957"]]) | |
| 13 assert( toHex(Hi(hmac_sha1, "password", "salt", 64)) == "a7bc9b6efea2cbd717da72d83bfcc4e17d0b6280", | |
| 14 [[FAIL: toHex(Hi(hmac_sha1, "password", "salt", 64)) == "a7bc9b6efea2cbd717da72d83bfcc4e17d0b6280"]]) | |
| 15 assert( toHex(Hi(hmac_sha1, "password", "salt", 4096)) == "4b007901b765489abead49d926f721d065a429c1", | |
| 16 [[FAIL: toHex(Hi(hmac_sha1, "password", "salt", 4096)) == "4b007901b765489abead49d926f721d065a429c1"]]) | |
| 17 -- assert( toHex(Hi(hmac_sha1, "password", "salt", 16777216)) == "eefe3d61cd4da4e4e9945b3d6ba2158c2634e984", | |
| 18 -- [[FAIL: toHex(Hi(hmac_sha1, "password", "salt", 16777216)) == "eefe3d61cd4da4e4e9945b3d6ba2158c2634e984"]]) | |
| 19 end | |
| 20 | |
| 21 function init(init) | |
| 22 -- no tests | |
| 23 end |
