Artifact
246a2f7cf7819e8c52bb86d0a3b31e174b6d3b4d6a9d208130e89f16fc8897e2:
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64 # Auto generated
0010: 20 66 72 6f 6d 20 22 53 48 41 33 38 34 2e 74 78 from "SHA384.tx
0020: 74 22 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 t".package requi
0030: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
0040: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
0050: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
0060: 73 74 72 61 69 6e 74 20 53 48 41 33 38 34 20 5b straint SHA384 [
0070: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
0080: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67 nocase [tls::dig
0090: 65 73 74 73 5d 20 53 48 41 33 38 34 5d 20 3e 20 ests] SHA384] >
00a0: 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 -1}]..tcltest::t
00b0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d est Hash_SHA384-
00c0: 31 2e 31 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 1.1 {SHA384} \..
00d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
00e0: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 384 \..-setup {s
00f0: 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d et data ""} \..-
0100: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0110: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 t -digest SHA384
0120: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0130: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0140: 65 73 75 6c 74 20 33 38 62 30 36 30 61 37 35 31 esult 38b060a751
0150: 61 63 39 36 33 38 34 63 64 39 33 32 37 65 62 31 ac96384cd9327eb1
0160: 62 31 65 33 36 61 32 31 66 64 62 37 31 31 31 34 b1e36a21fdb71114
0170: 62 65 30 37 34 33 34 63 30 63 63 37 62 66 36 33 be07434c0cc7bf63
0180: 66 36 65 31 64 61 32 37 34 65 64 65 62 66 65 37 f6e1da274edebfe7
0190: 36 66 36 35 66 62 64 35 31 61 64 32 66 31 34 38 6f65fbd51ad2f148
01a0: 39 38 62 39 35 62 0a 0a 74 63 6c 74 65 73 74 3a 98b95b..tcltest:
01b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 :test Hash_SHA38
01c0: 34 2d 31 2e 32 20 7b 53 48 41 33 38 34 7d 20 5c 4-1.2 {SHA384} \
01d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
01e0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 HA384 \..-setup
01f0: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 7d {set data "abc"}
0200: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0210: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0220: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 HA384 -data $dat
0230: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
0240: 63 74 20 2d 72 65 73 75 6c 74 20 63 62 30 30 37 ct -result cb007
0250: 35 33 66 34 35 61 33 35 65 38 62 62 35 61 30 33 53f45a35e8bb5a03
0260: 64 36 39 39 61 63 36 35 30 30 37 32 37 32 63 33 d699ac65007272c3
0270: 32 61 62 30 65 64 65 64 31 36 33 31 61 38 62 36 2ab0eded1631a8b6
0280: 30 35 61 34 33 66 66 35 62 65 64 38 30 38 36 30 05a43ff5bed80860
0290: 37 32 62 61 31 65 37 63 63 32 33 35 38 62 61 65 72ba1e7cc2358bae
02a0: 63 61 31 33 34 63 38 32 35 61 37 0a 0a 74 63 6c ca134c825a7..tcl
02b0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
02c0: 53 48 41 33 38 34 2d 31 2e 33 20 7b 53 48 41 33 SHA384-1.3 {SHA3
02d0: 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 84} \..-constrai
02e0: 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 nts SHA384 \..-s
02f0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0300: 61 62 63 64 62 63 64 65 63 64 65 66 64 65 66 67 abcdbcdecdefdefg
0310: 65 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b efghfghighijhijk
0320: 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f ijkljklmklmnlmno
0330: 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 mnopnopq"} \..-b
0340: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0350: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 -digest SHA384
0360: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0370: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0380: 73 75 6c 74 20 33 33 39 31 66 64 64 64 66 63 38 sult 3391fdddfc8
0390: 64 63 37 33 39 33 37 30 37 61 36 35 62 31 62 34 dc7393707a65b1b4
03a0: 37 30 39 33 39 37 63 66 38 62 31 64 31 36 32 61 709397cf8b1d162a
03b0: 66 30 35 61 62 66 65 38 66 34 35 30 64 65 35 66 f05abfe8f450de5f
03c0: 33 36 62 63 36 62 30 34 35 35 61 38 35 32 30 62 36bc6b0455a8520b
03d0: 63 34 65 36 66 35 66 65 39 35 62 31 66 65 33 63 c4e6f5fe95b1fe3c
03e0: 38 34 35 32 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 8452b..tcltest::
03f0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 test Hash_SHA384
0400: 2d 31 2e 34 20 7b 53 48 41 33 38 34 7d 20 5c 0a -1.4 {SHA384} \.
0410: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0420: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b A384 \..-setup {
0430: 73 65 74 20 64 61 74 61 20 22 61 62 63 64 65 66 set data "abcdef
0440: 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 68 ghbcdefghicdefgh
0450: 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 6a ijdefghijkefghij
0460: 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c klfghijklmghijkl
0470: 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e mnhijklmnoijklmn
0480: 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 opjklmnopqklmnop
0490: 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 72 qrlmnopqrsmnopqr
04a0: 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a 09 stnopqrstu"} \..
04b0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
04c0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 st -digest SHA38
04d0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 4 -data $data} \
04e0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
04f0: 72 65 73 75 6c 74 20 30 39 33 33 30 63 33 33 66 result 09330c33f
0500: 37 31 31 34 37 65 38 33 64 31 39 32 66 63 37 38 71147e83d192fc78
0510: 32 63 64 31 62 34 37 35 33 31 31 31 62 31 37 33 2cd1b4753111b173
0520: 62 33 62 30 35 64 32 32 66 61 30 38 30 38 36 65 b3b05d22fa08086e
0530: 33 62 30 66 37 31 32 66 63 63 37 63 37 31 61 35 3b0f712fcc7c71a5
0540: 35 37 65 32 64 62 39 36 36 63 33 65 39 66 61 39 57e2db966c3e9fa9
0550: 31 37 34 36 30 33 39 0a 0a 74 63 6c 74 65 73 74 1746039..tcltest
0560: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 ::test Hash_SHA3
0570: 38 34 2d 31 2e 35 20 7b 53 48 41 33 38 34 7d 20 84-1.5 {SHA384}
0580: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0590: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 SHA384 \..-setup
05a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 {set data [stri
05b0: 6e 67 20 72 65 70 65 61 74 20 22 61 22 20 31 30 ng repeat "a" 10
05c0: 30 30 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 00000]} \..-body
05d0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
05e0: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 igest SHA384 -da
05f0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0600: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0610: 74 20 39 64 30 65 31 38 30 39 37 31 36 34 37 34 t 9d0e1809716474
0620: 63 62 30 38 36 65 38 33 34 65 33 31 30 61 34 61 cb086e834e310a4a
0630: 31 63 65 64 31 34 39 65 39 63 30 30 66 32 34 38 1ced149e9c00f248
0640: 35 32 37 39 37 32 63 65 63 35 37 30 34 63 32 61 527972cec5704c2a
0650: 35 62 30 37 62 38 62 33 64 63 33 38 65 63 63 34 5b07b8b3dc38ecc4
0660: 65 62 61 65 39 37 64 64 64 38 37 66 33 64 38 39 ebae97ddd87f3d89
0670: 38 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 85..tcltest::tes
0680: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e t Hash_SHA384-1.
0690: 36 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6 {SHA384} \..-c
06a0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 onstraints SHA38
06b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
06c0: 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 data [string re
06d0: 70 65 61 74 20 22 61 62 63 64 65 66 67 68 62 63 peat "abcdefghbc
06e0: 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 65 defghicdefghijde
06f0: 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 fghijkefghijklfg
0700: 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 hijklmghijklmnhi
0710: 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 36 jklmno" 16777216
0720: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
0730: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0740: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
0750: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0760: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 34 34 xact -result 544
0770: 31 32 33 35 63 63 30 32 33 35 33 34 31 65 64 38 1235cc0235341ed8
0780: 30 36 61 36 34 66 62 33 35 34 37 34 32 62 35 65 06a64fb354742b5e
0790: 35 63 30 32 61 33 63 35 63 62 37 31 62 35 66 36 5c02a3c5cb71b5f6
07a0: 33 66 62 37 39 33 34 35 38 64 38 66 64 61 65 35 3fb793458d8fdae5
07b0: 39 39 63 38 63 64 38 38 38 34 39 34 33 63 30 34 99c8cd8884943c04
07c0: 66 31 31 62 33 31 62 38 39 66 30 32 33 0a 0a 74 f11b31b89f023..t
07d0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
07e0: 68 5f 53 48 41 33 38 34 2d 31 2e 37 20 7b 53 48 h_SHA384-1.7 {SH
07f0: 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A384} \..-constr
0800: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 aints SHA384 \..
0810: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0820: 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 ""} \..-body {t
0830: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0840: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 st SHA384 -data
0850: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0860: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 exact -result 3
0870: 38 62 30 36 30 61 37 35 31 61 63 39 36 33 38 34 8b060a751ac96384
0880: 63 64 39 33 32 37 65 62 31 62 31 65 33 36 61 32 cd9327eb1b1e36a2
0890: 31 66 64 62 37 31 31 31 34 62 65 30 37 34 33 34 1fdb71114be07434
08a0: 63 30 63 63 37 62 66 36 33 66 36 65 31 64 61 32 c0cc7bf63f6e1da2
08b0: 37 34 65 64 65 62 66 65 37 36 66 36 35 66 62 64 74edebfe76f65fbd
08c0: 35 31 61 64 32 66 31 34 38 39 38 62 39 35 62 0a 51ad2f14898b95b.
08d0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
08e0: 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 38 20 7b ash_SHA384-1.8 {
08f0: 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA384} \..-cons
0900: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c traints SHA384 \
0910: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0920: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0930: 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 e hex [string re
0940: 70 65 61 74 20 30 30 20 31 31 31 5d 5d 7d 20 5c peat 00 111]]} \
0950: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0960: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0970: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 384 -data $data}
0980: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0990: 20 2d 72 65 73 75 6c 74 20 34 33 35 37 37 30 37 -result 4357707
09a0: 31 32 63 36 31 31 62 65 37 32 39 33 61 36 36 64 12c611be7293a66d
09b0: 64 30 64 63 38 64 31 34 35 30 64 63 37 66 66 37 d0dc8d1450dc7ff7
09c0: 33 33 37 62 66 65 31 31 35 62 66 30 35 38 65 66 337bfe115bf058ef
09d0: 32 65 62 39 62 65 64 30 39 63 65 65 38 35 63 32 2eb9bed09cee85c2
09e0: 36 39 36 33 61 35 62 63 63 30 39 30 35 64 63 32 6963a5bcc0905dc2
09f0: 64 66 37 63 63 36 61 37 36 0a 0a 74 63 6c 74 65 df7cc6a76..tclte
0a00: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0a10: 41 33 38 34 2d 31 2e 39 20 7b 53 48 41 33 38 34 A384-1.9 {SHA384
0a20: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0a30: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 s SHA384 \..-set
0a40: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 up {set data [bi
0a50: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
0a60: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 [string repeat 0
0a70: 30 20 31 31 32 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 0 112]]} \..-bod
0a80: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0a90: 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 digest SHA384 -d
0aa0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0ab0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0ac0: 6c 74 20 33 65 30 63 62 66 33 61 65 65 30 65 33 lt 3e0cbf3aee0e3
0ad0: 61 61 37 30 34 31 35 62 65 61 65 31 62 64 31 32 aa70415beae1bd12
0ae0: 64 64 37 64 62 38 32 31 65 66 61 34 34 36 34 34 dd7db821efa44644
0af0: 30 66 31 32 31 33 32 65 64 66 66 63 65 37 36 66 0f12132edffce76f
0b00: 36 33 35 65 35 33 35 32 36 61 31 31 31 34 39 31 635e53526a111491
0b10: 65 37 35 65 65 38 65 32 37 62 39 37 30 30 65 65 e75ee8e27b9700ee
0b20: 63 32 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 c20..tcltest::te
0b30: 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 st Hash_SHA384-1
0b40: 2e 31 30 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 .10 {SHA384} \..
0b50: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0b60: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 384 \..-setup {s
0b70: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 et data [binary
0b80: 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 decode hex [stri
0b90: 6e 67 20 72 65 70 65 61 74 20 30 30 20 31 31 33 ng repeat 00 113
0ba0: 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c ]]} \..-body {tl
0bb0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0bc0: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 t SHA384 -data $
0bd0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0be0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 62 exact -result 6b
0bf0: 65 39 61 66 32 63 66 33 63 64 35 64 64 31 32 63 e9af2cf3cd5dd12c
0c00: 38 64 39 33 39 39 65 63 32 62 33 34 65 36 36 30 8d9399ec2b34e660
0c10: 33 34 66 62 64 36 39 39 64 34 65 30 32 32 31 64 34fbd699d4e0221d
0c20: 33 39 30 37 34 31 37 32 61 33 38 30 36 35 36 30 39074172a3806560
0c30: 38 39 63 61 61 66 65 38 66 33 39 39 36 33 66 39 89caafe8f39963f9
0c40: 34 63 63 37 63 30 61 30 37 65 33 64 32 31 0a 0a 4cc7c0a07e3d21..
0c50: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0c60: 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 31 20 7b sh_SHA384-1.11 {
0c70: 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA384} \..-cons
0c80: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c traints SHA384 \
0c90: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0ca0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0cb0: 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 e hex [string re
0cc0: 70 65 61 74 20 30 30 20 31 32 32 5d 5d 7d 20 5c peat 00 122]]} \
0cd0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0ce0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0cf0: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 384 -data $data}
0d00: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0d10: 20 2d 72 65 73 75 6c 74 20 31 32 61 37 32 61 65 -result 12a72ae
0d20: 34 39 37 32 37 37 36 62 30 64 62 37 64 37 33 64 4972776b0db7d73d
0d30: 31 36 30 61 31 35 65 66 30 64 31 39 36 34 35 65 160a15ef0d19645e
0d40: 63 39 36 63 37 66 38 31 36 34 31 31 61 62 37 38 c96c7f816411ab78
0d50: 30 63 37 39 34 61 61 34 39 36 61 32 32 39 30 39 0c794aa496a22909
0d60: 64 39 34 31 66 65 36 37 31 65 64 33 66 33 63 61 d941fe671ed3f3ca
0d70: 65 65 39 30 30 62 64 64 35 0a 0a 74 63 6c 74 65 ee900bdd5..tclte
0d80: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0d90: 41 33 38 34 2d 31 2e 31 32 20 7b 53 48 41 33 38 A384-1.12 {SHA38
0da0: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0db0: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 ts SHA384 \..-se
0dc0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
0dd0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0de0: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0df0: 30 30 20 31 30 30 30 5d 5d 7d 20 5c 0a 09 2d 62 00 1000]]} \..-b
0e00: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0e10: 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 -digest SHA384
0e20: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0e30: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0e40: 73 75 6c 74 20 61 61 65 30 31 37 64 34 61 65 35 sult aae017d4ae5
0e50: 62 36 33 34 36 64 64 36 30 61 31 39 64 35 32 31 b6346dd60a19d521
0e60: 33 30 66 62 35 35 31 39 34 62 36 33 32 37 64 64 30fb55194b6327dd
0e70: 34 30 62 38 39 63 31 31 65 66 63 38 32 32 32 32 40b89c11efc82222
0e80: 39 32 64 65 38 31 65 31 61 32 33 63 39 62 35 39 92de81e1a23c9b59
0e90: 66 39 66 35 38 62 37 66 36 61 64 34 36 33 66 61 f9f58b7f6ad463fa
0ea0: 31 30 38 63 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 108ca..tcltest::
0eb0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 test Hash_SHA384
0ec0: 2d 31 2e 31 33 20 7b 53 48 41 33 38 34 7d 20 5c -1.13 {SHA384} \
0ed0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0ee0: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 HA384 \..-setup
0ef0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 {set data [binar
0f00: 79 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 y decode hex [st
0f10: 72 69 6e 67 20 72 65 70 65 61 74 20 34 31 20 31 ring repeat 41 1
0f20: 30 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 000]]} \..-body
0f30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0f40: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 gest SHA384 -dat
0f50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0f60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0f70: 20 37 64 66 30 31 31 34 38 36 37 37 62 37 66 31 7df01148677b7f1
0f80: 38 36 31 37 65 65 65 33 61 32 33 31 30 34 66 30 8617eee3a23104f0
0f90: 65 65 64 36 62 62 38 63 39 30 61 36 30 34 36 66 eed6bb8c90a6046f
0fa0: 37 31 35 63 39 34 34 35 66 66 34 33 63 33 30 64 715c9445ff43c30d
0fb0: 36 39 65 39 65 37 30 38 32 64 65 33 39 63 33 34 69e9e7082de39c34
0fc0: 35 32 66 64 31 64 33 61 66 64 39 62 61 30 36 38 52fd1d3afd9ba068
0fd0: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 9..tcltest::test
0fe0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 Hash_SHA384-1.1
0ff0: 34 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 4 {SHA384} \..-c
1000: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 onstraints SHA38
1010: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
1020: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 data [binary de
1030: 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 6e 67 code hex [string
1040: 20 72 65 70 65 61 74 20 35 35 20 31 30 30 35 5d repeat 55 1005]
1050: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
1060: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
1070: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
1080: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
1090: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 62 62 xact -result 1bb
10a0: 38 65 32 35 36 64 61 34 61 30 64 31 65 38 37 34 8e256da4a0d1e874
10b0: 35 33 35 32 38 32 35 34 66 32 32 33 62 34 63 62 53528254f223b4cb
10c0: 37 65 34 39 63 34 34 32 30 64 62 66 61 37 36 36 7e49c4420dbfa766
10d0: 62 62 61 34 61 64 62 61 34 34 65 65 63 61 33 39 bba4adba44eeca39
10e0: 32 66 66 36 61 39 66 35 36 35 62 63 33 34 37 31 2ff6a9f565bc3471
10f0: 35 38 63 63 39 37 30 63 65 34 34 65 63 0a 0a 74 58cc970ce44ec..t
1100: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
1110: 68 5f 53 48 41 33 38 34 2d 31 2e 31 35 20 7b 53 h_SHA384-1.15 {S
1120: 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA384} \..-const
1130: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a raints SHA384 \.
1140: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
1150: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
1160: 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 hex [string rep
1170: 65 61 74 20 30 30 20 31 30 30 30 30 30 30 5d 5d eat 00 1000000]]
1180: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
1190: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
11a0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 SHA384 -data $da
11b0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
11c0: 61 63 74 20 2d 72 65 73 75 6c 74 20 38 61 31 39 act -result 8a19
11d0: 37 39 66 39 30 34 39 62 33 66 66 66 31 35 65 61 79f9049b3fff15ea
11e0: 33 61 34 33 61 34 63 66 38 34 63 36 33 34 66 64 3a43a4cf84c634fd
11f0: 31 34 61 63 61 64 31 63 33 33 33 66 65 63 62 37 14acad1c333fecb7
1200: 32 63 35 38 38 62 36 38 38 36 38 62 36 36 61 39 2c588b68868b66a9
1210: 39 34 33 38 36 64 63 30 63 64 31 36 38 37 62 39 94386dc0cd1687b9
1220: 65 65 32 65 33 34 39 38 33 62 38 31 0a 0a 74 63 ee2e34983b81..tc
1230: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
1240: 5f 53 48 41 33 38 34 2d 31 2e 31 36 20 7b 53 48 _SHA384-1.16 {SH
1250: 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A384} \..-constr
1260: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 aints SHA384 \..
1270: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
1280: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
1290: 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 65 hex [string repe
12a0: 61 74 20 35 61 20 35 33 36 38 37 30 39 31 32 5d at 5a 536870912]
12b0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
12c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
12d0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
12e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
12f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 38 61 xact -result 18a
1300: 64 65 64 32 32 37 63 63 36 62 35 36 32 63 63 37 ded227cc6b562cc7
1310: 66 62 32 35 39 65 38 66 34 30 34 35 34 39 65 35 fb259e8f404549e5
1320: 32 39 31 34 35 33 31 61 61 31 63 35 64 38 35 31 2914531aa1c5d851
1330: 36 37 38 39 37 63 37 37 39 63 63 34 62 32 35 64 67897c779cc4b25d
1340: 30 34 32 35 66 64 31 35 39 30 65 34 30 62 64 37 0425fd1590e40bd7
1350: 36 33 65 63 33 66 34 33 31 31 63 31 61 0a 0a 74 63ec3f4311c1a..t
1360: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
1370: 68 5f 53 48 41 33 38 34 2d 31 2e 31 37 20 7b 53 h_SHA384-1.17 {S
1380: 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA384} \..-const
1390: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a raints SHA384 \.
13a0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
13b0: 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f a "The quick bro
13c0: 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 wn fox jumps ove
13d0: 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d r the lazy dog"}
13e0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
13f0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
1400: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 HA384 -data $dat
1410: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
1420: 63 74 20 2d 72 65 73 75 6c 74 20 63 61 37 33 37 ct -result ca737
1430: 66 31 30 31 34 61 34 38 66 34 63 30 62 36 64 64 f1014a48f4c0b6dd
1440: 34 33 63 62 31 37 37 62 30 61 66 64 39 65 35 31 43cb177b0afd9e51
1450: 36 39 33 36 37 35 34 34 63 34 39 34 30 31 31 65 69367544c494011e
1460: 33 33 31 37 64 62 66 39 61 35 30 39 63 62 31 65 3317dbf9a509cb1e
1470: 35 64 63 31 65 38 35 61 39 34 31 62 62 65 65 33 5dc1e85a941bbee3
1480: 64 37 66 32 61 66 62 63 39 62 31 0a 0a 74 63 6c d7f2afbc9b1..tcl
1490: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
14a0: 53 48 41 33 38 34 2d 31 2e 31 38 20 7b 53 48 41 SHA384-1.18 {SHA
14b0: 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 384} \..-constra
14c0: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d ints SHA384 \..-
14d0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
14e0: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 "abc"} \..-body
14f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
1500: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 gest SHA384 -dat
1510: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
1520: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
1530: 20 63 62 30 30 37 35 33 66 34 35 61 33 35 65 38 cb00753f45a35e8
1540: 62 62 35 61 30 33 64 36 39 39 61 63 36 35 30 30 bb5a03d699ac6500
1550: 37 32 37 32 63 33 32 61 62 30 65 64 65 64 31 36 7272c32ab0eded16
1560: 33 31 61 38 62 36 30 35 61 34 33 66 66 35 62 65 31a8b605a43ff5be
1570: 64 38 30 38 36 30 37 32 62 61 31 65 37 63 63 32 d8086072ba1e7cc2
1580: 33 35 38 62 61 65 63 61 31 33 34 63 38 32 35 61 358baeca134c825a
1590: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 7..tcltest::test
15a0: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 Hash_SHA384-1.1
15b0: 39 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 9 {SHA384} \..-c
15c0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 onstraints SHA38
15d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
15e0: 20 64 61 74 61 20 22 61 62 63 64 65 66 67 68 62 data "abcdefghb
15f0: 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 cdefghicdefghijd
1600: 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 efghijkefghijklf
1610: 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 ghijklmghijklmnh
1620: 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e 6f 70 6a ijklmnoijklmnopj
1630: 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 71 72 6c klmnopqklmnopqrl
1640: 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 72 73 74 6e mnopqrsmnopqrstn
1650: 6f 70 71 72 73 74 75 22 7d 20 5c 0a 09 2d 62 6f opqrstu"} \..-bo
1660: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
1670: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d -digest SHA384 -
1680: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
1690: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
16a0: 75 6c 74 20 30 39 33 33 30 63 33 33 66 37 31 31 ult 09330c33f711
16b0: 34 37 65 38 33 64 31 39 32 66 63 37 38 32 63 64 47e83d192fc782cd
16c0: 31 62 34 37 35 33 31 31 31 62 31 37 33 62 33 62 1b4753111b173b3b
16d0: 30 35 64 32 32 66 61 30 38 30 38 36 65 33 62 30 05d22fa08086e3b0
16e0: 66 37 31 32 66 63 63 37 63 37 31 61 35 35 37 65 f712fcc7c71a557e
16f0: 32 64 62 39 36 36 63 33 65 39 66 61 39 31 37 34 2db966c3e9fa9174
1700: 36 30 33 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 6039..tcltest::t
1710: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d est Hash_SHA384-
1720: 31 2e 32 30 20 7b 53 48 41 33 38 34 7d 20 5c 0a 1.20 {SHA384} \.
1730: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
1740: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b A384 \..-setup {
1750: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
1760: 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 repeat "a" 1000
1770: 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 000]} \..-body {
1780: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
1790: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 est SHA384 -data
17a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
17b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
17c0: 39 64 30 65 31 38 30 39 37 31 36 34 37 34 63 62 9d0e1809716474cb
17d0: 30 38 36 65 38 33 34 65 33 31 30 61 34 61 31 63 086e834e310a4a1c
17e0: 65 64 31 34 39 65 39 63 30 30 66 32 34 38 35 32 ed149e9c00f24852
17f0: 37 39 37 32 63 65 63 35 37 30 34 63 32 61 35 62 7972cec5704c2a5b
1800: 30 37 62 38 62 33 64 63 33 38 65 63 63 34 65 62 07b8b3dc38ecc4eb
1810: 61 65 39 37 64 64 64 38 37 66 33 64 38 39 38 35 ae97ddd87f3d8985
1820: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
1830: 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 32 31 Hash_SHA384-1.21
1840: 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f {SHA384} \..-co
1850: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 nstraints SHA384
1860: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
1870: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 data [string rep
1880: 65 61 74 20 22 30 31 32 33 34 35 36 37 30 31 32 eat "01234567012
1890: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
18a0: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
18b0: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
18c0: 33 34 35 36 37 22 20 31 30 5d 7d 20 5c 0a 09 2d 34567" 10]} \..-
18d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
18e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 t -digest SHA384
18f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
1900: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
1910: 65 73 75 6c 74 20 32 66 63 36 34 61 34 66 35 30 esult 2fc64a4f50
1920: 30 64 64 62 36 38 32 38 66 36 61 33 34 33 30 62 0ddb6828f6a3430b
1930: 38 64 64 37 32 61 33 36 38 65 62 37 66 33 61 38 8dd72a368eb7f3a8
1940: 33 32 32 61 37 30 62 63 38 34 32 37 35 62 39 63 322a70bc84275b9c
1950: 30 62 33 61 62 30 30 64 32 37 61 35 63 63 33 63 0b3ab00d27a5cc3c
1960: 32 64 32 32 34 61 61 36 62 36 31 61 30 64 37 39 2d224aa6b61a0d79
1970: 66 62 34 35 39 36 0a 0a 74 63 6c 74 65 73 74 3a fb4596..tcltest:
1980: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 :test Hash_SHA38
1990: 34 2d 31 2e 32 32 20 7b 53 48 41 33 38 34 7d 20 4-1.22 {SHA384}
19a0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
19b0: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 SHA384 \..-setup
19c0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 {set data [bina
19d0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 39 ry decode hex b9
19e0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
19f0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
1a00: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
1a10: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
1a20: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 63 38 xact -result bc8
1a30: 30 38 39 61 31 39 30 30 37 63 30 62 31 34 31 39 089a19007c0b1419
1a40: 35 66 34 65 63 63 37 34 30 39 34 66 65 63 36 34 5f4ecc74094fec64
1a50: 66 30 31 66 39 30 39 32 39 32 38 32 63 32 66 62 f01f90929282c2fb
1a60: 33 39 32 38 38 31 35 37 38 32 30 38 61 64 34 36 392881578208ad46
1a70: 36 38 32 38 62 31 63 36 63 32 38 33 64 32 37 32 6828b1c6c283d272
1a80: 32 63 66 30 61 64 31 61 62 36 39 33 38 0a 0a 74 2cf0ad1ab6938..t
1a90: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
1aa0: 68 5f 53 48 41 33 38 34 2d 31 2e 32 33 20 7b 53 h_SHA384-1.23 {S
1ab0: 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA384} \..-const
1ac0: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a raints SHA384 \.
1ad0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
1ae0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
1af0: 20 68 65 78 20 61 34 31 63 34 39 37 37 37 39 63 hex a41c497779c
1b00: 30 33 37 35 66 66 31 30 61 37 66 34 65 30 38 35 0375ff10a7f4e085
1b10: 39 31 37 33 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 91739]} \..-body
1b20: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
1b30: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 igest SHA384 -da
1b40: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
1b50: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
1b60: 74 20 63 39 61 36 38 34 34 33 61 30 30 35 38 31 t c9a68443a00581
1b70: 32 32 35 36 62 38 65 63 37 36 62 30 30 35 31 36 2256b8ec76b00516
1b80: 66 30 64 62 62 37 34 66 61 62 32 36 64 36 36 35 f0dbb74fab26d665
1b90: 39 31 33 66 31 39 34 62 36 66 66 62 30 65 39 31 913f194b6ffb0e91
1ba0: 65 61 39 39 36 37 35 36 36 62 35 38 31 30 39 63 ea9967566b58109c
1bb0: 62 63 36 37 35 63 63 32 30 38 65 34 63 38 32 33 bc675cc208e4c823
1bc0: 66 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 f7..tcltest::tes
1bd0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e t Hash_SHA384-1.
1be0: 32 34 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 24 {SHA384} \..-
1bf0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
1c00: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 84 \..-setup {se
1c10: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 t data [binary d
1c20: 65 63 6f 64 65 20 68 65 78 20 33 39 39 36 36 39 ecode hex 399669
1c30: 65 32 38 66 36 62 39 63 36 64 62 63 62 62 36 39 e28f6b9c6dbcbb69
1c40: 31 32 65 63 31 30 66 66 63 66 37 34 37 39 30 33 12ec10ffcf747903
1c50: 34 39 62 37 64 63 38 66 62 65 34 61 38 65 37 62 49b7dc8fbe4a8e7b
1c60: 33 62 35 36 32 31 64 62 30 66 33 65 37 64 63 38 3b5621db0f3e7dc8
1c70: 37 66 38 32 33 32 36 34 62 62 65 34 30 64 31 38 7f823264bbe40d18
1c80: 31 31 63 39 65 61 32 30 36 31 65 31 63 38 34 61 11c9ea2061e1c84a
1c90: 64 31 30 61 32 33 66 61 63 31 37 32 37 65 37 32 d10a23fac1727e72
1ca0: 30 32 66 63 33 66 35 30 34 32 65 36 62 66 35 38 02fc3f5042e6bf58
1cb0: 63 62 61 38 61 32 37 34 36 65 31 66 36 34 66 39 cba8a2746e1f64f9
1cc0: 62 39 65 61 33 35 32 63 37 31 31 35 30 37 30 35 b9ea352c71150705
1cd0: 33 63 66 34 65 35 33 33 39 64 35 32 38 36 35 66 3cf4e5339d52865f
1ce0: 32 35 63 63 32 32 62 35 65 38 37 37 38 34 61 31 25cc22b5e87784a1
1cf0: 32 66 63 39 36 31 64 36 36 63 62 36 65 38 39 35 2fc961d66cb6e895
1d00: 37 33 31 39 39 61 32 63 65 36 35 36 35 63 62 64 73199a2ce6565cbd
1d10: 66 31 33 64 63 61 34 30 33 38 33 32 63 66 63 62 f13dca403832cfcb
1d20: 30 65 38 62 37 32 31 31 65 38 33 61 66 33 32 61 0e8b7211e83af32a
1d30: 31 31 61 63 31 37 39 32 39 66 66 31 63 30 37 33 11ac17929ff1c073
1d40: 61 35 31 63 63 30 32 37 61 61 65 64 65 66 66 38 a51cc027aaedeff8
1d50: 35 61 61 64 37 63 32 62 37 63 35 61 38 30 33 65 5aad7c2b7c5a803e
1d60: 32 34 30 34 64 39 36 64 32 61 37 37 33 35 37 62 2404d96d2a77357b
1d70: 64 61 31 61 36 64 61 65 65 64 31 37 31 35 31 63 da1a6daeed17151c
1d80: 62 39 62 63 35 31 32 35 61 34 32 32 65 39 34 31 b9bc5125a422e941
1d90: 64 65 30 63 61 30 66 63 35 30 31 31 63 32 33 65 de0ca0fc5011c23e
1da0: 63 66 66 65 66 64 64 30 39 36 37 36 37 31 31 63 cffefdd09676711c
1db0: 66 33 64 62 30 61 33 34 34 30 37 32 30 65 31 36 f3db0a3440720e16
1dc0: 31 35 63 31 66 32 32 66 62 63 33 63 37 32 31 64 15c1f22fbc3c721d
1dd0: 65 35 32 31 65 31 62 39 39 62 61 31 62 64 35 35 e521e1b99ba1bd55
1de0: 37 37 34 30 38 36 34 32 31 34 37 65 64 30 39 36 77408642147ed096
1df0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
1e00: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
1e10: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
1e20: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
1e30: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 66 34 xact -result 4f4
1e40: 34 30 64 62 31 65 36 65 64 64 32 38 39 39 66 61 40db1e6edd2899fa
1e50: 33 33 35 66 30 39 35 31 35 61 61 30 32 35 65 65 335f09515aa025ee
1e60: 31 37 37 61 37 39 66 34 62 34 61 61 66 33 38 65 177a79f4b4aaf38e
1e70: 34 32 62 35 63 34 64 65 36 36 30 66 35 64 65 38 42b5c4de660f5de8
1e80: 66 62 32 61 35 62 32 66 62 64 32 61 33 63 62 66 fb2a5b2fbd2a3cbf
1e90: 66 64 32 30 63 66 66 31 32 38 38 63 30 0a 0a fd20cff1288c0..