Artifact [fe91ce1b6d]

Artifact fe91ce1b6dc6f0fac47bc9d3ee6f4e931128425c22ddb34ee8fbfec1e7db5654:


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

tcltest::test Hash_SHA224-1.2 {SHA224} \
	-constraints SHA224 \
	-setup {set data "abc"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7

tcltest::test Hash_SHA224-1.3 {SHA224} \
	-constraints SHA224 \
	-setup {set data "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525

tcltest::test Hash_SHA224-1.4 {SHA224} \
	-constraints SHA224 \
	-setup {set data "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result c97ca9a559850ce97a04a96def6d99a9e0e0e2ab14e6b8df265fc0b3

tcltest::test Hash_SHA224-1.5 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "a" 1000000]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67

tcltest::test Hash_SHA224-1.6 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmno" 16777216]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result b5989713ca4fe47a009f8621980b34e6d63ed3063b2a0a2c867d8a85

tcltest::test Hash_SHA224-1.7 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex ff]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result e33f9d75e6ae1369dbabf81b96b4591ae46bba30b591a6b6c62542b5

tcltest::test Hash_SHA224-1.8 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex e5e09924]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result fd19e74690d291467ce59f077df311638f1c3a46e510d0e49a67062d

tcltest::test Hash_SHA224-1.9 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex [string repeat 00 56]]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 5c3e25b69d0ea26f260cfae87e23759e1eca9d1ecc9fbf3c62266804

tcltest::test Hash_SHA224-1.10 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "Q" 1000]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3706197f66890a41779dc8791670522e136fafa24874685715bd0a8a

tcltest::test Hash_SHA224-1.11 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "A" 1000]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result a8d0c66b5c6fdfd836eb3c6d04d32dfe66c3b1f168b488bf4c9c66ce

tcltest::test Hash_SHA224-1.12 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex [string repeat 99 1005]]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result cb00ecd03788bf6c0908401e0eb053ac61f35e7e20a2cfd7bd96d640

tcltest::test Hash_SHA224-1.13 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex [string repeat 00 1000000]]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 3a5d74b68f14f3a4b2be9289b8d370672d0b3d2f53bc303c59032df3

tcltest::test Hash_SHA224-1.14 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "A" 536870912]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result c4250083cf8230bf21065b3014baaaf9f76fecefc21f91cf237dedc9

tcltest::test Hash_SHA224-1.15 {SHA224} \
	-constraints SHA224 \
	-setup {set data "The quick brown fox jumps over the lazy dog"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 730e109bd7a8a32b1cb9d9a09aa2325d2430587ddbc0c38bad911525

tcltest::test Hash_SHA224-1.16 {SHA224} \
	-constraints SHA224 \
	-setup {set data "abc"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7

tcltest::test Hash_SHA224-1.17 {SHA224} \
	-constraints SHA224 \
	-setup {set data "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525

tcltest::test Hash_SHA224-1.18 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "a" 1000000]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 20794655980c91d8bbb4c1ea97618a4bf03f42581948b2ee4ee7ad67

tcltest::test Hash_SHA224-1.19 {SHA224} \
	-constraints SHA224 \
	-setup {set data [string repeat "0123456701234567012345670123456701234567012345670123456701234567" 10]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 567f69f168cd7844e65259ce658fe7aadfa25216e68eca0eb7ab8262

tcltest::test Hash_SHA224-1.20 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 07]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 00ecd5f138422b8ad74c9799fd826c531bad2fcabc7450bee2aa8c2a

tcltest::test Hash_SHA224-1.21 {SHA224} \
	-constraints SHA224 \
	-setup {set data [binary decode hex 18804005dd4fbd1556299d6f9d93df62]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result df90d78aa78821c99b40ba4c966921accd8ffb1e98ac388e56191db1

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