Artifact [085626bf56]

Artifact 085626bf5601b5f39bfebfa1b5ca8a878f7ae4c8b4a34724161c53e63e58c9da:


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

tcltest::test Hash_WHIRLPOOL-1.1 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data ""} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 19fa61d75522a4669b44e39c1d2e1726c530232130d407f89afee0964997f7a73e83be698b288febcf88e3e03c4f0757ea8964e59b63d93708b138cc42a66eb3

tcltest::test Hash_WHIRLPOOL-1.2 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "a"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 8aca2602792aec6f11a67206531fb7d7f0dff59413145e6973c45001d0087b42d11bc645413aeff63a42391a39145a591a92200d560195e53b478584fdae231a

tcltest::test Hash_WHIRLPOOL-1.3 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "abc"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 4e2448a4c6f486bb16b6562c73b4020bf3043e3a731bce721ae1b303d97e6d4c7181eebdb6c57e277d0e34957114cbd6c797fc9d95d8b582d225292076d4eef5

tcltest::test Hash_WHIRLPOOL-1.4 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "message digest"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 378c84a4126e2dc6e56dcc7458377aac838d00032230f53ce1f5700c0ffb4d3b8421557659ef55c106b4b52ac5a4aaa692ed920052838f3362e86dbd37a8903e

tcltest::test Hash_WHIRLPOOL-1.5 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "abcdefghijklmnopqrstuvwxyz"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result f1d754662636ffe92c82ebb9212a484a8d38631ead4238f5442ee13b8054e41b08bf2a9251c30b6a0b8aae86177ab4a6f68f673e7207865d5d9819a3dba4eb3b

tcltest::test Hash_WHIRLPOOL-1.6 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result dc37e008cf9ee69bf11f00ed9aba26901dd7c28cdec066cc6af42e40f82f3a1e08eba26629129d8fb7cb57211b9281a65517cc879d7b962142c65f5a7af01467

tcltest::test Hash_WHIRLPOOL-1.7 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "12345678901234567890123456789012345678901234567890123456789012345678901234567890"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 466ef18babb0154d25b9d38a6414f5c08784372bccb204d6549c4afadb6014294d5bd8df2a6c44e538cd047b2681a51a2c60481e88c5a20b2c2a80cf3a9a083b

tcltest::test Hash_WHIRLPOOL-1.8 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "abcdbcdecdefdefgefghfghighijhijk"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 2a987ea40f917061f5d6f0a0e4644f488a7a5a52deee656207c562f988e95c6916bdc8031bc5be1b7b947639fe050b56939baaa0adff9ae6745b7b181c3be3fd

tcltest::test Hash_WHIRLPOOL-1.9 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data [string repeat "aaaaaaaaaa" 100000]} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 0c99005beb57eff50a7cf005560ddf5d29057fd86b20bfd62deca0f1ccea4af51fc15490eddc47af32bb2b66c34ff9ad8c6008ad677f77126953b226e4ed8b01

tcltest::test Hash_WHIRLPOOL-1.10 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data "The quick brown fox jumps over the lazy dog"} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result b97de512e91e3828b40d2b0fdce9ceb3c4a71f9bea8d88e75c4fa854df36725fd2b52eb6544edcacd6f8beddfea403cb55ae31f03ad62a5ef54e42ee82c3fb35

# Cleanup
::tcltest::cleanupTests
return