Index: tests/test_vectors/Hash/BLAKE2b512.test ================================================================== --- tests/test_vectors/Hash/BLAKE2b512.test +++ tests/test_vectors/Hash/BLAKE2b512.test @@ -1,10 +1,12 @@ # Auto generated from "BLAKE2b512.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 BLAKE2b512 [expr {[lsearch -nocase [tls::digests] BLAKE2b512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_BLAKE2b512-1.1 {BLAKE2b512} \ -constraints BLAKE2b512 \ -setup {set data ""} \ -body {tls::digest -digest BLAKE2b512 -data $data} \ Index: tests/test_vectors/Hash/BLAKE2s256.test ================================================================== --- tests/test_vectors/Hash/BLAKE2s256.test +++ tests/test_vectors/Hash/BLAKE2s256.test @@ -1,10 +1,12 @@ # Auto generated from "BLAKE2s256.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 BLAKE2s256 [expr {[lsearch -nocase [tls::digests] BLAKE2s256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_BLAKE2s256-1.1 {BLAKE2s256} \ -constraints BLAKE2s256 \ -setup {set data ""} \ -body {tls::digest -digest BLAKE2s256 -data $data} \ Index: tests/test_vectors/Hash/MD2.test ================================================================== --- tests/test_vectors/Hash/MD2.test +++ tests/test_vectors/Hash/MD2.test @@ -1,10 +1,12 @@ # 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} \ Index: tests/test_vectors/Hash/MD4.test ================================================================== --- tests/test_vectors/Hash/MD4.test +++ tests/test_vectors/Hash/MD4.test @@ -1,10 +1,12 @@ # 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} \ Index: tests/test_vectors/Hash/MD5.test ================================================================== --- tests/test_vectors/Hash/MD5.test +++ tests/test_vectors/Hash/MD5.test @@ -1,10 +1,12 @@ # Auto generated from "MD5.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 MD5 [expr {[lsearch -nocase [tls::digests] MD5] > -1}] +catch {tls::provider legacy} tcltest::test Hash_MD5-1.1 {MD5} \ -constraints MD5 \ -setup {set data ""} \ -body {tls::digest -digest MD5 -data $data} \ Index: tests/test_vectors/Hash/MDC2.test ================================================================== --- tests/test_vectors/Hash/MDC2.test +++ tests/test_vectors/Hash/MDC2.test @@ -1,10 +1,12 @@ # Auto generated from "MDC2.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 MDC2 [expr {[lsearch -nocase [tls::digests] MDC2] > -1}] +catch {tls::provider legacy} tcltest::test Hash_MDC2-1.1 {MDC2} \ -constraints MDC2 \ -setup {set data ""} \ -body {tls::digest -digest MDC2 -data $data} \ Index: tests/test_vectors/Hash/RIPEMD128.test ================================================================== --- tests/test_vectors/Hash/RIPEMD128.test +++ tests/test_vectors/Hash/RIPEMD128.test @@ -1,10 +1,12 @@ # Auto generated from "RIPEMD128.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 RIPEMD128 [expr {[lsearch -nocase [tls::digests] RIPEMD128] > -1}] +catch {tls::provider legacy} tcltest::test Hash_RIPEMD128-1.1 {RIPEMD128} \ -constraints RIPEMD128 \ -setup {set data ""} \ -body {tls::digest -digest RIPEMD128 -data $data} \ Index: tests/test_vectors/Hash/RIPEMD160.test ================================================================== --- tests/test_vectors/Hash/RIPEMD160.test +++ tests/test_vectors/Hash/RIPEMD160.test @@ -1,10 +1,12 @@ # Auto generated from "RIPEMD160.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 RIPEMD160 [expr {[lsearch -nocase [tls::digests] RIPEMD160] > -1}] +catch {tls::provider legacy} tcltest::test Hash_RIPEMD160-1.1 {RIPEMD160} \ -constraints RIPEMD160 \ -setup {set data ""} \ -body {tls::digest -digest RIPEMD160 -data $data} \ Index: tests/test_vectors/Hash/RIPEMD256.test ================================================================== --- tests/test_vectors/Hash/RIPEMD256.test +++ tests/test_vectors/Hash/RIPEMD256.test @@ -1,10 +1,12 @@ # Auto generated from "RIPEMD256.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 RIPEMD256 [expr {[lsearch -nocase [tls::digests] RIPEMD256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_RIPEMD256-1.1 {RIPEMD256} \ -constraints RIPEMD256 \ -setup {set data ""} \ -body {tls::digest -digest RIPEMD256 -data $data} \ Index: tests/test_vectors/Hash/RIPEMD320.test ================================================================== --- tests/test_vectors/Hash/RIPEMD320.test +++ tests/test_vectors/Hash/RIPEMD320.test @@ -1,10 +1,12 @@ # Auto generated from "RIPEMD320.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 RIPEMD320 [expr {[lsearch -nocase [tls::digests] RIPEMD320] > -1}] +catch {tls::provider legacy} tcltest::test Hash_RIPEMD320-1.1 {RIPEMD320} \ -constraints RIPEMD320 \ -setup {set data ""} \ -body {tls::digest -digest RIPEMD320 -data $data} \ Index: tests/test_vectors/Hash/SHA1.test ================================================================== --- tests/test_vectors/Hash/SHA1.test +++ tests/test_vectors/Hash/SHA1.test @@ -1,10 +1,12 @@ # Auto generated from "SHA1.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 SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA1-1.1 {SHA1} \ -constraints SHA1 \ -setup {set data ""} \ -body {tls::digest -digest SHA1 -data $data} \ Index: tests/test_vectors/Hash/SHA1LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA1LongMsg.test +++ tests/test_vectors/Hash/SHA1LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA1LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA1-3.1 {SHA1LongMsg} \ -constraints SHA1 \ -setup {set data [binary decode hex 7c9c67323a1df1adbfe5ceb415eaef0155ece2820f4d50c1ec22cba4928ac656c83fe585db6a78ce40bc42757aba7e5a3f582428d6ca68d0c3978336a6efb729613e8d9979016204bfd921322fdd5222183554447de5e6e9bbe6edf76d7b71e18dc2e8d6dc89b7398364f652fafc734329aafa3dcd45d4f31e388e4fafd7fc6495f37ca5cbab7f54d586463da4bfeaa3bae09f7b8e9239d832b4f0a733aa609cc1f8d4]} \ -body {tls::digest -digest SHA1 -data $data} \ Index: tests/test_vectors/Hash/SHA1ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA1ShortMsg.test +++ tests/test_vectors/Hash/SHA1ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA1ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA1-2.1 {SHA1ShortMsg} \ -constraints SHA1 \ -setup {set data ""} \ -body {tls::digest -digest SHA1 -data $data} \ Index: tests/test_vectors/Hash/SHA224.test ================================================================== --- tests/test_vectors/Hash/SHA224.test +++ tests/test_vectors/Hash/SHA224.test @@ -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} \ Index: tests/test_vectors/Hash/SHA224LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA224LongMsg.test +++ tests/test_vectors/Hash/SHA224LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA224LongMsg.rsp" +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-3.1 {SHA224LongMsg} \ -constraints SHA224 \ -setup {set data [binary decode hex f149e41d848f59276cfddd743bafa9a90e1ee4a263a118142b33e3702176ef0a59f8237a1cb51b42f3ded6b202d9af0997898fdd03cf60bda951c514547a0850cec25444ae2f24cb711bfbafcc3956c941d3de69f155e3f8b10f06db5f37359b772ddd43e1035a0a0d3db33242d5843033833b0dd43b870c6bf60e8deab55f317cc3273f5e3ba747f0cb65050cb7228796210d9254873643008d45f29cfd6c5b060c9a]} \ -body {tls::digest -digest SHA224 -data $data} \ Index: tests/test_vectors/Hash/SHA224ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA224ShortMsg.test +++ tests/test_vectors/Hash/SHA224ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA224ShortMsg.rsp" +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-2.1 {SHA224ShortMsg} \ -constraints SHA224 \ -setup {set data ""} \ -body {tls::digest -digest SHA224 -data $data} \ Index: tests/test_vectors/Hash/SHA256.test ================================================================== --- tests/test_vectors/Hash/SHA256.test +++ tests/test_vectors/Hash/SHA256.test @@ -1,10 +1,12 @@ # Auto generated from "SHA256.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 SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA256-1.1 {SHA256} \ -constraints SHA256 \ -setup {set data ""} \ -body {tls::digest -digest SHA256 -data $data} \ Index: tests/test_vectors/Hash/SHA256LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA256LongMsg.test +++ tests/test_vectors/Hash/SHA256LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA256LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA256-3.1 {SHA256LongMsg} \ -constraints SHA256 \ -setup {set data [binary decode hex 451101250ec6f26652249d59dc974b7361d571a8101cdfd36aba3b5854d3ae086b5fdd4597721b66e3c0dc5d8c606d9657d0e323283a5217d1f53f2f284f57b85c8a61ac8924711f895c5ed90ef17745ed2d728abd22a5f7a13479a462d71b56c19a74a40b655c58edfe0a188ad2cf46cbf30524f65d423c837dd1ff2bf462ac4198007345bb44dbb7b1c861298cdf61982a833afc728fae1eda2f87aa2c9480858bec]} \ -body {tls::digest -digest SHA256 -data $data} \ Index: tests/test_vectors/Hash/SHA256ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA256ShortMsg.test +++ tests/test_vectors/Hash/SHA256ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA256ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA256-2.1 {SHA256ShortMsg} \ -constraints SHA256 \ -setup {set data ""} \ -body {tls::digest -digest SHA256 -data $data} \ Index: tests/test_vectors/Hash/SHA3-224.test ================================================================== --- tests/test_vectors/Hash/SHA3-224.test +++ tests/test_vectors/Hash/SHA3-224.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3-224.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 SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-224-1.1 {SHA3-224} \ -constraints SHA3_224 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-224 -data $data} \ Index: tests/test_vectors/Hash/SHA3-256.test ================================================================== --- tests/test_vectors/Hash/SHA3-256.test +++ tests/test_vectors/Hash/SHA3-256.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3-256.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 SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-256-1.1 {SHA3-256} \ -constraints SHA3_256 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-256 -data $data} \ Index: tests/test_vectors/Hash/SHA3-384.test ================================================================== --- tests/test_vectors/Hash/SHA3-384.test +++ tests/test_vectors/Hash/SHA3-384.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3-384.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 SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-384-1.1 {SHA3-384} \ -constraints SHA3_384 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-384 -data $data} \ Index: tests/test_vectors/Hash/SHA3-512.test ================================================================== --- tests/test_vectors/Hash/SHA3-512.test +++ tests/test_vectors/Hash/SHA3-512.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3-512.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 SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-512-1.1 {SHA3-512} \ -constraints SHA3_512 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-512 -data $data} \ Index: tests/test_vectors/Hash/SHA384.test ================================================================== --- tests/test_vectors/Hash/SHA384.test +++ tests/test_vectors/Hash/SHA384.test @@ -1,10 +1,12 @@ # Auto generated from "SHA384.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 SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA384-1.1 {SHA384} \ -constraints SHA384 \ -setup {set data ""} \ -body {tls::digest -digest SHA384 -data $data} \ Index: tests/test_vectors/Hash/SHA384LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA384LongMsg.test +++ tests/test_vectors/Hash/SHA384LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA384LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA384-3.1 {SHA384LongMsg} \ -constraints SHA384 \ -setup {set data [binary decode hex 62c6a169b9be02b3d7b471a964fc0bcc72b480d26aecb2ed460b7f50016ddaf04c51218783f3aadfdff5a04ded030d7b3fb7376b61ba30b90e2da921a4470740d63fb99fa16cc8ed81abaf8ce4016e50df81da832070372c24a80890aa3a26fa675710b8fb718266249d496f313c55d0bada101f8f56eeccee4345a8f98f60a36662cfda794900d12f9414fcbdfdeb85388a814996b47e24d5c8086e7a8edcc53d299d0d033e6bb60c58b83d6e8b57f6c258d6081dd10eb942fdf8ec157ec3e75371235a8196eb9d22b1de3a2d30c2abbe0db7650cf6c7159bacbe29b3a93c92100508]} \ -body {tls::digest -digest SHA384 -data $data} \ Index: tests/test_vectors/Hash/SHA384ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA384ShortMsg.test +++ tests/test_vectors/Hash/SHA384ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA384ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA384-2.1 {SHA384ShortMsg} \ -constraints SHA384 \ -setup {set data ""} \ -body {tls::digest -digest SHA384 -data $data} \ Index: tests/test_vectors/Hash/SHA3_224LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_224LongMsg.test +++ tests/test_vectors/Hash/SHA3_224LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_224LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-224-3.1 {SHA3_224LongMsg} \ -constraints SHA3_224 \ -setup {set data [binary decode hex 31c82d71785b7ca6b651cb6c8c9ad5e2aceb0b0633c088d33aa247ada7a594ff4936c023251319820a9b19fc6c48de8a6f7ada214176ccdaadaeef51ed43714ac0c8269bbd497e46e78bb5e58196494b2471b1680e2d4c6dbd249831bd83a4d3be06c8a2e903933974aa05ee748bfe6ef359f7a143edf0d4918da916bd6f15e26a790cff514b40a5da7f72e1ed2fe63a05b8149587bea05653718cc8980eadbfeca85b7c9c286dd040936585938be7f98219700c83a9443c2856a80ff46852b26d1b1edf72a30203cf6c44a10fa6eaf1920173cedfb5c4cf3ac665b37a86ed02155bbbf17dc2e786af9478fe0889d86c5bfa85a242eb0854b1482b7bd16f67f80bef9c7a628f05a107936a64273a97b0088b0e515451f916b5656230a12ba6dc78]} \ -body {tls::digest -digest SHA3-224 -data $data} \ Index: tests/test_vectors/Hash/SHA3_224ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_224ShortMsg.test +++ tests/test_vectors/Hash/SHA3_224ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_224ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-224-2.1 {SHA3_224ShortMsg} \ -constraints SHA3_224 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-224 -data $data} \ Index: tests/test_vectors/Hash/SHA3_256LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_256LongMsg.test +++ tests/test_vectors/Hash/SHA3_256LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_256LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-256-3.1 {SHA3_256LongMsg} \ -constraints SHA3_256 \ -setup {set data [binary decode hex b1caa396771a09a1db9bc20543e988e359d47c2a616417bbca1b62cb02796a888fc6eeff5c0b5c3d5062fcb4256f6ae1782f492c1cf03610b4a1fb7b814c057878e1190b9835425c7a4a0e182ad1f91535ed2a35033a5d8c670e21c575ff43c194a58a82d4a1a44881dd61f9f8161fc6b998860cbe4975780be93b6f87980bad0a99aa2cb7556b478ca35d1f3746c33e2bb7c47af426641cc7bbb3425e2144820345e1d0ea5b7da2c3236a52906acdc3b4d34e474dd714c0c40bf006a3a1d889a632983814bbc4a14fe5f159aa89249e7c738b3b73666bac2a615a83fd21ae0a1ce7352ade7b278b587158fd2fabb217aa1fe31d0bda53272045598015a8ae4d8cec226fefa58daa05500906c4d85e7567]} \ -body {tls::digest -digest SHA3-256 -data $data} \ Index: tests/test_vectors/Hash/SHA3_256ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_256ShortMsg.test +++ tests/test_vectors/Hash/SHA3_256ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_256ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-256-2.1 {SHA3_256ShortMsg} \ -constraints SHA3_256 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-256 -data $data} \ Index: tests/test_vectors/Hash/SHA3_384LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_384LongMsg.test +++ tests/test_vectors/Hash/SHA3_384LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_384LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-384-3.1 {SHA3_384LongMsg} \ -constraints SHA3_384 \ -setup {set data [binary decode hex 5fe35923b4e0af7dd24971812a58425519850a506dfa9b0d254795be785786c319a2567cbaa5e35bcf8fe83d943e23fa5169b73adc1fcf8b607084b15e6a013df147e46256e4e803ab75c110f77848136be7d806e8b2f868c16c3a90c14463407038cb7d9285079ef162c6a45cedf9c9f066375c969b5fcbcda37f02aacff4f31cded3767570885426bebd9eca877e44674e9ae2f0c24cdd0e7e1aaf1ff2fe7f80a1c4f5078eb34cd4f06fa94a2d1eab5806ca43fd0f06c60b63d5402b95c70c21ea65a151c5cfaf8262a46be3c722264b]} \ -body {tls::digest -digest SHA3-384 -data $data} \ Index: tests/test_vectors/Hash/SHA3_384ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_384ShortMsg.test +++ tests/test_vectors/Hash/SHA3_384ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_384ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-384-2.1 {SHA3_384ShortMsg} \ -constraints SHA3_384 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-384 -data $data} \ Index: tests/test_vectors/Hash/SHA3_512LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_512LongMsg.test +++ tests/test_vectors/Hash/SHA3_512LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_512LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-512-3.1 {SHA3_512LongMsg} \ -constraints SHA3_512 \ -setup {set data [binary decode hex 664ef2e3a7059daf1c58caf52008c5227e85cdcb83b4c59457f02c508d4f4f69f826bd82c0cffc5cb6a97af6e561c6f96970005285e58f21ef6511d26e709889a7e513c434c90a3cf7448f0caeec7114c747b2a0758a3b4503a7cf0c69873ed31d94dbef2b7b2f168830ef7da3322c3d3e10cafb7c2c33c83bbf4c46a31da90cff3bfd4ccc6ed4b310758491eeba603a76]} \ -body {tls::digest -digest SHA3-512 -data $data} \ Index: tests/test_vectors/Hash/SHA3_512ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA3_512ShortMsg.test +++ tests/test_vectors/Hash/SHA3_512ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA3_512ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA3-512-2.1 {SHA3_512ShortMsg} \ -constraints SHA3_512 \ -setup {set data ""} \ -body {tls::digest -digest SHA3-512 -data $data} \ Index: tests/test_vectors/Hash/SHA512-224.test ================================================================== --- tests/test_vectors/Hash/SHA512-224.test +++ tests/test_vectors/Hash/SHA512-224.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512-224.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 SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-224-1.1 {SHA512-224} \ -constraints SHA512_224 \ -setup {set data ""} \ -body {tls::digest -digest SHA512-224 -data $data} \ Index: tests/test_vectors/Hash/SHA512-256.test ================================================================== --- tests/test_vectors/Hash/SHA512-256.test +++ tests/test_vectors/Hash/SHA512-256.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512-256.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 SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-256-1.1 {SHA512-256} \ -constraints SHA512_256 \ -setup {set data ""} \ -body {tls::digest -digest SHA512-256 -data $data} \ Index: tests/test_vectors/Hash/SHA512.test ================================================================== --- tests/test_vectors/Hash/SHA512.test +++ tests/test_vectors/Hash/SHA512.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512.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 SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-1.1 {SHA512} \ -constraints SHA512 \ -setup {set data ""} \ -body {tls::digest -digest SHA512 -data $data} \ Index: tests/test_vectors/Hash/SHA512LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512LongMsg.test +++ tests/test_vectors/Hash/SHA512LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-3.1 {SHA512LongMsg} \ -constraints SHA512 \ -setup {set data [binary decode hex 4f05600950664d5190a2ebc29c9edb89c20079a4d3e6bc3b27d75e34e2fa3d02768502bd69790078598d5fcf3d6779bfed1284bbe5ad72fb456015181d9587d6e864c940564eaafb4f2fead4346ea09b6877d9340f6b82eb1515880872213da3ad88feba9f4f13817a71d6f90a1a17c43a15c038d988b5b29edffe2d6a062813cedbe852cde302b3e33b696846d2a8e36bd680efcc6cd3f9e9a4c1ae8cac10cc5244d131677140399176ed46700019a004a163806f7fa467fc4e17b4617bbd7641aaff7ff56396ba8c08a8be100b33a20b5daf134a2aefa5e1c3496770dcf6baa4f7bb]} \ -body {tls::digest -digest SHA512 -data $data} \ Index: tests/test_vectors/Hash/SHA512ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512ShortMsg.test +++ tests/test_vectors/Hash/SHA512ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-2.1 {SHA512ShortMsg} \ -constraints SHA512 \ -setup {set data ""} \ -body {tls::digest -digest SHA512 -data $data} \ Index: tests/test_vectors/Hash/SHA512_224LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512_224LongMsg.test +++ tests/test_vectors/Hash/SHA512_224LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512_224LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-224-3.1 {SHA512_224LongMsg} \ -constraints SHA512_224 \ -setup {set data [binary decode hex 9625ae618ea633fd7ae5b20ceafd6b1f3ab1a6aa20aded66810e78f38925e9c2fa783a32c40af3f9d7dda0c635b482254b1d85a281af7231109166cd133c8360e281e5e39bcdd7c601ac47928a8c78cdb3c4f71e97d4d0b1c0ee01dd3db62f04f44798bb3a76492ba15a91b7110cb5e01babe56589a36fae3a2f336a2d1d5778dbd23c03ca8db0f25ff0657ff4bca1252adc38c080a5b8f0255ce3be0bf862823d2ab704729b74e1e275aa305824a566895ed677a460113e2a7bf91f00d0b8ebc358f3035b27fcc1d3f14a1367cd2769df39a9d21c5ee361f1965cd6342cc17a1463d6]} \ -body {tls::digest -digest SHA512-224 -data $data} \ Index: tests/test_vectors/Hash/SHA512_224ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512_224ShortMsg.test +++ tests/test_vectors/Hash/SHA512_224ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512_224ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-224-2.1 {SHA512_224ShortMsg} \ -constraints SHA512_224 \ -setup {set data ""} \ -body {tls::digest -digest SHA512-224 -data $data} \ Index: tests/test_vectors/Hash/SHA512_256LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512_256LongMsg.test +++ tests/test_vectors/Hash/SHA512_256LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512_256LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-256-3.1 {SHA512_256LongMsg} \ -constraints SHA512_256 \ -setup {set data [binary decode hex 97e003903bb971a523ce0c82bda5d6733c76b90deb307559c1bddd35368743f6563b315214cd5a7ee0bccf937c9776360bc0b9786b707bfbc4fb50576155edbbbfd5ddd8e43a76faf2ec0c78fc84644f188d6b0ab68c28e5303ff031a223d9fafb3871e85408af6381e629fae67488068c68398a758f665e2c12258d9ff8effb31ec534b0c40ebffb43390e1e26fcaa28fd68ac24f7e1cafe0fa573103dc17058a77edc9b3ea1418b45aa7f5977e126d4861c778ed6332217581eee674d739622e63a529f10c11f4a9e3d8feaea848ade0905675f6458ffa132f52749af23d584438e5]} \ -body {tls::digest -digest SHA512-256 -data $data} \ Index: tests/test_vectors/Hash/SHA512_256ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHA512_256ShortMsg.test +++ tests/test_vectors/Hash/SHA512_256ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHA512_256ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHA512-256-2.1 {SHA512_256ShortMsg} \ -constraints SHA512_256 \ -setup {set data ""} \ -body {tls::digest -digest SHA512-256 -data $data} \ Index: tests/test_vectors/Hash/SHAKE128.test ================================================================== --- tests/test_vectors/Hash/SHAKE128.test +++ tests/test_vectors/Hash/SHAKE128.test @@ -1,10 +1,12 @@ # Auto generated from "SHAKE128.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 SHAKE128 [expr {[lsearch -nocase [tls::digests] SHAKE128] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHAKE128-1.1 {SHAKE128} \ -constraints SHAKE128 \ -setup {set data ""} \ -body {tls::digest -digest SHAKE128 -data $data} \ Index: tests/test_vectors/Hash/SHAKE128LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHAKE128LongMsg.test +++ tests/test_vectors/Hash/SHAKE128LongMsg.test cannot compute difference between binary files Index: tests/test_vectors/Hash/SHAKE128ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHAKE128ShortMsg.test +++ tests/test_vectors/Hash/SHAKE128ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHAKE128ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHAKE128 [expr {[lsearch -nocase [tls::digests] SHAKE128] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHAKE128-2.1 {SHAKE128ShortMsg} \ -constraints SHAKE128 \ -setup {set data ""} \ -body {tls::digest -digest SHAKE128 -data $data} \ Index: tests/test_vectors/Hash/SHAKE256.test ================================================================== --- tests/test_vectors/Hash/SHAKE256.test +++ tests/test_vectors/Hash/SHAKE256.test @@ -1,10 +1,12 @@ # Auto generated from "SHAKE256.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 SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHAKE256-1.1 {SHAKE256} \ -constraints SHAKE256 \ -setup {set data ""} \ -body {tls::digest -digest SHAKE256 -data $data} \ Index: tests/test_vectors/Hash/SHAKE256LongMsg.test ================================================================== --- tests/test_vectors/Hash/SHAKE256LongMsg.test +++ tests/test_vectors/Hash/SHAKE256LongMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHAKE256LongMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHAKE256-3.1 {SHAKE256LongMsg} \ -constraints SHAKE256 \ -setup {set data [binary decode hex dc5a100fa16df1583c79722a0d72833d3bf22c109b8889dbd35213c6bfce205813edae3242695cfd9f59b9a1c203c1b72ef1a5423147cb990b5316a85266675894e2644c3f9578cebe451a09e58c53788fe77a9e850943f8a275f830354b0593a762bac55e984db3e0661eca3cb83f67a6fb348e6177f7dee2df40c4322602f094953905681be3954fe44c4c902c8f6bba565a788b38f13411ba76ce0f9f6756a2a2687424c5435a51e62df7a8934b6e141f74c6ccf539e3782d22b5955d3baf1ab2cf7b5c3f74ec2f9447344e937957fd7f0bdfec56d5d25f61cde18c0986e244ecf780d6307e313117256948d4230ebb9ea62bb302cfe80d7dfebabc4a51d7687967ed5b416a139e974c005fff507a96]} \ -body {tls::digest -digest SHAKE256 -data $data} \ Index: tests/test_vectors/Hash/SHAKE256ShortMsg.test ================================================================== --- tests/test_vectors/Hash/SHAKE256ShortMsg.test +++ tests/test_vectors/Hash/SHAKE256ShortMsg.test @@ -1,10 +1,12 @@ # Auto generated from "SHAKE256ShortMsg.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SHAKE256-2.1 {SHAKE256ShortMsg} \ -constraints SHAKE256 \ -setup {set data ""} \ -body {tls::digest -digest SHAKE256 -data $data} \ Index: tests/test_vectors/Hash/SM3.test ================================================================== --- tests/test_vectors/Hash/SM3.test +++ tests/test_vectors/Hash/SM3.test @@ -1,10 +1,12 @@ # Auto generated from "SM3.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 SM3 [expr {[lsearch -nocase [tls::digests] SM3] > -1}] +catch {tls::provider legacy} tcltest::test Hash_SM3-1.1 {SM3} \ -constraints SM3 \ -setup {set data ""} \ -body {tls::digest -digest SM3 -data $data} \ Index: tests/test_vectors/Hash/WHIRLPOOL.test ================================================================== --- tests/test_vectors/Hash/WHIRLPOOL.test +++ tests/test_vectors/Hash/WHIRLPOOL.test @@ -1,10 +1,12 @@ # Auto generated from "WHIRLPOOL.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 WHIRLPOOL [expr {[lsearch -nocase [tls::digests] WHIRLPOOL] > -1}] +catch {tls::provider legacy} tcltest::test Hash_WHIRLPOOL-1.1 {WHIRLPOOL} \ -constraints WHIRLPOOL \ -setup {set data ""} \ -body {tls::digest -digest WHIRLPOOL -data $data} \ Index: tests/test_vectors/Hash/make_test.tcl ================================================================== --- tests/test_vectors/Hash/make_test.tcl +++ tests/test_vectors/Hash/make_test.tcl @@ -79,14 +79,16 @@ set digest [string map [list LongMsg "" ShortMsg "" Monte "" "_" "-"] $tail] set params [list] # Add config info puts $out [format "# Auto generated from \"%s\"" [file tail $filename]] + puts $out [format "lappend auto_path %s" {[file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]}] puts $out "package require tls" puts $out "package require tcltest\n" puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $digest] \ [format {[expr {[lsearch -nocase [tls::digests] %s] > -1}]} $digest]] + puts $out "catch {tls::provider legacy}" puts $out "" # Process file while {![eof $ch]} { gets $ch line Index: tests/test_vectors/KDF/HKDF-SHA1.test ================================================================== --- tests/test_vectors/KDF/HKDF-SHA1.test +++ tests/test_vectors/KDF/HKDF-SHA1.test @@ -1,11 +1,13 @@ # Auto generated from "HKDF-SHA1.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 HKDF [expr {[lsearch -nocase [tls::kdfs] HKDF] > -1}] tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test KDF_HKDF-SHA1-1.1 {HKDF-SHA1} \ -constraints {HKDF SHA1} \ -setup {} \ -body {binary encode hex [tls::hkdf -digest SHA1 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b] -info [binary decode hex f0f1f2f3f4f5f6f7f8f9] -salt [binary decode hex 000102030405060708090a0b0c] -size 42]} \ Index: tests/test_vectors/KDF/HKDF-SHA224.test ================================================================== --- tests/test_vectors/KDF/HKDF-SHA224.test +++ tests/test_vectors/KDF/HKDF-SHA224.test @@ -1,11 +1,13 @@ # Auto generated from "HKDF-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 HKDF [expr {[lsearch -nocase [tls::kdfs] HKDF] > -1}] tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}] +catch {tls::provider legacy} tcltest::test KDF_HKDF-SHA224-1.1 {HKDF-SHA224} \ -constraints {HKDF SHA224} \ -setup {} \ -body {binary encode hex [tls::hkdf -digest SHA224 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -info [binary decode hex f0f1f2f3f4f5f6f7f8f9] -salt [binary decode hex 000102030405060708090a0b0c] -size 42]} \ Index: tests/test_vectors/KDF/HKDF-SHA256.test ================================================================== --- tests/test_vectors/KDF/HKDF-SHA256.test +++ tests/test_vectors/KDF/HKDF-SHA256.test @@ -1,11 +1,13 @@ # Auto generated from "HKDF-SHA256.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 HKDF [expr {[lsearch -nocase [tls::kdfs] HKDF] > -1}] tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test KDF_HKDF-SHA256-1.1 {HKDF-SHA256} \ -constraints {HKDF SHA256} \ -setup {} \ -body {binary encode hex [tls::hkdf -digest SHA256 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -info [binary decode hex f0f1f2f3f4f5f6f7f8f9] -salt [binary decode hex 000102030405060708090a0b0c] -size 42]} \ Index: tests/test_vectors/KDF/HKDF-SHA384.test ================================================================== --- tests/test_vectors/KDF/HKDF-SHA384.test +++ tests/test_vectors/KDF/HKDF-SHA384.test @@ -1,11 +1,13 @@ # Auto generated from "HKDF-SHA384.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 HKDF [expr {[lsearch -nocase [tls::kdfs] HKDF] > -1}] tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test KDF_HKDF-SHA384-1.1 {HKDF-SHA384} \ -constraints {HKDF SHA384} \ -setup {} \ -body {binary encode hex [tls::hkdf -digest SHA384 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -info [binary decode hex f0f1f2f3f4f5f6f7f8f9] -salt [binary decode hex 000102030405060708090a0b0c] -size 42]} \ Index: tests/test_vectors/KDF/HKDF-SHA512.test ================================================================== --- tests/test_vectors/KDF/HKDF-SHA512.test +++ tests/test_vectors/KDF/HKDF-SHA512.test @@ -1,11 +1,13 @@ # Auto generated from "HKDF-SHA512.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 HKDF [expr {[lsearch -nocase [tls::kdfs] HKDF] > -1}] tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test KDF_HKDF-SHA512-1.1 {HKDF-SHA512} \ -constraints {HKDF SHA512} \ -setup {} \ -body {binary encode hex [tls::hkdf -digest SHA512 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -info [binary decode hex f0f1f2f3f4f5f6f7f8f9] -salt [binary decode hex 000102030405060708090a0b0c] -size 42]} \ Index: tests/test_vectors/KDF/PBKDF2-SHA1.test ================================================================== --- tests/test_vectors/KDF/PBKDF2-SHA1.test +++ tests/test_vectors/KDF/PBKDF2-SHA1.test @@ -1,11 +1,13 @@ # Auto generated from "PBKDF2-SHA1.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 PBKDF2 [expr {[lsearch -nocase [tls::kdfs] PBKDF2] > -1}] tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test KDF_PBKDF2-SHA1-1.1 {PBKDF2-SHA1} \ -constraints {PBKDF2 SHA1} \ -setup {} \ -body {binary encode hex [tls::pbkdf2 -digest SHA1 -password "password" -salt "salt" -iterations 1 -size 20]} \ Index: tests/test_vectors/KDF/PBKDF2-SHA224.test ================================================================== --- tests/test_vectors/KDF/PBKDF2-SHA224.test +++ tests/test_vectors/KDF/PBKDF2-SHA224.test @@ -1,11 +1,13 @@ # Auto generated from "PBKDF2-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 PBKDF2 [expr {[lsearch -nocase [tls::kdfs] PBKDF2] > -1}] tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}] +catch {tls::provider legacy} tcltest::test KDF_PBKDF2-SHA224-1.1 {PBKDF2-SHA224} \ -constraints {PBKDF2 SHA224} \ -setup {} \ -body {binary encode hex [tls::pbkdf2 -digest SHA224 -password "password" -salt "salt" -iterations 1 -size 20]} \ Index: tests/test_vectors/KDF/PBKDF2-SHA256.test ================================================================== --- tests/test_vectors/KDF/PBKDF2-SHA256.test +++ tests/test_vectors/KDF/PBKDF2-SHA256.test @@ -1,11 +1,13 @@ # Auto generated from "PBKDF2-SHA256.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 PBKDF2 [expr {[lsearch -nocase [tls::kdfs] PBKDF2] > -1}] tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test KDF_PBKDF2-SHA256-1.1 {PBKDF2-SHA256} \ -constraints {PBKDF2 SHA256} \ -setup {} \ -body {binary encode hex [tls::pbkdf2 -digest SHA256 -password "password" -salt "salt" -iterations 1 -size 20]} \ Index: tests/test_vectors/KDF/PBKDF2-SHA384.test ================================================================== --- tests/test_vectors/KDF/PBKDF2-SHA384.test +++ tests/test_vectors/KDF/PBKDF2-SHA384.test @@ -1,11 +1,13 @@ # Auto generated from "PBKDF2-SHA384.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 PBKDF2 [expr {[lsearch -nocase [tls::kdfs] PBKDF2] > -1}] tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test KDF_PBKDF2-SHA384-1.1 {PBKDF2-SHA384} \ -constraints {PBKDF2 SHA384} \ -setup {} \ -body {binary encode hex [tls::pbkdf2 -digest SHA384 -password "password" -salt "salt" -iterations 1 -size 20]} \ Index: tests/test_vectors/KDF/PBKDF2-SHA512.test ================================================================== --- tests/test_vectors/KDF/PBKDF2-SHA512.test +++ tests/test_vectors/KDF/PBKDF2-SHA512.test @@ -1,11 +1,13 @@ # Auto generated from "PBKDF2-SHA512.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 PBKDF2 [expr {[lsearch -nocase [tls::kdfs] PBKDF2] > -1}] tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test KDF_PBKDF2-SHA512-1.1 {PBKDF2-SHA512} \ -constraints {PBKDF2 SHA512} \ -setup {} \ -body {binary encode hex [tls::pbkdf2 -digest SHA512 -password "password" -salt "salt" -iterations 1 -size 20]} \ Index: tests/test_vectors/KDF/Scrypt.test ================================================================== --- tests/test_vectors/KDF/Scrypt.test +++ tests/test_vectors/KDF/Scrypt.test @@ -1,10 +1,12 @@ # Auto generated from "Scrypt.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 Scrypt [expr {[lsearch -nocase [tls::kdfs] Scrypt] > -1}] +catch {tls::provider legacy} tcltest::test KDF_Scrypt-1.1 {Scrypt} \ -constraints {Scrypt } \ -setup {} \ -body {binary encode hex [tls::scrypt -password "" -salt "" -size 64 -N 16 -r 1 -p 1]} \ Index: tests/test_vectors/KDF/make_test.tcl ================================================================== --- tests/test_vectors/KDF/make_test.tcl +++ tests/test_vectors/KDF/make_test.tcl @@ -84,18 +84,20 @@ lassign [split [string map [list "_" "-"] $tail] "-"] kdf digest set params [list] # Add config info puts $out [format "# Auto generated from \"%s\"" [file tail $filename]] + puts $out [format "lappend auto_path %s" {[file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]}] puts $out "package require tls" puts $out "package require tcltest\n" puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $kdf] \ [format {[expr {[lsearch -nocase [tls::kdfs] %s] > -1}]} $kdf]] if {$digest ne ""} { puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $digest] \ [format {[expr {[lsearch -nocase [tls::digests] %s] > -1}]} $digest]] } + puts $out "catch {tls::provider legacy}" puts $out "" # Process file while {![eof $ch]} { gets $ch line Index: tests/test_vectors/MAC/CMAC-AES-128-CBC.test ================================================================== --- tests/test_vectors/MAC/CMAC-AES-128-CBC.test +++ tests/test_vectors/MAC/CMAC-AES-128-CBC.test @@ -1,11 +1,13 @@ # Auto generated from "CMAC-AES-128-CBC.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 CMAC [expr {[lsearch -nocase [tls::macs] CMAC] > -1}] tcltest::testConstraint AES_128_CBC [expr {[lsearch -nocase [tls::ciphers] AES-128-CBC] > -1}] +catch {tls::provider legacy} tcltest::test MAC_CMAC-AES-128-CBC-1.1 {CMAC-AES-128-CBC} \ -constraints {CMAC AES_128_CBC} \ -setup {} \ -body {string range [tls::cmac -hex -cipher AES-128-CBC -key [binary decode hex 2b7e151628aed2a6abf7158809cf4f3c] -data ""] 0 31} \ Index: tests/test_vectors/MAC/CMAC-AES-192-CBC.test ================================================================== --- tests/test_vectors/MAC/CMAC-AES-192-CBC.test +++ tests/test_vectors/MAC/CMAC-AES-192-CBC.test @@ -1,11 +1,13 @@ # Auto generated from "CMAC-AES-192-CBC.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 CMAC [expr {[lsearch -nocase [tls::macs] CMAC] > -1}] tcltest::testConstraint AES_192_CBC [expr {[lsearch -nocase [tls::ciphers] AES-192-CBC] > -1}] +catch {tls::provider legacy} tcltest::test MAC_CMAC-AES-192-CBC-1.1 {CMAC-AES-192-CBC} \ -constraints {CMAC AES_192_CBC} \ -setup {} \ -body {string range [tls::cmac -hex -cipher AES-192-CBC -key [binary decode hex 8e73b0f7da0e6452c810f32b809079e562f8ead2522c6b7b] -data ""] 0 31} \ Index: tests/test_vectors/MAC/CMAC-AES-256-CBC.test ================================================================== --- tests/test_vectors/MAC/CMAC-AES-256-CBC.test +++ tests/test_vectors/MAC/CMAC-AES-256-CBC.test @@ -1,11 +1,13 @@ # Auto generated from "CMAC-AES-256-CBC.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 CMAC [expr {[lsearch -nocase [tls::macs] CMAC] > -1}] tcltest::testConstraint AES_256_CBC [expr {[lsearch -nocase [tls::ciphers] AES-256-CBC] > -1}] +catch {tls::provider legacy} tcltest::test MAC_CMAC-AES-256-CBC-1.1 {CMAC-AES-256-CBC} \ -constraints {CMAC AES_256_CBC} \ -setup {} \ -body {string range [tls::cmac -hex -cipher AES-256-CBC -key [binary decode hex 603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4] -data ""] 0 31} \ Index: tests/test_vectors/MAC/CMAC-DES3.test ================================================================== --- tests/test_vectors/MAC/CMAC-DES3.test +++ tests/test_vectors/MAC/CMAC-DES3.test @@ -1,11 +1,13 @@ # Auto generated from "CMAC-DES3.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 CMAC [expr {[lsearch -nocase [tls::macs] CMAC] > -1}] tcltest::testConstraint DES3 [expr {[lsearch -nocase [tls::ciphers] DES3] > -1}] +catch {tls::provider legacy} tcltest::test MAC_CMAC-DES3-1.1 {CMAC-DES3} \ -constraints {CMAC DES3} \ -setup {} \ -body {string range [tls::cmac -hex -cipher DES3 -key [binary decode hex 8aa83bf8cbda10620bc1bf19fbb6cd58bc313d4a371ca8b5] -data ""] 0 15} \ Index: tests/test_vectors/MAC/HMAC.test ================================================================== --- tests/test_vectors/MAC/HMAC.test +++ tests/test_vectors/MAC/HMAC.test @@ -1,10 +1,12 @@ # Auto generated from "HMAC.rsp" +lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]] package require tls package require tcltest tcltest::testConstraint HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] +catch {tls::provider legacy} tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] tcltest::test MAC_HMAC-1.1 {HMAC} \ -constraints {HMAC SHA1 } \ -setup {} \ Index: tests/test_vectors/MAC/HMAC_MD5.test ================================================================== --- tests/test_vectors/MAC/HMAC_MD5.test +++ tests/test_vectors/MAC/HMAC_MD5.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_MD5.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint MD5 [expr {[lsearch -nocase [tls::digests] MD5] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-MD5-1.1 {HMAC_MD5} \ -constraints {HMAC MD5 } \ -setup {} \ -body {string range [tls::hmac -hex -digest MD5 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -data "Hi There"] 0 31} \ Index: tests/test_vectors/MAC/HMAC_RIPEMD128.test ================================================================== --- tests/test_vectors/MAC/HMAC_RIPEMD128.test +++ tests/test_vectors/MAC/HMAC_RIPEMD128.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_RIPEMD128.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint RIPEMD128 [expr {[lsearch -nocase [tls::digests] RIPEMD128] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-RIPEMD128-1.1 {HMAC_RIPEMD128} \ -constraints {HMAC RIPEMD128 } \ -setup {} \ -body {string range [tls::hmac -hex -digest RIPEMD128 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -data "Hi There"] 0 31} \ Index: tests/test_vectors/MAC/HMAC_RIPEMD160.test ================================================================== --- tests/test_vectors/MAC/HMAC_RIPEMD160.test +++ tests/test_vectors/MAC/HMAC_RIPEMD160.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_RIPEMD160.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint RIPEMD160 [expr {[lsearch -nocase [tls::digests] RIPEMD160] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-RIPEMD160-1.1 {HMAC_RIPEMD160} \ -constraints {HMAC RIPEMD160 } \ -setup {} \ -body {string range [tls::hmac -hex -digest RIPEMD160 -key [binary decode hex 0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b0b] -data "Hi There"] 0 39} \ Index: tests/test_vectors/MAC/HMAC_SHA1.test ================================================================== --- tests/test_vectors/MAC/HMAC_SHA1.test +++ tests/test_vectors/MAC/HMAC_SHA1.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_SHA1.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA1-1.1 {HMAC_SHA1} \ -constraints {HMAC SHA1 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA1 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f] -data "Sample message for keylen=blocklen"] 0 39} \ Index: tests/test_vectors/MAC/HMAC_SHA224.test ================================================================== --- tests/test_vectors/MAC/HMAC_SHA224.test +++ tests/test_vectors/MAC/HMAC_SHA224.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA224-1.1 {HMAC_SHA224} \ -constraints {HMAC SHA224 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA224 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f] -data "Sample message for keylen=blocklen"] 0 55} \ Index: tests/test_vectors/MAC/HMAC_SHA256.test ================================================================== --- tests/test_vectors/MAC/HMAC_SHA256.test +++ tests/test_vectors/MAC/HMAC_SHA256.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_SHA256.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA256-1.1 {HMAC_SHA256} \ -constraints {HMAC SHA256 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA256 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f] -data "Sample message for keylen=blocklen"] 0 63} \ Index: tests/test_vectors/MAC/HMAC_SHA3-224.test ================================================================== --- tests/test_vectors/MAC/HMAC_SHA3-224.test +++ tests/test_vectors/MAC/HMAC_SHA3-224.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_SHA3-224.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA3-224-1.1 {HMAC_SHA3-224} \ -constraints {HMAC SHA3_224 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA3-224 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b] -data "Sample message for keylen -1}] tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA3-256-1.1 {HMAC_SHA3-256} \ -constraints {HMAC SHA3_256 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA3-256 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f] -data "Sample message for keylen -1}] tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA3-384-1.1 {HMAC_SHA3-384} \ -constraints {HMAC SHA3_384 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA3-384 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f] -data "Sample message for keylen -1}] tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA3-512-1.1 {HMAC_SHA3-512} \ -constraints {HMAC SHA3_512 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA3-512 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f] -data "Sample message for keylen -1}] tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA384-1.1 {HMAC_SHA384} \ -constraints {HMAC SHA384 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA384 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f404142434445464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f606162636465666768696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f] -data "Sample message for keylen=blocklen"] 0 95} \ Index: tests/test_vectors/MAC/HMAC_SHA512.test ================================================================== --- tests/test_vectors/MAC/HMAC_SHA512.test +++ tests/test_vectors/MAC/HMAC_SHA512.test @@ -1,11 +1,13 @@ # Auto generated from "HMAC_SHA512.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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}] tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}] +catch {tls::provider legacy} tcltest::test MAC_HMAC-SHA512-1.1 {HMAC_SHA512} \ -constraints {HMAC SHA512 } \ -setup {} \ -body {string range [tls::hmac -hex -digest SHA512 -key [binary decode hex 000102030405060708090a0b0c0d0e0f101112131415161718191a1b1c1d1e1f202122232425262728292a2b2c2d2e2f303132333435363738393a3b3c3d3e3f404142434445464748494a4b4c4d4e4f505152535455565758595a5b5c5d5e5f606162636465666768696a6b6c6d6e6f707172737475767778797a7b7c7d7e7f] -data "Sample message for keylen=blocklen"] 0 127} \ Index: tests/test_vectors/MAC/make_test.tcl ================================================================== --- tests/test_vectors/MAC/make_test.tcl +++ tests/test_vectors/MAC/make_test.tcl @@ -114,10 +114,11 @@ } set params [list] # Add config info puts $out [format "# Auto generated from \"%s\"" [file tail $filename]] + puts $out [format "lappend auto_path %s" {[file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]}] puts $out "package require tls" puts $out "package require tcltest\n" puts $out [format "tcltest::testConstraint %s %s" $mac \ [format {[expr {[lsearch -nocase [tls::macs] %s] > -1}]} [string map [list "-" "_"] $mac]]] if {[string match -nocase "CMAC" $mac] && $cipher ne ""} { @@ -125,10 +126,11 @@ [format {[expr {[lsearch -nocase [tls::ciphers] %s] > -1}]} $cipher]] } elseif {[string match -nocase "HMAC" $mac] && $digest ne ""} { puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $digest] \ [format {[expr {[lsearch -nocase [tls::digests] %s] > -1}]} $digest]] } + puts $out "catch {tls::provider legacy}" puts $out "" # Process file while {![eof $ch]} { gets $ch line