TclTLS
Check-in [8440f589be]
Login
HomeTimelineDownloadBrowse SourceBranchesTagsTicketsWiki
Overview
Comment:Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | crypto
Files: files | file ages | folders
SHA3-256: 8440f589beec01879f851171d674e695bc4f151cbf5acb13a1cce074421bab54
User & Date: bohagan on 2024-02-11 21:24:47
Other Links: branch diff | manifest | tags
Context
2024-02-24
03:57
Merged in changes from master check-in: 603eb0c0ba user: bohagan tags: crypto
2024-02-11
21:24
Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms. check-in: 8440f589be user: bohagan tags: crypto
20:51
Merged changes from master. check-in: 45be9618dc user: bohagan tags: crypto
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Modified tests/test_vectors/Hash/BLAKE2b512.test from [8e818cab70] to [878053b68e]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "BLAKE2b512.txt"

package require tls
package require tcltest

tcltest::testConstraint BLAKE2b512 [expr {[lsearch -nocase [tls::digests] BLAKE2b512] > -1}]


tcltest::test Hash_BLAKE2b512-1.1 {BLAKE2b512} \
	-constraints BLAKE2b512 \
	-setup {set data ""} \
	-body {tls::digest -digest BLAKE2b512 -data $data} \
	-match exact -result 786a02f742015903c6c6fd852552d272912f4740e15847618a86e217f71f5419d25e1031afee585313896444934eb04b903a685b1448b755d56f701afe9be2ce



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 786a02f742015903c6c6fd852552d272912f4740e15847618a86e217f71f5419d25e1031afee585313896444934eb04b903a685b1448b755d56f701afe9be2ce
︙︙

Modified tests/test_vectors/Hash/BLAKE2s256.test from [0d1c096bbe] to [4b48cf365e]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "BLAKE2s256.txt"

package require tls
package require tcltest

tcltest::testConstraint BLAKE2s256 [expr {[lsearch -nocase [tls::digests] BLAKE2s256] > -1}]


tcltest::test Hash_BLAKE2s256-1.1 {BLAKE2s256} \
	-constraints BLAKE2s256 \
	-setup {set data ""} \
	-body {tls::digest -digest BLAKE2s256 -data $data} \
	-match exact -result 69217a3079908094e11121d042354a7c1f55b6482ca1a51e1b250dfd1ed0eef9



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 69217a3079908094e11121d042354a7c1f55b6482ca1a51e1b250dfd1ed0eef9
︙︙

Modified tests/test_vectors/Hash/MD2.test from [99bc7b516b] to [7aa85ed2f2]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "MD2.txt"

package require tls
package require tcltest

tcltest::testConstraint MD2 [expr {[lsearch -nocase [tls::digests] MD2] > -1}]


tcltest::test Hash_MD2-1.1 {MD2} \
	-constraints MD2 \
	-setup {set data ""} \
	-body {tls::digest -digest MD2 -data $data} \
	-match exact -result 8350e5a3e24c153df2275c9f80692773



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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
︙︙

Modified tests/test_vectors/Hash/MD4.test from [467c08c34a] to [de02bac398]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "MD4.txt"

package require tls
package require tcltest

tcltest::testConstraint MD4 [expr {[lsearch -nocase [tls::digests] MD4] > -1}]


tcltest::test Hash_MD4-1.1 {MD4} \
	-constraints MD4 \
	-setup {set data ""} \
	-body {tls::digest -digest MD4 -data $data} \
	-match exact -result 31d6cfe0d16ae931b73c59d7e0c089c0



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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
︙︙

Modified tests/test_vectors/Hash/MD5.test from [4a3b7c9208] to [02d5c9878c]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "MD5.txt"

package require tls
package require tcltest

tcltest::testConstraint MD5 [expr {[lsearch -nocase [tls::digests] MD5] > -1}]


tcltest::test Hash_MD5-1.1 {MD5} \
	-constraints MD5 \
	-setup {set data ""} \
	-body {tls::digest -digest MD5 -data $data} \
	-match exact -result d41d8cd98f00b204e9800998ecf8427e



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result d41d8cd98f00b204e9800998ecf8427e
︙︙

Modified tests/test_vectors/Hash/MDC2.test from [9cb43c6d6f] to [a104d54869]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "MDC2.txt"

package require tls
package require tcltest

tcltest::testConstraint MDC2 [expr {[lsearch -nocase [tls::digests] MDC2] > -1}]


tcltest::test Hash_MDC2-1.1 {MDC2} \
	-constraints MDC2 \
	-setup {set data ""} \
	-body {tls::digest -digest MDC2 -data $data} \
	-match exact -result 52525252525252522525252525252525



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 52525252525252522525252525252525
︙︙

Modified tests/test_vectors/Hash/RIPEMD128.test from [d7315ba5f4] to [537f06a40f]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "RIPEMD128.txt"

package require tls
package require tcltest

tcltest::testConstraint RIPEMD128 [expr {[lsearch -nocase [tls::digests] RIPEMD128] > -1}]


tcltest::test Hash_RIPEMD128-1.1 {RIPEMD128} \
	-constraints RIPEMD128 \
	-setup {set data ""} \
	-body {tls::digest -digest RIPEMD128 -data $data} \
	-match exact -result cdf26213a150dc3ecb610f18f6b38b46



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result cdf26213a150dc3ecb610f18f6b38b46
︙︙

Modified tests/test_vectors/Hash/RIPEMD160.test from [e06ba4b6d7] to [270ed19e2a]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "RIPEMD160.txt"

package require tls
package require tcltest

tcltest::testConstraint RIPEMD160 [expr {[lsearch -nocase [tls::digests] RIPEMD160] > -1}]


tcltest::test Hash_RIPEMD160-1.1 {RIPEMD160} \
	-constraints RIPEMD160 \
	-setup {set data ""} \
	-body {tls::digest -digest RIPEMD160 -data $data} \
	-match exact -result 9c1185a5c5e9fc54612808977ee8f548b2258d31



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 9c1185a5c5e9fc54612808977ee8f548b2258d31
︙︙

Modified tests/test_vectors/Hash/RIPEMD256.test from [95937b3173] to [5c641c09c2]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "RIPEMD256.txt"

