@@ -1,48 +1,51 @@
 # Auto generated from "SHA3-224.txt"
 package require tls
 package require tcltest
 
-tcltest::testConstraint SHA3-224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]
+tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]
 
 tcltest::test Hash_SHA3-224-1.1 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data ""} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7
 
 tcltest::test Hash_SHA3-224-1.2 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data [binary decode hex [string repeat a3 200]]} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result 9376816aba503f72f96ce7eb65ac095deee3be4bf9bbc2a1cb7e11e0
 
 tcltest::test Hash_SHA3-224-1.3 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data "abc"} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result e642824c3f8cf24ad09234ee7d3c766fc9a3a5168d0c94ad73b46fdf
 
 tcltest::test Hash_SHA3-224-1.4 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data "abcdbcdecdefdefgefghfghighijhijkijkljklmklmnlmnomnopnopq"} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result 8a24108b154ada21c9fd5574494479ba5c7e7ab76ef264ead0fcce33
 
 tcltest::test Hash_SHA3-224-1.5 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmnoijklmnopjklmnopqklmnopqrlmnopqrsmnopqrstnopqrstu"} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result 543e6868e1666c1a643630df77367ae5a62a85070a51c14cbf665cbc
 
 tcltest::test Hash_SHA3-224-1.6 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data [string repeat "a" 1000000]} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result d69335b93325192e516a912e6d19a15cb51c6ed5c15243e7a7fd653c
 
 tcltest::test Hash_SHA3-224-1.7 {SHA3-224} \
-	-constraints SHA3-224 \
+	-constraints SHA3_224 \
 	-setup {set data [string repeat "abcdefghbcdefghicdefghijdefghijkefghijklfghijklmghijklmnhijklmno" 16777216]} \
 	-body {tls::digest -digest SHA3-224 -data $data} \
 	-match exact -result c6d66e77ae289566afb2ce39277752d6da2a3c46010f1e0a0970ff60
 
+# Cleanup
+::tcltest::cleanupTests
+return