1638
1639
1640
1641
1642
1643
1644
|
1638
1639
1640
1641
1642
1643
1644
1645
1646
1647
|
+
+
+
|
tcltest::test Hash_SHAKE256-2.273 {SHAKE256ShortMsg} \
-constraints SHAKE256 \
-setup {set data [binary decode hex 104fefe89f08d15d36a2233f42a7defa917c5ad2642e06cac56d5cc51ad914ecfb7d984f4199b9cf5fa5a03bf69207b9a353a9681c9cf6437bea0c49d9c3e3db1f3fc76519c70c40cc1dfdd70a9c150943c272cf9eeb861f485f10100c8f4a3e259c6470501932782512225ba64d70b219cf9d5013a21d25d6d65062dcc6b3deb49d58b90d18933f118df70ff42c807ccc851233a34a221eca56b38971ef858475488988794a975d3894633a19c1ae2f05e9b9c0756affd3cfe823ccf29228f60fa7e025bc39a79943325126409460926b057a3fb28a1b098b938872883804fd2bc245d7fd6d29bcda6ca6198f2eff6ea7e03ef78133de8ba65fc8c45a688160719fa1e7646d878ea44c4b5c2e16f48b]} \
-body {tls::digest -digest SHAKE256 -data $data} \
-match exact -result 46293a63c235750d58a24edca5ba637b96cae74325c6c8122c4155c0d15805e6
# Cleanup
::tcltest::cleanupTests
return
|