# Auto generated from "MD4.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 MD4 [expr {[lsearch -nocase [tls::digests] MD4] > -1}]
catch {tls::provider legacy}
tcltest::test Hash_MD4-1.1 {MD4} \
-constraints MD4 \
-setup {set data ""} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result 31d6cfe0d16ae931b73c59d7e0c089c0
tcltest::test Hash_MD4-1.2 {MD4} \
-constraints MD4 \
-setup {set data "a"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result bde52cb31de33e46245e05fbdbd6fb24
tcltest::test Hash_MD4-1.3 {MD4} \
-constraints MD4 \
-setup {set data "abc"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result a448017aaf21d8525fc10ae87aa6729d
tcltest::test Hash_MD4-1.4 {MD4} \
-constraints MD4 \
-setup {set data "message digest"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result d9130a8164549fe818874806e1c7014b
tcltest::test Hash_MD4-1.5 {MD4} \
-constraints MD4 \
-setup {set data "abcdefghijklmnopqrstuvwxyz"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result d79e1c308aa5bbcdeea8ed63df412da9
tcltest::test Hash_MD4-1.6 {MD4} \
-constraints MD4 \
-setup {set data "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result 043f8582f241db351ce627e153e7f0e4
tcltest::test Hash_MD4-1.7 {MD4} \
-constraints MD4 \
-setup {set data "12345678901234567890123456789012345678901234567890123456789012345678901234567890"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result e33b4ddc9c38f2199c3e7b164fcc0536
tcltest::test Hash_MD4-1.8 {MD4} \
-constraints MD4 \
-setup {set data "The quick brown fox jumps over the lazy dog"} \
-body {tls::digest -digest MD4 -data $data} \
-match exact -result 1bee69a46ba811185c194762abaeae90
# Cleanup
::tcltest::cleanupTests
return