package require tls
package require tcltest

tcltest::testConstraint RIPEMD256 [expr {[lsearch -nocase [tls::digests] RIPEMD256] > -1}]


tcltest::test Hash_RIPEMD256-1.1 {RIPEMD256} \
	-constraints RIPEMD256 \
	-setup {set data ""} \
	-body {tls::digest -digest RIPEMD256 -data $data} \
	-match exact -result 02ba4c4e5f8ecd1877fc52d64d30e37a2d9774fb1e5d026380ae0168e3c5522d



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 02ba4c4e5f8ecd1877fc52d64d30e37a2d9774fb1e5d026380ae0168e3c5522d
︙︙

Modified tests/test_vectors/Hash/RIPEMD320.test from [fe9e7cfcb5] to [317a9f765a]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "RIPEMD320.txt"

package require tls
package require tcltest

tcltest::testConstraint RIPEMD320 [expr {[lsearch -nocase [tls::digests] RIPEMD320] > -1}]


tcltest::test Hash_RIPEMD320-1.1 {RIPEMD320} \
	-constraints RIPEMD320 \
	-setup {set data ""} \
	-body {tls::digest -digest RIPEMD320 -data $data} \
	-match exact -result 22d65d5661536cdc75c1fdf5c6de7b41b9f27325ebc61e8557177d705a0ec880151c3a32a00899b8



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 22d65d5661536cdc75c1fdf5c6de7b41b9f27325ebc61e8557177d705a0ec880151c3a32a00899b8
︙︙

Modified tests/test_vectors/Hash/SHA1.test from [bfbdebdc89] to [b788694073]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA1.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}]


tcltest::test Hash_SHA1-1.1 {SHA1} \
	-constraints SHA1 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA1 -data $data} \
	-match exact -result da39a3ee5e6b4b0d3255bfef95601890afd80709



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result da39a3ee5e6b4b0d3255bfef95601890afd80709
︙︙

Modified tests/test_vectors/Hash/SHA1LongMsg.test from [5629c042e7] to [aa0f0dbbbe]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA1LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}]


tcltest::test Hash_SHA1-3.1 {SHA1LongMsg} \
	-constraints SHA1 \
	-setup {set data [binary decode hex 7c9c67323a1df1adbfe5ceb415eaef0155ece2820f4d50c1ec22cba4928ac656c83fe585db6a78ce40bc42757aba7e5a3f582428d6ca68d0c3978336a6efb729613e8d9979016204bfd921322fdd5222183554447de5e6e9bbe6edf76d7b71e18dc2e8d6dc89b7398364f652fafc734329aafa3dcd45d4f31e388e4fafd7fc6495f37ca5cbab7f54d586463da4bfeaa3bae09f7b8e9239d832b4f0a733aa609cc1f8d4]} \
	-body {tls::digest -digest SHA1 -data $data} \
	-match exact -result d8fd6a91ef3b6ced05b98358a99107c1fac8c807



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result d8fd6a91ef3b6ced05b98358a99107c1fac8c807
︙︙

Modified tests/test_vectors/Hash/SHA1ShortMsg.test from [79a03d8d0f] to [c53c8d2ca7]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA1ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA1 [expr {[lsearch -nocase [tls::digests] SHA1] > -1}]


tcltest::test Hash_SHA1-2.1 {SHA1ShortMsg} \
	-constraints SHA1 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA1 -data $data} \
	-match exact -result da39a3ee5e6b4b0d3255bfef95601890afd80709



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result da39a3ee5e6b4b0d3255bfef95601890afd80709
︙︙

Modified tests/test_vectors/Hash/SHA224.test from [222cda757d] to [fe91ce1b6d]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA224.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}]


tcltest::test Hash_SHA224-1.1 {SHA224} \
	-constraints SHA224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f
︙︙

Modified tests/test_vectors/Hash/SHA224LongMsg.test from [0be074bfc3] to [6716118175]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA224LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}]


tcltest::test Hash_SHA224-3.1 {SHA224LongMsg} \
	-constraints SHA224 \
	-setup {set data [binary decode hex f149e41d848f59276cfddd743bafa9a90e1ee4a263a118142b33e3702176ef0a59f8237a1cb51b42f3ded6b202d9af0997898fdd03cf60bda951c514547a0850cec25444ae2f24cb711bfbafcc3956c941d3de69f155e3f8b10f06db5f37359b772ddd43e1035a0a0d3db33242d5843033833b0dd43b870c6bf60e8deab55f317cc3273f5e3ba747f0cb65050cb7228796210d9254873643008d45f29cfd6c5b060c9a]} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result 9db6dc3a23abd7b6c3d72c38f4843c7de48a71d0ba91a86b18393e5f



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 9db6dc3a23abd7b6c3d72c38f4843c7de48a71d0ba91a86b18393e5f
︙︙

Modified tests/test_vectors/Hash/SHA224ShortMsg.test from [e931511d8b] to [75e4fa0158]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA224ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA224 [expr {[lsearch -nocase [tls::digests] SHA224] > -1}]


tcltest::test Hash_SHA224-2.1 {SHA224ShortMsg} \
	-constraints SHA224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA224 -data $data} \
	-match exact -result d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f
︙︙

Modified tests/test_vectors/Hash/SHA256.test from [e73af40184] to [ebd0ad0c96]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA256.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}]


tcltest::test Hash_SHA256-1.1 {SHA256} \
	-constraints SHA256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA256 -data $data} \
	-match exact -result e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855
︙︙

Modified tests/test_vectors/Hash/SHA256LongMsg.test from [2a205726a8] to [760719818f]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA256LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}]


tcltest::test Hash_SHA256-3.1 {SHA256LongMsg} \
	-constraints SHA256 \
	-setup {set data [binary decode hex 451101250ec6f26652249d59dc974b7361d571a8101cdfd36aba3b5854d3ae086b5fdd4597721b66e3c0dc5d8c606d9657d0e323283a5217d1f53f2f284f57b85c8a61ac8924711f895c5ed90ef17745ed2d728abd22a5f7a13479a462d71b56c19a74a40b655c58edfe0a188ad2cf46cbf30524f65d423c837dd1ff2bf462ac4198007345bb44dbb7b1c861298cdf61982a833afc728fae1eda2f87aa2c9480858bec]} \
	-body {tls::digest -digest SHA256 -data $data} \
	-match exact -result 3c593aa539fdcdae516cdf2f15000f6634185c88f505b39775fb9ab137a10aa2



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 3c593aa539fdcdae516cdf2f15000f6634185c88f505b39775fb9ab137a10aa2
︙︙

