SHA224ShortMsg.test at tip

File tests/test_vectors/Hash/SHA224ShortMsg.test from the latest check-in


# Auto generated from "SHA224ShortMsg.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-2.1 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f

tcltest::test Hash_SHA224-2.2 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 84]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3cd36921df5d6963e73739cf4d20211e2d8877c19cff087ade9d0e3a

tcltest::test Hash_SHA224-2.3 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 5c7b]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result daff9bce685eb831f97fc1225b03c275a6c112e2d6e76f5faf7a36e6

tcltest::test Hash_SHA224-2.4 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 51ca3d]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 2c8959023515476e38388abb43599a29876b4b33d56adc06032de3a2

tcltest::test Hash_SHA224-2.5 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 6084347e]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result ae57c0a6d49739ba338adfa53bdae063e5c09122b77604780a8eeaa3

tcltest::test Hash_SHA224-2.6 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 493e14623c]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 7f631f295e024e74552083245ca8f988a3fb65680ae97c3040d2e65c

tcltest::test Hash_SHA224-2.7 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex d729d8cd1631]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 342e8e6b23c1c6a54910631f098e08e836259c57e49c1b1d023d166d

tcltest::test Hash_SHA224-2.8 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex cbf2061e10faa5]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3aa702b1b66dc57d7aec3ccdbdfbd88592d7520f843ba5d0fa481168

tcltest::test Hash_SHA224-2.9 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 5f77b3664823c33e]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result bdf21ff325f754157ccf417f4855360a72e8fd117d28c8fe7da3ea38

tcltest::test Hash_SHA224-2.10 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 10713b894de4a734c0]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 03842600c86f5cd60c3a2147a067cb962a05303c3488b05cb45327bd

tcltest::test Hash_SHA224-2.11 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 006470d57dad9893dc03]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result c90026cda5ad24115059c62ae9add57793ade445d4742273288bbce7

tcltest::test Hash_SHA224-2.12 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 6f29ca274190400720bba2]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result ac53157947aa4b2a19089182382a4363d182dd8e4ca79cd8571390be

tcltest::test Hash_SHA224-2.13 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 17e8556176fcca2addbdde29]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result cc6ad0488db0222066f740557b5758a19b30372b302332295d8c3aff

tcltest::test Hash_SHA224-2.14 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex dbf163601db9a122a4026824de]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 9849845f4e47e1ece9a1c1e01a0d896ffea61c6c8894a75a11ce5f49

tcltest::test Hash_SHA224-2.15 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 5e1ef2ad86ceaf5439fe87d2ec9b]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 223c5d5d4a0116b32cea044f9af0fe44babea1c5ab201502591bcd5f

tcltest::test Hash_SHA224-2.16 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 65f3b9866fb8002b53cfaf806f702f]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result b1e0806a218d593821fde8e9eacc44ab5287c32209a94f011ab66b75

tcltest::test Hash_SHA224-2.17 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex b776708ffb91b3515ac46598ab9fa796]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 427311b1d7ab2488791c4deeb4251d783fe5f9806bfdfb5188c5443d

tcltest::test Hash_SHA224-2.18 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex a4bc10b1a62c96d459fbaf3a5aa3face73]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result d7e6634723ac25cb1879bdb1508da05313530419013fe255967a39e1

tcltest::test Hash_SHA224-2.19 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 9e8f3c6645c1749b55c50d2018ce40dc2427]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 2f5a583bf588c8988a572d128a95bea5ef1b66780a7d4be9c29efc31

tcltest::test Hash_SHA224-2.20 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 2db6d207c0b7d9117f24d78ee59abf2f316978]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 35681fce28307cae19522c23cbd4a77969347f7d8ee4a3088ba90ada

tcltest::test Hash_SHA224-2.21 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 3df5e7f399f6dd61a12a9d4e9464fc4997c1f37b]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result a3e68076e30751085a843a6cbfbf0f3dee63d9c4219c914372e50b28

tcltest::test Hash_SHA224-2.22 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 65781d018f27ca0c72a9fa9ab4648ed369646dd3ce]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result d15ef0d872d02da6427b8d0349dea2f204e67133b7365b4b150efc3c

