132
133
134
135
136
137
138
|
tcltest::test Hash_SHA224-1.22 {SHA224} \
-constraints SHA224 \
-setup {set data [binary decode hex 55b210079c61b53add520622d1ac97d5cdbe8cb33aa0ae344517bee4d7ba09abc8533c5250887a43bebbac906c2e1837f26b36a59ae3be7814d506896b718b2a383ecdac16b96125553f416ff32c6674c74599a9005386d9ce1112245f48ee470d396c1ed63b92670ca56ec84deea814b6135eca54392bdedb9489bc9b875a8baf0dc1ae785736914ab7daa264bc079d269f2c0d7eddd810a426145a0776f67c878273]} \
-body {tls::digest -digest SHA224 -data $data} \
-match exact -result 0b31894ec8937ad9b91bdfbcba294d9adefaa18e09305e9f20d5c3a4
|
>
>
>
|
132
133
134
135
136
137
138
139
140
141
|
tcltest::test Hash_SHA224-1.22 {SHA224} \
-constraints SHA224 \
-setup {set data [binary decode hex 55b210079c61b53add520622d1ac97d5cdbe8cb33aa0ae344517bee4d7ba09abc8533c5250887a43bebbac906c2e1837f26b36a59ae3be7814d506896b718b2a383ecdac16b96125553f416ff32c6674c74599a9005386d9ce1112245f48ee470d396c1ed63b92670ca56ec84deea814b6135eca54392bdedb9489bc9b875a8baf0dc1ae785736914ab7daa264bc079d269f2c0d7eddd810a426145a0776f67c878273]} \
-body {tls::digest -digest SHA224 -data $data} \
-match exact -result 0b31894ec8937ad9b91bdfbcba294d9adefaa18e09305e9f20d5c3a4
# Cleanup
::tcltest::cleanupTests
return
|