Modified tests/test_vectors/Hash/SHA256ShortMsg.test from [3c579310ba] to [c21ec20562]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA256ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA256 [expr {[lsearch -nocase [tls::digests] SHA256] > -1}]


tcltest::test Hash_SHA256-2.1 {SHA256ShortMsg} \
	-constraints SHA256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA256 -data $data} \
	-match exact -result e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855
︙︙

Modified tests/test_vectors/Hash/SHA3-224.test from [0197fd6ae2] to [9fc3e3754f]. 

1

2
3
4
5

6
7
8
9
10
11
12

# 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::test Hash_SHA3-224-1.1 {SHA3-224} \
	-constraints SHA3_224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7
︙︙

Modified tests/test_vectors/Hash/SHA3-256.test from [97ef336193] to [f3a4dd335c]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3-256.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}]


tcltest::test Hash_SHA3-256-1.1 {SHA3-256} \
	-constraints SHA3_256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-256 -data $data} \
	-match exact -result a7ffc6f8bf1ed76651c14756a061d662f580ff4de43b49fa82d80a4b80f8434a



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result a7ffc6f8bf1ed76651c14756a061d662f580ff4de43b49fa82d80a4b80f8434a
︙︙

Modified tests/test_vectors/Hash/SHA3-384.test from [5173b84b19] to [6b46875f9b]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3-384.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}]


tcltest::test Hash_SHA3-384-1.1 {SHA3-384} \
	-constraints SHA3_384 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-384 -data $data} \
	-match exact -result 0c63a75b845e4f7d01107d852e4c2485c51a50aaaa94fc61995e71bbee983a2ac3713831264adb47fb6bd1e058d5f004



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 0c63a75b845e4f7d01107d852e4c2485c51a50aaaa94fc61995e71bbee983a2ac3713831264adb47fb6bd1e058d5f004
︙︙

Modified tests/test_vectors/Hash/SHA3-512.test from [719e522337] to [6da8f64028]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3-512.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}]


tcltest::test Hash_SHA3-512-1.1 {SHA3-512} \
	-constraints SHA3_512 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-512 -data $data} \
	-match exact -result a69f73cca23a9ac5c8b567dc185a756e97c982164fe25859e0d1dcc1475c80a615b2123af1f5f94c11e3e9402c3ac558f500199d95b6d3e301758586281dcd26



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result a69f73cca23a9ac5c8b567dc185a756e97c982164fe25859e0d1dcc1475c80a615b2123af1f5f94c11e3e9402c3ac558f500199d95b6d3e301758586281dcd26
︙︙

Modified tests/test_vectors/Hash/SHA384.test from [812b725c9b] to [e30ff48b23]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA384.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}]


tcltest::test Hash_SHA384-1.1 {SHA384} \
	-constraints SHA384 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA384 -data $data} \
	-match exact -result 38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b
︙︙

Modified tests/test_vectors/Hash/SHA384LongMsg.test from [e10e588e6c] to [d649a9d8c0]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA384LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}]


tcltest::test Hash_SHA384-3.1 {SHA384LongMsg} \
	-constraints SHA384 \
	-setup {set data [binary decode hex 62c6a169b9be02b3d7b471a964fc0bcc72b480d26aecb2ed460b7f50016ddaf04c51218783f3aadfdff5a04ded030d7b3fb7376b61ba30b90e2da921a4470740d63fb99fa16cc8ed81abaf8ce4016e50df81da832070372c24a80890aa3a26fa675710b8fb718266249d496f313c55d0bada101f8f56eeccee4345a8f98f60a36662cfda794900d12f9414fcbdfdeb85388a814996b47e24d5c8086e7a8edcc53d299d0d033e6bb60c58b83d6e8b57f6c258d6081dd10eb942fdf8ec157ec3e75371235a8196eb9d22b1de3a2d30c2abbe0db7650cf6c7159bacbe29b3a93c92100508]} \
	-body {tls::digest -digest SHA384 -data $data} \
	-match exact -result 0730e184e7795575569f87030260bb8e54498e0e5d096b18285e988d245b6f3486d1f2447d5f85bcbe59d5689fc49425



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 0730e184e7795575569f87030260bb8e54498e0e5d096b18285e988d245b6f3486d1f2447d5f85bcbe59d5689fc49425
︙︙

Modified tests/test_vectors/Hash/SHA384ShortMsg.test from [b756234b7b] to [af2f570629]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA384ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}]


tcltest::test Hash_SHA384-2.1 {SHA384ShortMsg} \
	-constraints SHA384 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA384 -data $data} \
	-match exact -result 38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b
︙︙

Modified tests/test_vectors/Hash/SHA3_224LongMsg.test from [38b62e20fc] to [9b8c6ad752]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_224LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]


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} \
	-match exact -result aab23c9e7fb9d7dacefdfd0b1ae85ab1374abff7c4e3f7556ecae412



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result aab23c9e7fb9d7dacefdfd0b1ae85ab1374abff7c4e3f7556ecae412
︙︙

Modified tests/test_vectors/Hash/SHA3_224ShortMsg.test from [9847c1b7e5] to [3a294388e3]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_224ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_224 [expr {[lsearch -nocase [tls::digests] SHA3-224] > -1}]


tcltest::test Hash_SHA3-224-2.1 {SHA3_224ShortMsg} \
	-constraints SHA3_224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-224 -data $data} \
	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 6b4e03423667dbb73b6e15454f0eb1abd4597f9a1b078e3f5b5a6bc7
︙︙

Modified tests/test_vectors/Hash/SHA3_256LongMsg.test from [dfe94a5f89] to [a51e956734]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_256LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}]


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} \
	-match exact -result cb5648a1d61c6c5bdacd96f81c9591debc3950dcf658145b8d996570ba881a05



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result cb5648a1d61c6c5bdacd96f81c9591debc3950dcf658145b8d996570ba881a05
︙︙