tcltest::test Hash_SHA224-2.23 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex af48eeddd93fee69d1bd7de428a63986011d10945eaf]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result b89d428ee42e397cf11029ecbb27baddd036c8938f51c8ab56b875ac

tcltest::test Hash_SHA224-2.24 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex df2bf0d5f9c994ac69d78baa0d512eceb74d8a047531c1]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result db8e1ce68c8c6b84d6db755c2b8bf54f3c4b081a881efcddaf303294

tcltest::test Hash_SHA224-2.25 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 48d2f20955ea2d13433c20bc0404eb2e6ad79ed28f7cb4c0]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3617cc3179f8b59adce181eebeed5e2763f62650949224a67e53694b

tcltest::test Hash_SHA224-2.26 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 218f74a42d3a47ef3b806601fba024b078cbff4e4b85772e0e]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result b5f40b95dcc363b97e9d00b67c5d7c37f17ab563297d2d67a4df20c9

tcltest::test Hash_SHA224-2.27 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex ef55b1e797000b04fcdb9b3021b09327e3b4e269d20cabdf418f]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 827b223d51240c2e3271c534c19c5637b6fe10083e85bcf06761ef21

tcltest::test Hash_SHA224-2.28 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 96df4387dc2c40297043bea36483f65e4eb1e07e93359cb7e68610]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 98e430a63fcdedafc9419010f7f59a4d816a45b4f973beb62530ff8c

tcltest::test Hash_SHA224-2.29 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 3ec0aa8d30d5ed825b77dc7095f421b1e608158797a377ff8bed641b]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3108321eb7ff857f6aae69101b937f32a51ea279a6c14ba5232ac8c1

tcltest::test Hash_SHA224-2.30 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 8b0239712039f077ce323b35f4e306787b9b35270096e57735cff45d84]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result a5c740d3ce46bb2e0a048488f2b0605c6d0ca0ea2f382d043d13db97

tcltest::test Hash_SHA224-2.31 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 044be30167a9758c46c727921dc4eb4e0dcb965623423e6fdd44e7a4ea52]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 6eb78313c743ea8769d8340f284dda6ded64a1db64392f21abb82c5c

tcltest::test Hash_SHA224-2.32 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 57f6118bacce47ecc31ce8b0c083d3c9219e0dbe9e4fbea154537c41231acc]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 0dbb53c866d63af44c222c76c825df0e379dcedfb958db03b6fd29a5

tcltest::test Hash_SHA224-2.33 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex fe1f0fb02c9011f4c8c5905934ed15136771737ce31c5859e67f235fe594f5f6]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result bbeaacc632c2a3db2a9b47f157ab54aa27776c6e74cf0bcaa91b06d5

tcltest::test Hash_SHA224-2.34 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 14fb01ae9d6015ecb3e56d6ecdfa4bc0533186adf8457f5e4a5c57c687895f3db3]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 178272c7d7cc71b15074c27e3b7997d4a3ba99626986a1a16cf30030

tcltest::test Hash_SHA224-2.35 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex ff6c49712f044f4063c14125c0cdfba18ed8b7138453768a45dfa2d82a05f1e84227]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 403284c888a7280bc8bfc25f0c34182cd378306a21a1404d4e1c40cf

tcltest::test Hash_SHA224-2.36 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex f900bd7e0117247f97c8fc7a665c76a35f571c3366571d6c4a3ee5d7fb93f1d1f726e2]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 48235b9820d66d8885faabf6a9ede63ba2a21b6177e987a33242373e

tcltest::test Hash_SHA224-2.37 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 42d38188ac49440cfefb77db975e083e6b22348c4c67f0f8692e88ad140d861dc828d595]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 615344f890e5bcf71b5efe39de1fc942ba1fe30dd9e9146adb6a41bf

tcltest::test Hash_SHA224-2.38 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 74fdd7d958b8ae7c2c3c5cff4266dfb2b3b842c9f59ecbbcaff575edcbcda08ccd6e08b764]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 66d7d6c54fc7775a0ba845ba3e11719fa535b9289f20b098c5f7a342

tcltest::test Hash_SHA224-2.39 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 934416dd0581e22f2bfbece7bb64afe820451fa21342df7e6f9fb37c4103381a1f7cd379bcc4]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result fae8f1aa22def4dbaa814c5b0babdec43394951792c937050d2963a6

