774
775
776
777
778
779
780
|
tcltest::test Hash_SHA384-2.129 {SHA384ShortMsg} \
-constraints SHA384 \
-setup {set data [binary decode hex 3bf52cc5ee86b9a0190f390a5c0366a560b557000dbe5115fd9ee11630a62769011575f15881198f227876e8fe685a6939bc8b89fd48a34ec5e71e131462b2886794dffa68ccc6d564733e67ffef25e627c6f4b5460796e3bce67bf58ca6e8e555bc916a8531697ac948b90dc8616f25101db90b50c3d3dbc9e21e42ff387187]} \
-body {tls::digest -digest SHA384 -data $data} \
-match exact -result 12b6cb35eda92ee37356ddee77781a17b3d90e563824a984faffc6fdd1693bd7626039635563cfc3b9a2b00f9c65eefd
|
>
>
>
|
774
775
776
777
778
779
780
781
782
783
|
tcltest::test Hash_SHA384-2.129 {SHA384ShortMsg} \
-constraints SHA384 \
-setup {set data [binary decode hex 3bf52cc5ee86b9a0190f390a5c0366a560b557000dbe5115fd9ee11630a62769011575f15881198f227876e8fe685a6939bc8b89fd48a34ec5e71e131462b2886794dffa68ccc6d564733e67ffef25e627c6f4b5460796e3bce67bf58ca6e8e555bc916a8531697ac948b90dc8616f25101db90b50c3d3dbc9e21e42ff387187]} \
-body {tls::digest -digest SHA384 -data $data} \
-match exact -result 12b6cb35eda92ee37356ddee77781a17b3d90e563824a984faffc6fdd1693bd7626039635563cfc3b9a2b00f9c65eefd
# Cleanup
::tcltest::cleanupTests
return
|