84
85
86
87
88
89
90
|
tcltest::test Hash_SHA1-1.14 {SHA1} \
-constraints SHA1 \
-setup {set data [binary decode hex f78f92141bcd170ae89b4fba15a1d59f3fd84d223c9251bdacbbae61d05ed115a06a7ce117b7beead24421ded9c32592bd57edeae39c39fa1fe8946a84d0cf1f7beead1713e2e0959897347f67c80b0400c209815d6b10a683836fd5562a56cab1a28e81b6576654631cf16566b86e3b33a108b05307c00aff14a768ed7350606a0f85e6a91d396f5b5cbe577f9b38807c7d523d6d792f6ebc24a4ecf2b3a427cdbbfb]} \
-body {tls::digest -digest SHA1 -data $data} \
-match exact -result cb0082c8f197d260991ba6a460e76e202bad27b3
|
>
>
>
|
84
85
86
87
88
89
90
91
92
93
|
tcltest::test Hash_SHA1-1.14 {SHA1} \
-constraints SHA1 \
-setup {set data [binary decode hex f78f92141bcd170ae89b4fba15a1d59f3fd84d223c9251bdacbbae61d05ed115a06a7ce117b7beead24421ded9c32592bd57edeae39c39fa1fe8946a84d0cf1f7beead1713e2e0959897347f67c80b0400c209815d6b10a683836fd5562a56cab1a28e81b6576654631cf16566b86e3b33a108b05307c00aff14a768ed7350606a0f85e6a91d396f5b5cbe577f9b38807c7d523d6d792f6ebc24a4ecf2b3a427cdbbfb]} \
-body {tls::digest -digest SHA1 -data $data} \
-match exact -result cb0082c8f197d260991ba6a460e76e202bad27b3
# Cleanup
::tcltest::cleanupTests
return
|