Artifact [7e03aeea77]
EuroTcl/OpenACS 11 - 12 JULY 2024, VIENNA

Artifact 7e03aeea77d8927e54cb852d8287b709774fad52922f188419923c47dca2d023:


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

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

tcltest::test Hash_MD5-1.1 {MD5} \
	-constraints MD5 \
	-setup {set data ""} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result d41d8cd98f00b204e9800998ecf8427e

tcltest::test Hash_MD5-1.2 {MD5} \
	-constraints MD5 \
	-setup {set data "a"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result 0cc175b9c0f1b6a831c399e269772661

tcltest::test Hash_MD5-1.3 {MD5} \
	-constraints MD5 \
	-setup {set data "abc"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result 900150983cd24fb0d6963f7d28e17f72

tcltest::test Hash_MD5-1.4 {MD5} \
	-constraints MD5 \
	-setup {set data "message digest"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result f96b697d7cb7938d525a2f31aaf161d0

tcltest::test Hash_MD5-1.5 {MD5} \
	-constraints MD5 \
	-setup {set data "abcdefghijklmnopqrstuvwxyz"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result c3fcd3d76192e4007dfb496cca67e13b

tcltest::test Hash_MD5-1.6 {MD5} \
	-constraints MD5 \
	-setup {set data "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result d174ab98d277d9f5a5611c2c9f419d9f

tcltest::test Hash_MD5-1.7 {MD5} \
	-constraints MD5 \
	-setup {set data "12345678901234567890123456789012345678901234567890123456789012345678901234567890"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result 57edf4a22be3c955ac49da2e2107b67a

tcltest::test Hash_MD5-1.8 {MD5} \
	-constraints MD5 \
	-setup {set data "The quick brown fox jumps over the lazy dog"} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result 9e107d9d372bb6826bd81d3542a419d6