Modified tests/test_vectors/Hash/SHA3_256ShortMsg.test from [f41fb70fc3] to [f903bbd26a]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_256ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}]


tcltest::test Hash_SHA3-256-2.1 {SHA3_256ShortMsg} \
	-constraints SHA3_256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-256 -data $data} \
	-match exact -result a7ffc6f8bf1ed76651c14756a061d662f580ff4de43b49fa82d80a4b80f8434a



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result a7ffc6f8bf1ed76651c14756a061d662f580ff4de43b49fa82d80a4b80f8434a
︙︙

Modified tests/test_vectors/Hash/SHA3_384LongMsg.test from [72042f9981] to [770b8b5386]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_384LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}]


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} \
	-match exact -result 3054d249f916a6039b2a9c3ebec1418791a0608a170e6d36486035e5f92635eaba98072a85373cb54e2ae3f982ce132b



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 3054d249f916a6039b2a9c3ebec1418791a0608a170e6d36486035e5f92635eaba98072a85373cb54e2ae3f982ce132b
︙︙

Modified tests/test_vectors/Hash/SHA3_384ShortMsg.test from [0c5d1a014d] to [5c1fe28c3a]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_384ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}]


tcltest::test Hash_SHA3-384-2.1 {SHA3_384ShortMsg} \
	-constraints SHA3_384 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-384 -data $data} \
	-match exact -result 0c63a75b845e4f7d01107d852e4c2485c51a50aaaa94fc61995e71bbee983a2ac3713831264adb47fb6bd1e058d5f004



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 0c63a75b845e4f7d01107d852e4c2485c51a50aaaa94fc61995e71bbee983a2ac3713831264adb47fb6bd1e058d5f004
︙︙

Modified tests/test_vectors/Hash/SHA3_512LongMsg.test from [3f873b49ae] to [9df6f986a6]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_512LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}]


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} \
	-match exact -result e5825ff1a3c070d5a52fbbe711854a440554295ffb7a7969a17908d10163bfbe8f1d52a676e8a0137b56a11cdf0ffbb456bc899fc727d14bd8882232549d914e



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result e5825ff1a3c070d5a52fbbe711854a440554295ffb7a7969a17908d10163bfbe8f1d52a676e8a0137b56a11cdf0ffbb456bc899fc727d14bd8882232549d914e
︙︙

Modified tests/test_vectors/Hash/SHA3_512ShortMsg.test from [364a0e00c9] to [73cf5b5e94]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA3_512ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}]


tcltest::test Hash_SHA3-512-2.1 {SHA3_512ShortMsg} \
	-constraints SHA3_512 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA3-512 -data $data} \
	-match exact -result a69f73cca23a9ac5c8b567dc185a756e97c982164fe25859e0d1dcc1475c80a615b2123af1f5f94c11e3e9402c3ac558f500199d95b6d3e301758586281dcd26



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result a69f73cca23a9ac5c8b567dc185a756e97c982164fe25859e0d1dcc1475c80a615b2123af1f5f94c11e3e9402c3ac558f500199d95b6d3e301758586281dcd26
︙︙

Modified tests/test_vectors/Hash/SHA512-224.test from [d9c580556e] to [8ff47a0a0e]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512-224.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}]


tcltest::test Hash_SHA512-224-1.1 {SHA512-224} \
	-constraints SHA512_224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512-224 -data $data} \
	-match exact -result 6ed0dd02806fa89e25de060c19d3ac86cabb87d6a0ddd05c333b84f4



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 6ed0dd02806fa89e25de060c19d3ac86cabb87d6a0ddd05c333b84f4
︙︙

Modified tests/test_vectors/Hash/SHA512-256.test from [02704532c4] to [87ec5e51fc]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512-256.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}]


tcltest::test Hash_SHA512-256-1.1 {SHA512-256} \
	-constraints SHA512_256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512-256 -data $data} \
	-match exact -result c672b8d1ef56ed28ab87c3622c5114069bdd3ad7b8f9737498d0c01ecef0967a



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result c672b8d1ef56ed28ab87c3622c5114069bdd3ad7b8f9737498d0c01ecef0967a
︙︙

Modified tests/test_vectors/Hash/SHA512.test from [1888d3a9e6] to [26e7224bc7]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512.txt"

package require tls
package require tcltest

tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}]


tcltest::test Hash_SHA512-1.1 {SHA512} \
	-constraints SHA512 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512 -data $data} \
	-match exact -result cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e
︙︙

Modified tests/test_vectors/Hash/SHA512LongMsg.test from [624105ec59] to [cbaa50c9b9]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}]


tcltest::test Hash_SHA512-3.1 {SHA512LongMsg} \
	-constraints SHA512 \
	-setup {set data [binary decode hex 4f05600950664d5190a2ebc29c9edb89c20079a4d3e6bc3b27d75e34e2fa3d02768502bd69790078598d5fcf3d6779bfed1284bbe5ad72fb456015181d9587d6e864c940564eaafb4f2fead4346ea09b6877d9340f6b82eb1515880872213da3ad88feba9f4f13817a71d6f90a1a17c43a15c038d988b5b29edffe2d6a062813cedbe852cde302b3e33b696846d2a8e36bd680efcc6cd3f9e9a4c1ae8cac10cc5244d131677140399176ed46700019a004a163806f7fa467fc4e17b4617bbd7641aaff7ff56396ba8c08a8be100b33a20b5daf134a2aefa5e1c3496770dcf6baa4f7bb]} \
	-body {tls::digest -digest SHA512 -data $data} \
	-match exact -result a9db490c708cc72548d78635aa7da79bb253f945d710e5cb677a474efc7c65a2aab45bc7ca1113c8ce0f3c32e1399de9c459535e8816521ab714b2a6cd200525



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result a9db490c708cc72548d78635aa7da79bb253f945d710e5cb677a474efc7c65a2aab45bc7ca1113c8ce0f3c32e1399de9c459535e8816521ab714b2a6cd200525
︙︙

Modified tests/test_vectors/Hash/SHA512ShortMsg.test from [0e3b80ebaf] to [3059eaebf0]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512 [expr {[lsearch -nocase [tls::digests] SHA512] > -1}]


