@@ -1,10 +1,12 @@ # Auto generated from "SHA224.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 SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA224-1.1 {SHA224} \ -constraints SHA224 \ -setup {set data ""} \ -body {tls::digest -digest SHA224 -data $data} \