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