tcltest::test Hash_SHA512-2.1 {SHA512ShortMsg} \
	-constraints SHA512 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512 -data $data} \
	-match exact -result cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e
︙︙

Modified tests/test_vectors/Hash/SHA512_224LongMsg.test from [172b15b0f6] to [604ca506ef]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512_224LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}]


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} \
	-match exact -result 72640a79fbb1cfb26e09b4b35385389ed633a55e092906d01a7186e1



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 72640a79fbb1cfb26e09b4b35385389ed633a55e092906d01a7186e1
︙︙

Modified tests/test_vectors/Hash/SHA512_224ShortMsg.test from [8d641d96bf] to [e55e8f47d1]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512_224ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512_224 [expr {[lsearch -nocase [tls::digests] SHA512-224] > -1}]


tcltest::test Hash_SHA512-224-2.1 {SHA512_224ShortMsg} \
	-constraints SHA512_224 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512-224 -data $data} \
	-match exact -result 6ed0dd02806fa89e25de060c19d3ac86cabb87d6a0ddd05c333b84f4



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 6ed0dd02806fa89e25de060c19d3ac86cabb87d6a0ddd05c333b84f4
︙︙

Modified tests/test_vectors/Hash/SHA512_256LongMsg.test from [2cd108e888] to [c707997f0b]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512_256LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}]


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} \
	-match exact -result 00ce3b592d4e1a65f780df351fa7b2c01b49df4ea913c3fab24297f5791b18e5



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 00ce3b592d4e1a65f780df351fa7b2c01b49df4ea913c3fab24297f5791b18e5
︙︙

Modified tests/test_vectors/Hash/SHA512_256ShortMsg.test from [74c616e36d] to [415d0b45a5]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHA512_256ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHA512_256 [expr {[lsearch -nocase [tls::digests] SHA512-256] > -1}]


tcltest::test Hash_SHA512-256-2.1 {SHA512_256ShortMsg} \
	-constraints SHA512_256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHA512-256 -data $data} \
	-match exact -result c672b8d1ef56ed28ab87c3622c5114069bdd3ad7b8f9737498d0c01ecef0967a



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result c672b8d1ef56ed28ab87c3622c5114069bdd3ad7b8f9737498d0c01ecef0967a
︙︙

Modified tests/test_vectors/Hash/SHAKE128.test from [358b30bc0f] to [4b0878e01e]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHAKE128.txt"

package require tls
package require tcltest

tcltest::testConstraint SHAKE128 [expr {[lsearch -nocase [tls::digests] SHAKE128] > -1}]


tcltest::test Hash_SHAKE128-1.1 {SHAKE128} \
	-constraints SHAKE128 \
	-setup {set data ""} \
	-body {tls::digest -digest SHAKE128 -data $data} \
	-match exact -result 7f9c2ba4e88f827d616045507605853ed73b8093f6efbc88eb1a6eacfa66ef26



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 7f9c2ba4e88f827d616045507605853ed73b8093f6efbc88eb1a6eacfa66ef26
︙︙

Modified tests/test_vectors/Hash/SHAKE128LongMsg.test from [d00d2eae4f] to [44fabe5596].

cannot compute difference between binary files

Modified tests/test_vectors/Hash/SHAKE128ShortMsg.test from [28b762cb6c] to [226145f845]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHAKE128ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHAKE128 [expr {[lsearch -nocase [tls::digests] SHAKE128] > -1}]


tcltest::test Hash_SHAKE128-2.1 {SHAKE128ShortMsg} \
	-constraints SHAKE128 \
	-setup {set data ""} \
	-body {tls::digest -digest SHAKE128 -data $data} \
	-match exact -result 7f9c2ba4e88f827d616045507605853e



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 7f9c2ba4e88f827d616045507605853e
︙︙

Modified tests/test_vectors/Hash/SHAKE256.test from [0cd1f0de19] to [2e2114455d]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHAKE256.txt"

package require tls
package require tcltest

tcltest::testConstraint SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}]


tcltest::test Hash_SHAKE256-1.1 {SHAKE256} \
	-constraints SHAKE256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHAKE256 -data $data} \
	-match exact -result 46b9dd2b0ba88d13233b3feb743eeb243fcd52ea62b81b82b50c27646ed5762fd75dc4ddd8c0f200cb05019d67b592f6fc821c49479ab48640292eacb3b7c4be



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 46b9dd2b0ba88d13233b3feb743eeb243fcd52ea62b81b82b50c27646ed5762fd75dc4ddd8c0f200cb05019d67b592f6fc821c49479ab48640292eacb3b7c4be
︙︙

Modified tests/test_vectors/Hash/SHAKE256LongMsg.test from [42d4bd0d09] to [2df811874e]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHAKE256LongMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}]


tcltest::test Hash_SHAKE256-3.1 {SHAKE256LongMsg} \
	-constraints SHAKE256 \
	-setup {set data [binary decode hex dc5a100fa16df1583c79722a0d72833d3bf22c109b8889dbd35213c6bfce205813edae3242695cfd9f59b9a1c203c1b72ef1a5423147cb990b5316a85266675894e2644c3f9578cebe451a09e58c53788fe77a9e850943f8a275f830354b0593a762bac55e984db3e0661eca3cb83f67a6fb348e6177f7dee2df40c4322602f094953905681be3954fe44c4c902c8f6bba565a788b38f13411ba76ce0f9f6756a2a2687424c5435a51e62df7a8934b6e141f74c6ccf539e3782d22b5955d3baf1ab2cf7b5c3f74ec2f9447344e937957fd7f0bdfec56d5d25f61cde18c0986e244ecf780d6307e313117256948d4230ebb9ea62bb302cfe80d7dfebabc4a51d7687967ed5b416a139e974c005fff507a96]} \
	-body {tls::digest -digest SHAKE256 -data $data} \
	-match exact -result 2bac5716803a9cda8f9e84365ab0a681327b5ba34fdedfb1c12e6e807f45284b



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 2bac5716803a9cda8f9e84365ab0a681327b5ba34fdedfb1c12e6e807f45284b
︙︙

