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