File tests/test_vectors/Hash/MD4.test from the latest check-in

# 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