Modified tests/test_vectors/Hash/SHAKE256ShortMsg.test from [cf85a2a49f] to [2229c179b0]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SHAKE256ShortMsg.rsp"

package require tls
package require tcltest

tcltest::testConstraint SHAKE256 [expr {[lsearch -nocase [tls::digests] SHAKE256] > -1}]


tcltest::test Hash_SHAKE256-2.1 {SHAKE256ShortMsg} \
	-constraints SHAKE256 \
	-setup {set data ""} \
	-body {tls::digest -digest SHAKE256 -data $data} \
	-match exact -result 46b9dd2b0ba88d13233b3feb743eeb243fcd52ea62b81b82b50c27646ed5762f



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 46b9dd2b0ba88d13233b3feb743eeb243fcd52ea62b81b82b50c27646ed5762f
︙︙

Modified tests/test_vectors/Hash/SM3.test from [7ee5f4974a] to [c919bfff86]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "SM3.txt"

package require tls
package require tcltest

tcltest::testConstraint SM3 [expr {[lsearch -nocase [tls::digests] SM3] > -1}]


tcltest::test Hash_SM3-1.1 {SM3} \
	-constraints SM3 \
	-setup {set data ""} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result 1ab21d8355cfa17f8e61194831e81a8f22bec8c728fefb747ed035eb5082aa2b



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 1ab21d8355cfa17f8e61194831e81a8f22bec8c728fefb747ed035eb5082aa2b
︙︙

Modified tests/test_vectors/Hash/WHIRLPOOL.test from [922707888e] to [085626bf56]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "WHIRLPOOL.txt"

package require tls
package require tcltest

tcltest::testConstraint WHIRLPOOL [expr {[lsearch -nocase [tls::digests] WHIRLPOOL] > -1}]


tcltest::test Hash_WHIRLPOOL-1.1 {WHIRLPOOL} \
	-constraints WHIRLPOOL \
	-setup {set data ""} \
	-body {tls::digest -digest WHIRLPOOL -data $data} \
	-match exact -result 19fa61d75522a4669b44e39c1d2e1726c530232130d407f89afee0964997f7a73e83be698b288febcf88e3e03c4f0757ea8964e59b63d93708b138cc42a66eb3



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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} \
	-match exact -result 19fa61d75522a4669b44e39c1d2e1726c530232130d407f89afee0964997f7a73e83be698b288febcf88e3e03c4f0757ea8964e59b63d93708b138cc42a66eb3
︙︙

Modified tests/test_vectors/Hash/make_test.tcl from [dae86e37f5] to [e263a6e534].

︙︙
77
78
79
80
81
82
83

84
85
86
87

88
89
90
91
92
93
94


    # Get digest
    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 "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 ""

    # Process file
    while {![eof $ch]} {
	gets $ch line
	set line [string trim $line]
	set len [string length $line]








>




>








77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96


    # Get digest
    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
	set line [string trim $line]
	set len [string length $line]
︙︙

Modified tests/test_vectors/KDF/HKDF-SHA1.test from [58a3106b11] to [0f24bd78b2]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HKDF-SHA1.txt"

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}]


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]} \
	-match exact -result 085a01ea1b10f36933068b56efa5ad81a4f14b822f5b091568a9cdd4f155fda2c22e422478d305f3f896



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 085a01ea1b10f36933068b56efa5ad81a4f14b822f5b091568a9cdd4f155fda2c22e422478d305f3f896
︙︙

Modified tests/test_vectors/KDF/HKDF-SHA224.test from [a35e08ae37] to [dab2af44bf]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HKDF-SHA224.txt"

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}]


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]} \
	-match exact -result 2f21cd7cbc818ca5c561b933728e2e08e154a87e1432399a820dee13aa222d0cee6152fa539ab70f8e80



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 2f21cd7cbc818ca5c561b933728e2e08e154a87e1432399a820dee13aa222d0cee6152fa539ab70f8e80
︙︙

Modified tests/test_vectors/KDF/HKDF-SHA256.test from [3fa42bc239] to [252b5b0c05]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HKDF-SHA256.txt"

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}]


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]} \
	-match exact -result 3cb25f25faacd57a90434f64d0362f2a2d2d0a90cf1a5a4c5db02d56ecc4c5bf34007208d5b887185865



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 3cb25f25faacd57a90434f64d0362f2a2d2d0a90cf1a5a4c5db02d56ecc4c5bf34007208d5b887185865
︙︙

Modified tests/test_vectors/KDF/HKDF-SHA384.test from [6b50020add] to [49565c7872]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HKDF-SHA384.txt"

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}]


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]} \
	-match exact -result 9b5097a86038b805309076a44b3a9f38063e25b516dcbf369f394cfab43685f748b6457763e4f0204fc5



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 9b5097a86038b805309076a44b3a9f38063e25b516dcbf369f394cfab43685f748b6457763e4f0204fc5
︙︙

Modified tests/test_vectors/KDF/HKDF-SHA512.test from [d9f36ba84c] to [5ccc31e9c4]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HKDF-SHA512.txt"

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}]


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]} \
	-match exact -result 832390086cda71fb47625bb5ceb168e4c8e26a1a16ed34d9fc7fe92c1481579338da362cb8d9f925d7cb



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 832390086cda71fb47625bb5ceb168e4c8e26a1a16ed34d9fc7fe92c1481579338da362cb8d9f925d7cb
︙︙

Modified tests/test_vectors/KDF/PBKDF2-SHA1.test from [629c4d4319] to [b929ed5d95]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "PBKDF2-SHA1.txt"

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}]


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]} \
	-match exact -result 0c60c80f961f0e71f3a9b524af6012062fe037a6



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 0c60c80f961f0e71f3a9b524af6012062fe037a6
︙︙

Modified tests/test_vectors/KDF/PBKDF2-SHA224.test from [fe10f4af17] to [d25ac1a05b]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "PBKDF2-SHA224.txt"

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}]


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]} \
	-match exact -result 3c198cbdb9464b7857966bd05b7bc92bc1cc4e6e



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 3c198cbdb9464b7857966bd05b7bc92bc1cc4e6e
︙︙

