Artifact [9fc3e3754f]

Artifact 9fc3e3754f2fdabb46d3014edd6a57d3927225234863db74208bf0c6e0b17fc6:


# Auto generated from "SHA3-224.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 SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]
catch {tls::provider legacy}

tcltest::test Hash_SHA3-224-1.1 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7

tcltest::test Hash_SHA3-224-1.2 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data [binary decode hex [string repeat a3 200]]} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 9376816aba503f72f96ce7eb65ac095deee3be4bf9bbc2a1cb7e11e0

tcltest::test Hash_SHA3-224-1.3 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data "abc"} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result e642824c3f8cf24ad09234ee7d3c766fc9a3a5168d0c94ad73b46fdf

tcltest::test Hash_SHA3-224-1.4 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 8a24108b154ada21c9fd5574494479ba5c7e7ab76ef264ead0fcce33

tcltest::test Hash_SHA3-224-1.5 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 543e6868e1666c1a643630df77367ae5a62a85070a51c14cbf665cbc

tcltest::test Hash_SHA3-224-1.6 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data [string repeat "a" 1000000]} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result d69335b93325192e516a912e6d19a15cb51c6ed5c15243e7a7fd653c

tcltest::test Hash_SHA3-224-1.7 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data [string repeat "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmno" 16777216]} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result c6d66e77ae289566afb2ce39277752d6da2a3c46010f1e0a0970ff60

# Cleanup
::tcltest::cleanupTests
return