1
2
3
4
5
6
7
8
9
10
11
12
|
# Auto generated from "SHA224LongMsg.rsp"
package require tls
package require tcltest
tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}]
tcltest::test Hash_SHA224-3.1 {SHA224LongMsg} \
-constraints SHA224 \
-setup {set data [binary decode hex f149e41d848f59276cfddd743bafa9a90e1ee4a263a118142b33e3702176ef0a59f8237a1cb51b42f3ded6b202d9af0997898fdd03cf60bda951c514547a0850cec25444ae2f24cb711bfbafcc3956c941d3de69f155e3f8b10f06db5f37359b772ddd43e1035a0a0d3db33242d5843033833b0dd43b870c6bf60e8deab55f317cc3273f5e3ba747f0cb65050cb7228796210d9254873643008d45f29cfd6c5b060c9a]} \
-body {tls::digest -digest SHA224 -data $data} \
-match exact -result 9db6dc3a23abd7b6c3d72c38f4843c7de48a71d0ba91a86b18393e5f
|
>
>
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
# Auto generated from "SHA224LongMsg.rsp"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest
tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}]
catch {tls::provider legacy}
tcltest::test Hash_SHA224-3.1 {SHA224LongMsg} \
-constraints SHA224 \
-setup {set data [binary decode hex f149e41d848f59276cfddd743bafa9a90e1ee4a263a118142b33e3702176ef0a59f8237a1cb51b42f3ded6b202d9af0997898fdd03cf60bda951c514547a0850cec25444ae2f24cb711bfbafcc3956c941d3de69f155e3f8b10f06db5f37359b772ddd43e1035a0a0d3db33242d5843033833b0dd43b870c6bf60e8deab55f317cc3273f5e3ba747f0cb65050cb7228796210d9254873643008d45f29cfd6c5b060c9a]} \
-body {tls::digest -digest SHA224 -data $data} \
-match exact -result 9db6dc3a23abd7b6c3d72c38f4843c7de48a71d0ba91a86b18393e5f
|