tcltest::test Hash_SHA224-2.40 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 102401c84a716ae72579c6ae79c359ea309ffd95abffae4c61884c03c9e99df77b6c92e492cacb]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 8f34812d57a16ef8a51ad987660c5f8623e0fa9d89846e28d46d14d9

tcltest::test Hash_SHA224-2.41 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 79bc8fb60f85d15a2386566e3e7314df284533085add1c7bb6ead3ff760c86d5633a66404761b544]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 65c54014cfa30f0bc27d1c6efa96ae8481f4c2505bff272956eab0df

tcltest::test Hash_SHA224-2.42 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex db3121ea71294983b185207a9d8de3e484a66c0431bf07c962eb82977c4f834b7c3f1e7931a4a7f7a9]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 9316d2f021c2913d63a7e66924c87c161c3cfde0ea7ba07f54772862

tcltest::test Hash_SHA224-2.43 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 0dd51aa660c5cb4b7f78c46852c1db8707ab451c1367b6187388c8bb3873a1aa4210d0414cc6792a29a7]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 31989e7a62a5132a5070d77250d8904bb82d457dc63469d06b50185e

tcltest::test Hash_SHA224-2.44 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 487fd2e5b694b7071d3789a258a51e8604dc0d3e8f5d62f39131968e602abe1ddf6b0278962a512408b553]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result e798683438284626d710877d9eea3a0e02f349fc43acb7f9f8f9e81c

tcltest::test Hash_SHA224-2.45 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 11183bdebfef58e4da5b1cb73be0d30b20da304d8659d921da2e270fd14626799537e4d12119e809ee97004a]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 96870657d6cb668be3995aa8bd31df77840d1d1915d72482e83b6b2c

tcltest::test Hash_SHA224-2.46 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex a239de5c8e2644e8f030d94d98f1a30664e6fd961dc2977a9c08be5c31d8de89450945a53d79299ea2a1edde7f]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result e99743d4fd26c8800c36a67b6762247c29da6b62794123c59de06dc0

tcltest::test Hash_SHA224-2.47 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 917c4577aa6b0f9df49999fc1c958cb09b7fd5fc80be949670f03545eb27dcaed052076b24f96f5e0f2e2f4527c0]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 7ecd693d4d9cf43929464698efa0bac33c2e1424f816edc769260978

tcltest::test Hash_SHA224-2.48 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex c3f1e735a6741aa481ad577a98dbac1f03cc80ea0dae1b94db2369ed4e93facd29c64e4e77b25038279120bdfa3715]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 86f0d89d8e14fd8b6606412d71a7a54a347b304ea5d49c208f2266ab

tcltest::test Hash_SHA224-2.49 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex de4fbfd553cdf37019f25afa82dc6b9970f4bb1ebbc37f80d3084c88a70722cdc523a9e3c2afbad0dc0221bfdec9a2f9]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 4c5262acb4a2a44eaa9bc6757024fb202ef4d5a7a16fa37252a422b5

tcltest::test Hash_SHA224-2.50 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex db2e2eb636610cf42e9b33433acce1b3b925949f297dd83199f45d2861d64cd910c2db74a60b2089045e22cba0a536137d]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 16bf4e45bcdc60447c68dcb30e6b08f55ce9f4124a29cf1f9a9d065d

tcltest::test Hash_SHA224-2.51 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex a8e729d336d5d6ac50e1e22f0b193b66e26042fc6459214129875e740ab2b142918c138aaf941863ad3b7e6065450613b273]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 452bf2e5ebfc4e451cc434bc09e2a10032eed0b7627cf55e7e5ed0e2

tcltest::test Hash_SHA224-2.52 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex d05317d4b535f9d10f739d0c2dedf3ffb090c1ad9d205089b1346693f58273c4925c0face57ba45ad6fc687c66a88fc78878be]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 4f03c439e097b51b00e314f675937c4d911505859fb7ab16adc65e44

tcltest::test Hash_SHA224-2.53 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 26bb4ed4f0424c60fe4212ff8c955e89e2f553a7d7701be59416d2089af59fa1074724e214e919b1e30f33fb78374b4b055bbc9b]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result e7c899e27009d4dc77c2d300f191b757e52c9e7eac4b023bfab2b52a