Modified tests/test_vectors/KDF/PBKDF2-SHA256.test from [cc7be086d5] to [34e71146bc]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "PBKDF2-SHA256.txt"

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}]


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]} \
	-match exact -result 120fb6cffcf8b32c43e7225256c4f837a86548c9



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 120fb6cffcf8b32c43e7225256c4f837a86548c9
︙︙

Modified tests/test_vectors/KDF/PBKDF2-SHA384.test from [870e72f47c] to [4b8ba99f25]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "PBKDF2-SHA384.txt"

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}]


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]} \
	-match exact -result c0e14f06e49e32d73f9f52ddf1d0c5c719160923



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result c0e14f06e49e32d73f9f52ddf1d0c5c719160923
︙︙

Modified tests/test_vectors/KDF/PBKDF2-SHA512.test from [4a00a74de4] to [f8af04f1ce]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "PBKDF2-SHA512.txt"

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}]


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]} \
	-match exact -result 867f70cf1ade02cff3752599a3a53dc4af34c7a6



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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]} \
	-match exact -result 867f70cf1ade02cff3752599a3a53dc4af34c7a6
︙︙

Modified tests/test_vectors/KDF/Scrypt.test from [f179668ce8] to [d620205d39]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "Scrypt.txt"

package require tls
package require tcltest

tcltest::testConstraint Scrypt [expr {[lsearch -nocase [tls::kdfs] Scrypt] > -1}]


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]} \
	-match exact -result 77d6576238657b203b19ca42c18a0497f16b4844e3074ae8dfdffa3fede21442fcd0069ded0948f8326a753a0fc81f17e8d3e0fb2e0d3628cf35e20c38d18906



>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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]} \
	-match exact -result 77d6576238657b203b19ca42c18a0497f16b4844e3074ae8dfdffa3fede21442fcd0069ded0948f8326a753a0fc81f17e8d3e0fb2e0d3628cf35e20c38d18906
︙︙

Modified tests/test_vectors/KDF/make_test.tcl from [260d7b3ffd] to [81cc8928e5].

︙︙
82
83
84
85
86
87
88

89
90
91
92
93
94
95
96

97
98
99
100
101
102
103


    # Get digest
    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 "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 ""

    # Process file
    while {![eof $ch]} {
	gets $ch line
	set line [string trim $line]
	set len [string length $line]








>








>








82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105


    # Get digest
    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
	set line [string trim $line]
	set len [string length $line]
︙︙

Modified tests/test_vectors/MAC/CMAC-AES-128-CBC.test from [3a9c3f08a3] to [d14d6c41f8]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "CMAC-AES-128-CBC.txt"

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}]


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} \
	-match exact -result bb1d6929e95937287fa37d129b756746



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result bb1d6929e95937287fa37d129b756746
︙︙

Modified tests/test_vectors/MAC/CMAC-AES-192-CBC.test from [a24d68ab1b] to [c76103756c]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "CMAC-AES-192-CBC.txt"

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}]


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} \
	-match exact -result d17ddf46adaacde531cac483de7a9367



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result d17ddf46adaacde531cac483de7a9367
︙︙

Modified tests/test_vectors/MAC/CMAC-AES-256-CBC.test from [636f80d051] to [6e63940e52]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "CMAC-AES-256-CBC.txt"

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}]


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} \
	-match exact -result 028962f61b7bf89efc6b551f4667d983



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result 028962f61b7bf89efc6b551f4667d983
︙︙

Modified tests/test_vectors/MAC/CMAC-DES3.test from [341b1fef8a] to [b9e7e07b9a]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "CMAC-DES3.txt"

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}]


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} \
	-match exact -result b7a688e122ffaf95



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result b7a688e122ffaf95
︙︙

Modified tests/test_vectors/MAC/HMAC.test from [3f775f13fb] to [c9b77bcdaf]. 

1

2
3
4
5

6
7
8
9
10
11
12

# Auto generated from "HMAC.rsp"

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}]
tcltest::test MAC_HMAC-1.1 {HMAC} \
	-constraints {HMAC SHA1 } \
	-setup {} \
	-body {string range [tls::hmac -hex -digest SHA1 -key [binary decode hex 82f3b69a1bff4de15c33] -data [binary decode hex fcd6d98bef45ed6850806e96f255fa0c8114b72873abe8f43c10bea7c1df706f10458e6d4e1c9201f057b8492fa10fe4b541d0fc9d41ef839acff1bc76e3fdfebf2235b5bd0347a9a6303e83152f9f8db941b1b94a8a1ce5c273b55dc94d99a171377969234134e7dad1ab4c8e46d18df4dc016764cf95a11ac4b491a2646be1]] 0 19} \
	-match exact -result 1ba0e66cf72efc349207


>




>








1
2
3
4
5
6
7
8
9
10
11
12
13
14

# 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 {} \
	-body {string range [tls::hmac -hex -digest SHA1 -key [binary decode hex 82f3b69a1bff4de15c33] -data [binary decode hex fcd6d98bef45ed6850806e96f255fa0c8114b72873abe8f43c10bea7c1df706f10458e6d4e1c9201f057b8492fa10fe4b541d0fc9d41ef839acff1bc76e3fdfebf2235b5bd0347a9a6303e83152f9f8db941b1b94a8a1ce5c273b55dc94d99a171377969234134e7dad1ab4c8e46d18df4dc016764cf95a11ac4b491a2646be1]] 0 19} \
	-match exact -result 1ba0e66cf72efc349207
︙︙

Modified tests/test_vectors/MAC/HMAC_MD5.test from [bda682a8ec] to [fc01310160]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_MD5.txt"

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}]


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} \
	-match exact -result 9294727a3638bb1c13f48ef8158bfc9d



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result 9294727a3638bb1c13f48ef8158bfc9d
︙︙

Modified tests/test_vectors/MAC/HMAC_RIPEMD128.test from [d9301fcecf] to [9121025e8e]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_RIPEMD128.txt"

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}]


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} \
	-match exact -result fbf61f9492aa4bbf81c172e84e0734db



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result fbf61f9492aa4bbf81c172e84e0734db
︙︙

