222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
|
-
+
|
tls::digest md5 -key "Example key" -data "Example string for message digest tests."
} -result {901DA6E6976A71650C77443C37FF9C7F}
test Digest_HMAC-10.2 {file} -body {
tls::digest md5 -key "Example key" -file md_data.dat
} -result {901DA6E6976A71650C77443C37FF9C7F}
test Digest_HMAC-10.3 {channel} -constraint {knownBug} -body {
test Digest_HMAC-10.3 {channel} -constraints {knownBug} -body {
read_chan md5 md_data.dat -key "Example key"
} -result {901DA6E6976A71650C77443C37FF9C7F}
test Digest_HMAC-10.4 {data bin} -body {
string toupper [binary encode hex [tls::digest md5 -bin -key "Example key" -data "Example string for message digest tests."]]
} -result {901DA6E6976A71650C77443C37FF9C7F}
# Test list protocols
|