tcltest::test Hash_SHA224-2.54 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex f015ec83944f03292463c4345fdb1c26d1ea07645facbc9520ae244b6eb191e53dabadb4ac0fb15cda4ed77dfb9e1193abfafb1b81]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 459e40b3fbd612912f0217c60099379ce077cd02505871b0c9c14e7a

tcltest::test Hash_SHA224-2.55 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 0786706f680c27b792d054faa63f499a8e6b5ddb90502946235bf74c022d772c809cb4171bfa4791539aca1abd91900e53ba93ca0efd]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result fadebab7c3d0fb8e97e429b79083087735e4ab385a789521260ef3ad

tcltest::test Hash_SHA224-2.56 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 445e8698eeb8accbaac4ffa7d934fffd16014a430ef70f3a9174c6cfe96d1e3f6ab1377f4a7212dbb30146dd17d9f470c4dffc45b8e871]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 4c7ae028c0fe61f2a9cada61fae30685b77f04c6442576e912af9fa6

tcltest::test Hash_SHA224-2.57 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 52839f2f0853a30df14ec897a1914c685c1ac21470d00654c8c37663bfb65fa732dbb694d9dd09ced723b48d8f545846ba168988b61cc724]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 2f755a57674b49d5c25cb37348f35b6fd2de2552c749f2645ba63d20

tcltest::test Hash_SHA224-2.58 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 5fe8c2072d8900287ccaf07f3f66b0c22acd3e0bb91d9573754e19e373ac35271d8b43443436ac0c162850ef3d7f281409ad29a9bf716c77d1]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 42909757f6e229f69f04cc7a863c4e70e48c7c3575057b455c959775

tcltest::test Hash_SHA224-2.59 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex e8064d83f3d643af8718c87e3ccd6a9733685eac61d572a22ab943f232fcb04f70858e8984449db14a76bb7eaf2458efc3ed2a32100622c52b7f]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 1a1d8ed54cb45c97bc970754b43eb93d9eabde4c7b07f76ad82d8ede

tcltest::test Hash_SHA224-2.60 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 87c9a517e28d1bb54ad20fca76460efd894d7786e68ee8d746b2f68208682157c8ad06cc324ad7a3189e09c6c39d4c768719c0a49a41669f2767d5]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 605977cf87b9b309bbddaaa64e528ace66b04df9f72c0e7ec88be1da

tcltest::test Hash_SHA224-2.61 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 59fdac3b6b32039291801c7d6f46ede8d26dc5b7a192e007116739b617569f2523680b3c0b6631af453e55805aa760c6970833ac06963bbc9dbd455e]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result e9f0cb1dc8337e906385892f2348a8ba4412318ecad9b96e3711531f

tcltest::test Hash_SHA224-2.62 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 30350a4df0b58ff49c0fa09e426fcd7007b290c760c825c1855d9b0023b82caa51e3cab4c60cfa61492be50568e5ac0f6db0fd468e39e4536403e3809f]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 776cc6636c02408fbf65ace73ae80017108b917c16c5a912fd860241

tcltest::test Hash_SHA224-2.63 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex ef797a0d43c30b4fe1014bdb9420879c2ff845d27e73d55a7df22930c8ece73253d8bb265b4ef2ff9c69455cc56ff25229b4126bb7bb26ee2c9ff36187b1]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result f5b9ffb102affac352a4a535a00f89b06c268cf4881d712668906025

tcltest::test Hash_SHA224-2.64 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 716944de41710c29b659be10480bb25a351a39e577ee30e8f422d57cf62ad95bda39b6e70c61426e33fd84aca84cc7912d5eee45dc34076a5d2323a15c7964]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 61645ac748db567ac862796b8d06a47afebfa2e1783d5c5f3bcd81e2

tcltest::test Hash_SHA224-2.65 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex a3310ba064be2e14ad32276e18cd0310c933a6e650c3c754d0243c6c61207865b4b65248f66a08edf6e0832689a9dc3a2e5d2095eeea50bd862bac88c8bd318d]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result b2a5586d9cbf0baa999157b4af06d88ae08d7c9faab4bc1a96829d65

# Cleanup
::tcltest::cleanupTests
return