Artifact [69a254de42]
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

Artifact 69a254de427d10365439a25a15dba225762a9e802f688a20f23e58417058d4a3:


# Auto generated from "MD2.txt"
package require tls
package require tcltest

tcltest::testConstraint MD2 [expr {[lsearch -nocase [tls::digests] MD2] > -1}]

tcltest::test Hash_MD2-1.1 {MD2} \
	-constraints MD2 \
	-setup {set data ""} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result 8350e5a3e24c153df2275c9f80692773

tcltest::test Hash_MD2-1.2 {MD2} \
	-constraints MD2 \
	-setup {set data "a"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result 32ec01ec4a6dac72c0ab96fb34c0b5d1

tcltest::test Hash_MD2-1.3 {MD2} \
	-constraints MD2 \
	-setup {set data "abc"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result da853b0d3f88d99b30283a69e6ded6bb

tcltest::test Hash_MD2-1.4 {MD2} \
	-constraints MD2 \
	-setup {set data "message digest"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result ab4f496bfb2a530b219ff33031fe06b0

tcltest::test Hash_MD2-1.5 {MD2} \
	-constraints MD2 \
	-setup {set data "abcdefghijklmnopqrstuvwxyz"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result 4e8ddff3650292ab5a4108c3aa47940b

tcltest::test Hash_MD2-1.6 {MD2} \
	-constraints MD2 \
	-setup {set data "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result da33def2a42df13975352846c30338cd

tcltest::test Hash_MD2-1.7 {MD2} \
	-constraints MD2 \
	-setup {set data "12345678901234567890123456789012345678901234567890123456789012345678901234567890"} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result d5976f79d83d3a0dc9806c3c66f3efd8