Modified tests/test_vectors/MAC/HMAC_RIPEMD160.test from [a79db16564] to [35aae3b57b]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_RIPEMD160.txt"

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}]


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} \
	-match exact -result 24cb4bd67d20fc1a5d2ed7732dcc39377f0a5668



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result 24cb4bd67d20fc1a5d2ed7732dcc39377f0a5668
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA1.test from [3eee92fdc9] to [48dc8e00f7]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA1.txt"

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}]


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} \
	-match exact -result 5fd596ee78d5553c8ff4e72d266dfd192366da29



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result 5fd596ee78d5553c8ff4e72d266dfd192366da29
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA224.test from [42a431f4b0] to [b00e1522a7]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA224.txt"

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}]


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} \
	-match exact -result c7405e3ae058e8cd30b08b4140248581ed174cb34e1224bcc1efc81b



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result c7405e3ae058e8cd30b08b4140248581ed174cb34e1224bcc1efc81b
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA256.test from [42297378eb] to [cb978a5d93]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA256.txt"

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}]


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} \
	-match exact -result 8bb9a1db9806f20df7f77b82138c7914d174d59e13dc4d0169c9057b133e1d62



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result 8bb9a1db9806f20df7f77b82138c7914d174d59e13dc4d0169c9057b133e1d62
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA3-224.test from [5684f09a47] to [a320826719]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA3-224.txt"

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}]


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<blocklen"] 0 55} \
	-match exact -result 332cfd59347fdb8e576e77260be4aba2d6dc53117b3bfb52c6d18c04



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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<blocklen"] 0 55} \
	-match exact -result 332cfd59347fdb8e576e77260be4aba2d6dc53117b3bfb52c6d18c04
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA3-256.test from [fc1173d064] to [93592f1dcc]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA3-256.txt"

package require tls
package require tcltest

tcltest::testConstraint HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}]
tcltest::testConstraint SHA3_256 [expr {[lsearch -nocase [tls::digests] SHA3-256] > -1}]


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<blocklen"] 0 63} \
	-match exact -result 4fe8e202c4f058e8dddc23d8c34e467343e23555e24fc2f025d598f558f67205



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Auto generated from "HMAC_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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -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<blocklen"] 0 63} \
	-match exact -result 4fe8e202c4f058e8dddc23d8c34e467343e23555e24fc2f025d598f558f67205
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA3-384.test from [ad0d13b496] to [3b78c7f734]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA3-384.txt"

package require tls
package require tcltest

tcltest::testConstraint HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}]
tcltest::testConstraint SHA3_384 [expr {[lsearch -nocase [tls::digests] SHA3-384] > -1}]


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<blocklen"] 0 95} \
	-match exact -result d588a3c51f3f2d906e8298c1199aa8ff6296218127f6b38a90b6afe2c5617725bc99987f79b22a557b6520db710b7f42



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Auto generated from "HMAC_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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -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<blocklen"] 0 95} \
	-match exact -result d588a3c51f3f2d906e8298c1199aa8ff6296218127f6b38a90b6afe2c5617725bc99987f79b22a557b6520db710b7f42
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA3-512.test from [3e50a3d7da] to [9537fd8299]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA3-512.txt"

package require tls
package require tcltest

tcltest::testConstraint HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}]
tcltest::testConstraint SHA3_512 [expr {[lsearch -nocase [tls::digests] SHA3-512] > -1}]


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<blocklen"] 0 127} \
	-match exact -result 4efd629d6c71bf86162658f29943b1c308ce27cdfa6db0d9c3ce81763f9cbce5f7ebe9868031db1a8f8eb7b6b95e5c5e3f657a8996c86a2f6527e307f0213196



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Auto generated from "HMAC_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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -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<blocklen"] 0 127} \
	-match exact -result 4efd629d6c71bf86162658f29943b1c308ce27cdfa6db0d9c3ce81763f9cbce5f7ebe9868031db1a8f8eb7b6b95e5c5e3f657a8996c86a2f6527e307f0213196
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA384.test from [3a67faccd9] to [97f8b6bb77]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA384.txt"

package require tls
package require tcltest

tcltest::testConstraint HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -1}]
tcltest::testConstraint SHA384 [expr {[lsearch -nocase [tls::digests] SHA384] > -1}]


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} \
	-match exact -result 63c5daa5e651847ca897c95814ab830bededc7d25e83eef9195cd45857a37f448947858f5af50cc2b1b730ddf29671a9



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# Auto generated from "HMAC_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 HMAC [expr {[lsearch -nocase [tls::macs] HMAC] > -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} \
	-match exact -result 63c5daa5e651847ca897c95814ab830bededc7d25e83eef9195cd45857a37f448947858f5af50cc2b1b730ddf29671a9
︙︙

Modified tests/test_vectors/MAC/HMAC_SHA512.test from [4ce64d21bf] to [c035b2c1e6]. 

1

2
3
4
5
6

7
8
9
10
11
12
13

# Auto generated from "HMAC_SHA512.txt"

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}]


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} \
	-match exact -result fc25e240658ca785b7a811a8d3f7b4ca48cfa26a8a366bf2cd1f836b05fcb024bd36853081811d6cea4216ebad79da1cfcb95ea4586b8a0ce356596a55fb1347



>





>








1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

# 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} \
	-match exact -result fc25e240658ca785b7a811a8d3f7b4ca48cfa26a8a366bf2cd1f836b05fcb024bd36853081811d6cea4216ebad79da1cfcb95ea4586b8a0ce356596a55fb1347
︙︙

Modified tests/test_vectors/MAC/make_test.tcl from [6510cbad4a] to [37d1b71b39].

︙︙
112
113
114
115
116
117
118

119
120
121
122
123
124
125
126
127
128
129

130
131
132
133
134
135
136

	set digest ""
	set cipher ""
    }
    set params [list]

    # Add config info
    puts $out [format "# Auto generated from \"%s\"" [file tail $filename]]

    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 ""} {
	puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $cipher] \
	    [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 ""

    # Process file
    while {![eof $ch]} {
	gets $ch line
	set line [string trim $line]
	set len [string length $line]








>











>








112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138

	set digest ""
	set cipher ""
    }
    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 ""} {
	puts $out [format "tcltest::testConstraint %s %s" [string map [list "-" "_"] $cipher] \
	    [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
	set line [string trim $line]
	set len [string length $line]
︙︙

Powered by Fossil · RSS