Artifact
e30ff48b23b76ee4e002f1deb20a4533ffa72284af85853bde0d14084de96bc7:
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 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f t".lappend auto_
0030: 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 path [file dirna
0040: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0050: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0060: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
0070: 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 le join [pwd] [i
0080: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d nfo script]]]]]]
0090: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
00a0: 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 tls.package req
00b0: 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 uire tcltest..tc
00c0: 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 ltest::testConst
00d0: 72 61 69 6e 74 20 53 48 41 33 38 34 20 5b 65 78 raint SHA384 [ex
00e0: 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f pr {[lsearch -no
00f0: 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 case [tls::diges
0100: 74 73 5d 20 53 48 41 33 38 34 5d 20 3e 20 2d 31 ts] SHA384] > -1
0110: 7d 5d 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70 }].catch {tls::p
0120: 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 7d 0a rovider legacy}.
0130: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0140: 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 20 7b ash_SHA384-1.1 {
0150: 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA384} \..-cons
0160: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c traints SHA384 \
0170: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0180: 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 ta ""} \..-body
0190: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
01a0: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 gest SHA384 -dat
01b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
01c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
01d0: 20 33 38 62 30 36 30 61 37 35 31 61 63 39 36 33 38b060a751ac963
01e0: 38 34 63 64 39 33 32 37 65 62 31 62 31 65 33 36 84cd9327eb1b1e36
01f0: 61 32 31 66 64 62 37 31 31 31 34 62 65 30 37 34 a21fdb71114be074
0200: 33 34 63 30 63 63 37 62 66 36 33 66 36 65 31 64 34c0cc7bf63f6e1d
0210: 61 32 37 34 65 64 65 62 66 65 37 36 66 36 35 66 a274edebfe76f65f
0220: 62 64 35 31 61 64 32 66 31 34 38 39 38 62 39 35 bd51ad2f14898b95
0230: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 b..tcltest::test
0240: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 32 Hash_SHA384-1.2
0250: 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f {SHA384} \..-co
0260: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 nstraints SHA384
0270: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0280: 64 61 74 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d data "abc"} \..-
0290: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
02a0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 t -digest SHA384
02b0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
02c0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
02d0: 65 73 75 6c 74 20 63 62 30 30 37 35 33 66 34 35 esult cb00753f45
02e0: 61 33 35 65 38 62 62 35 61 30 33 64 36 39 39 61 a35e8bb5a03d699a
02f0: 63 36 35 30 30 37 32 37 32 63 33 32 61 62 30 65 c65007272c32ab0e
0300: 64 65 64 31 36 33 31 61 38 62 36 30 35 61 34 33 ded1631a8b605a43
0310: 66 66 35 62 65 64 38 30 38 36 30 37 32 62 61 31 ff5bed8086072ba1
0320: 65 37 63 63 32 33 35 38 62 61 65 63 61 31 33 34 e7cc2358baeca134
0330: 63 38 32 35 61 37 0a 0a 74 63 6c 74 65 73 74 3a c825a7..tcltest:
0340: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 :test Hash_SHA38
0350: 34 2d 31 2e 33 20 7b 53 48 41 33 38 34 7d 20 5c 4-1.3 {SHA384} \
0360: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0370: 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 HA384 \..-setup
0380: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 62 {set data "abcdb
0390: 63 64 65 63 64 65 66 64 65 66 67 65 66 67 68 66 cdecdefdefgefghf
03a0: 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a ghighijhijkijklj
03b0: 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e klmklmnlmnomnopn
03c0: 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b opq"} \..-body {
03d0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
03e0: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 est SHA384 -data
03f0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0400: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0410: 33 33 39 31 66 64 64 64 66 63 38 64 63 37 33 39 3391fdddfc8dc739
0420: 33 37 30 37 61 36 35 62 31 62 34 37 30 39 33 39 3707a65b1b470939
0430: 37 63 66 38 62 31 64 31 36 32 61 66 30 35 61 62 7cf8b1d162af05ab
0440: 66 65 38 66 34 35 30 64 65 35 66 33 36 62 63 36 fe8f450de5f36bc6
0450: 62 30 34 35 35 61 38 35 32 30 62 63 34 65 36 66 b0455a8520bc4e6f
0460: 35 66 65 39 35 62 31 66 65 33 63 38 34 35 32 62 5fe95b1fe3c8452b
0470: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0480: 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 34 20 Hash_SHA384-1.4
0490: 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e {SHA384} \..-con
04a0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 straints SHA384
04b0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
04c0: 61 74 61 20 22 61 62 63 64 65 66 67 68 62 63 64 ata "abcdefghbcd
04d0: 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 65 66 efghicdefghijdef
04e0: 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 68 ghijkefghijklfgh
04f0: 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a ijklmghijklmnhij
0500: 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c klmnoijklmnopjkl
0510: 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e mnopqklmnopqrlmn
0520: 6f 70 71 72 73 6d 6e 6f 70 71 72 73 74 6e 6f 70 opqrsmnopqrstnop
0530: 71 72 73 74 75 22 7d 20 5c 0a 09 2d 62 6f 64 79 qrstu"} \..-body
0540: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0550: 69 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 igest SHA384 -da
0560: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0570: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0580: 74 20 30 39 33 33 30 63 33 33 66 37 31 31 34 37 t 09330c33f71147
0590: 65 38 33 64 31 39 32 66 63 37 38 32 63 64 31 62 e83d192fc782cd1b
05a0: 34 37 35 33 31 31 31 62 31 37 33 62 33 62 30 35 4753111b173b3b05
05b0: 64 32 32 66 61 30 38 30 38 36 65 33 62 30 66 37 d22fa08086e3b0f7
05c0: 31 32 66 63 63 37 63 37 31 61 35 35 37 65 32 64 12fcc7c71a557e2d
05d0: 62 39 36 36 63 33 65 39 66 61 39 31 37 34 36 30 b966c3e9fa917460
05e0: 33 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 39..tcltest::tes
05f0: 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e t Hash_SHA384-1.
0600: 35 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 5 {SHA384} \..-c
0610: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 onstraints SHA38
0620: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
0630: 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 data [string re
0640: 70 65 61 74 20 22 61 22 20 31 30 30 30 30 30 30 peat "a" 1000000
0650: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
0660: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0670: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
0680: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0690: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 64 30 xact -result 9d0
06a0: 65 31 38 30 39 37 31 36 34 37 34 63 62 30 38 36 e1809716474cb086
06b0: 65 38 33 34 65 33 31 30 61 34 61 31 63 65 64 31 e834e310a4a1ced1
06c0: 34 39 65 39 63 30 30 66 32 34 38 35 32 37 39 37 49e9c00f24852797
06d0: 32 63 65 63 35 37 30 34 63 32 61 35 62 30 37 62 2cec5704c2a5b07b
06e0: 38 62 33 64 63 33 38 65 63 63 34 65 62 61 65 39 8b3dc38ecc4ebae9
06f0: 37 64 64 64 38 37 66 33 64 38 39 38 35 0a 0a 74 7ddd87f3d8985..t
0700: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0710: 68 5f 53 48 41 33 38 34 2d 31 2e 36 20 7b 53 48 h_SHA384-1.6 {SH
0720: 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A384} \..-constr
0730: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 aints SHA384 \..
0740: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0750: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0760: 22 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 "abcdefghbcdefgh
0770: 69 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a icdefghijdefghij
0780: 6b 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c kefghijklfghijkl
0790: 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e mghijklmnhijklmn
07a0: 6f 22 20 31 36 37 37 37 32 31 36 5d 7d 20 5c 0a o" 16777216]} \.
07b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
07c0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
07d0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 84 -data $data}
07e0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
07f0: 2d 72 65 73 75 6c 74 20 35 34 34 31 32 33 35 63 -result 5441235c
0800: 63 30 32 33 35 33 34 31 65 64 38 30 36 61 36 34 c0235341ed806a64
0810: 66 62 33 35 34 37 34 32 62 35 65 35 63 30 32 61 fb354742b5e5c02a
0820: 33 63 35 63 62 37 31 62 35 66 36 33 66 62 37 39 3c5cb71b5f63fb79
0830: 33 34 35 38 64 38 66 64 61 65 35 39 39 63 38 63 3458d8fdae599c8c
0840: 64 38 38 38 34 39 34 33 63 30 34 66 31 31 62 33 d8884943c04f11b3
0850: 31 62 38 39 66 30 32 33 0a 0a 74 63 6c 74 65 73 1b89f023..tcltes
0860: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
0870: 33 38 34 2d 31 2e 37 20 7b 53 48 41 33 38 34 7d 384-1.7 {SHA384}
0880: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0890: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 SHA384 \..-setu
08a0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 p {set data ""}
08b0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
08c0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
08d0: 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 A384 -data $data
08e0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
08f0: 74 20 2d 72 65 73 75 6c 74 20 33 38 62 30 36 30 t -result 38b060
0900: 61 37 35 31 61 63 39 36 33 38 34 63 64 39 33 32 a751ac96384cd932
0910: 37 65 62 31 62 31 65 33 36 61 32 31 66 64 62 37 7eb1b1e36a21fdb7
0920: 31 31 31 34 62 65 30 37 34 33 34 63 30 63 63 37 1114be07434c0cc7
0930: 62 66 36 33 66 36 65 31 64 61 32 37 34 65 64 65 bf63f6e1da274ede
0940: 62 66 65 37 36 66 36 35 66 62 64 35 31 61 64 32 bfe76f65fbd51ad2
0950: 66 31 34 38 39 38 62 39 35 62 0a 0a 74 63 6c 74 f14898b95b..tclt
0960: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
0970: 48 41 33 38 34 2d 31 2e 38 20 7b 53 48 41 33 38 HA384-1.8 {SHA38
0980: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0990: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 ts SHA384 \..-se
09a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
09b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
09c0: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
09d0: 30 30 20 31 31 31 5d 5d 7d 20 5c 0a 09 2d 62 6f 00 111]]} \..-bo
09e0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
09f0: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d -digest SHA384 -
0a00: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0a10: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0a20: 75 6c 74 20 34 33 35 37 37 30 37 31 32 63 36 31 ult 435770712c61
0a30: 31 62 65 37 32 39 33 61 36 36 64 64 30 64 63 38 1be7293a66dd0dc8
0a40: 64 31 34 35 30 64 63 37 66 66 37 33 33 37 62 66 d1450dc7ff7337bf
0a50: 65 31 31 35 62 66 30 35 38 65 66 32 65 62 39 62 e115bf058ef2eb9b
0a60: 65 64 30 39 63 65 65 38 35 63 32 36 39 36 33 61 ed09cee85c26963a
0a70: 35 62 63 63 30 39 30 35 64 63 32 64 66 37 63 63 5bcc0905dc2df7cc
0a80: 36 61 37 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 6a76..tcltest::t
0a90: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d est Hash_SHA384-
0aa0: 31 2e 39 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 1.9 {SHA384} \..
0ab0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0ac0: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 384 \..-setup {s
0ad0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 et data [binary
0ae0: 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 decode hex [stri
0af0: 6e 67 20 72 65 70 65 61 74 20 30 30 20 31 31 32 ng repeat 00 112
0b00: 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c ]]} \..-body {tl
0b10: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0b20: 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 t SHA384 -data $
0b30: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0b40: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 65 exact -result 3e
0b50: 30 63 62 66 33 61 65 65 30 65 33 61 61 37 30 34 0cbf3aee0e3aa704
0b60: 31 35 62 65 61 65 31 62 64 31 32 64 64 37 64 62 15beae1bd12dd7db
0b70: 38 32 31 65 66 61 34 34 36 34 34 30 66 31 32 31 821efa446440f121
0b80: 33 32 65 64 66 66 63 65 37 36 66 36 33 35 65 35 32edffce76f635e5
0b90: 33 35 32 36 61 31 31 31 34 39 31 65 37 35 65 65 3526a111491e75ee
0ba0: 38 65 32 37 62 39 37 30 30 65 65 63 32 30 0a 0a 8e27b9700eec20..
0bb0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0bc0: 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 30 20 7b sh_SHA384-1.10 {
0bd0: 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA384} \..-cons
0be0: 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c traints SHA384 \
0bf0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0c00: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0c10: 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 e hex [string re
0c20: 70 65 61 74 20 30 30 20 31 31 33 5d 5d 7d 20 5c peat 00 113]]} \
0c30: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0c40: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0c50: 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 384 -data $data}
0c60: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0c70: 20 2d 72 65 73 75 6c 74 20 36 62 65 39 61 66 32 -result 6be9af2
0c80: 63 66 33 63 64 35 64 64 31 32 63 38 64 39 33 39 cf3cd5dd12c8d939
0c90: 39 65 63 32 62 33 34 65 36 36 30 33 34 66 62 64 9ec2b34e66034fbd
0ca0: 36 39 39 64 34 65 30 32 32 31 64 33 39 30 37 34 699d4e0221d39074
0cb0: 31 37 32 61 33 38 30 36 35 36 30 38 39 63 61 61 172a380656089caa
0cc0: 66 65 38 66 33 39 39 36 33 66 39 34 63 63 37 63 fe8f39963f94cc7c
0cd0: 30 61 30 37 65 33 64 32 31 0a 0a 74 63 6c 74 65 0a07e3d21..tclte
0ce0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0cf0: 41 33 38 34 2d 31 2e 31 31 20 7b 53 48 41 33 38 A384-1.11 {SHA38
0d00: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0d10: 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 ts SHA384 \..-se
0d20: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
0d30: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0d40: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0d50: 30 30 20 31 32 32 5d 5d 7d 20 5c 0a 09 2d 62 6f 00 122]]} \..-bo
0d60: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0d70: 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 20 2d -digest SHA384 -
0d80: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0d90: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0da0: 75 6c 74 20 31 32 61 37 32 61 65 34 39 37 32 37 ult 12a72ae49727
0db0: 37 36 62 30 64 62 37 64 37 33 64 31 36 30 61 31 76b0db7d73d160a1
0dc0: 35 65 66 30 64 31 39 36 34 35 65 63 39 36 63 37 5ef0d19645ec96c7
0dd0: 66 38 31 36 34 31 31 61 62 37 38 30 63 37 39 34 f816411ab780c794
0de0: 61 61 34 39 36 61 32 32 39 30 39 64 39 34 31 66 aa496a22909d941f
0df0: 65 36 37 31 65 64 33 66 33 63 61 65 65 39 30 30 e671ed3f3caee900
0e00: 62 64 64 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 bdd5..tcltest::t
0e10: 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 34 2d est Hash_SHA384-
0e20: 31 2e 31 32 20 7b 53 48 41 33 38 34 7d 20 5c 0a 1.12 {SHA384} \.
0e30: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0e40: 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b A384 \..-setup {
0e50: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 set data [binary
0e60: 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 decode hex [str
0e70: 69 6e 67 20 72 65 70 65 61 74 20 30 30 20 31 30 ing repeat 00 10
0e80: 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 00]]} \..-body {
0e90: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
0ea0: 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 est SHA384 -data
0eb0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0ec0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0ed0: 61 61 65 30 31 37 64 34 61 65 35 62 36 33 34 36 aae017d4ae5b6346
0ee0: 64 64 36 30 61 31 39 64 35 32 31 33 30 66 62 35 dd60a19d52130fb5
0ef0: 35 31 39 34 62 36 33 32 37 64 64 34 30 62 38 39 5194b6327dd40b89
0f00: 63 31 31 65 66 63 38 32 32 32 32 39 32 64 65 38 c11efc8222292de8
0f10: 31 65 31 61 32 33 63 39 62 35 39 66 39 66 35 38 1e1a23c9b59f9f58
0f20: 62 37 66 36 61 64 34 36 33 66 61 31 30 38 63 61 b7f6ad463fa108ca
0f30: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0f40: 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 31 33 Hash_SHA384-1.13
0f50: 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f {SHA384} \..-co
0f60: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 nstraints SHA384
0f70: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0f80: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 data [binary dec
0f90: 6f 64 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 ode hex [string
0fa0: 72 65 70 65 61 74 20 34 31 20 31 30 30 30 5d 5d repeat 41 1000]]
0fb0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0fc0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0fd0: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 SHA384 -data $da
0fe0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0ff0: 61 63 74 20 2d 72 65 73 75 6c 74 20 37 64 66 30 act -result 7df0
1000: 31 31 34 38 36 37 37 62 37 66 31 38 36 31 37 65 1148677b7f18617e
1010: 65 65 33 61 32 33 31 30 34 66 30 65 65 64 36 62 ee3a23104f0eed6b
1020: 62 38 63 39 30 61 36 30 34 36 66 37 31 35 63 39 b8c90a6046f715c9
1030: 34 34 35 66 66 34 33 63 33 30 64 36 39 65 39 65 445ff43c30d69e9e
1040: 37 30 38 32 64 65 33 39 63 33 34 35 32 66 64 31 7082de39c3452fd1
1050: 64 33 61 66 64 39 62 61 30 36 38 39 0a 0a 74 63 d3afd9ba0689..tc
1060: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
1070: 5f 53 48 41 33 38 34 2d 31 2e 31 34 20 7b 53 48 _SHA384-1.14 {SH
1080: 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A384} \..-constr
1090: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 aints SHA384 \..
10a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
10b0: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
10c0: 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 65 hex [string repe
10d0: 61 74 20 35 35 20 31 30 30 35 5d 5d 7d 20 5c 0a at 55 1005]]} \.
10e0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
10f0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
1100: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 84 -data $data}
1110: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
1120: 2d 72 65 73 75 6c 74 20 31 62 62 38 65 32 35 36 -result 1bb8e256
1130: 64 61 34 61 30 64 31 65 38 37 34 35 33 35 32 38 da4a0d1e87453528
1140: 32 35 34 66 32 32 33 62 34 63 62 37 65 34 39 63 254f223b4cb7e49c
1150: 34 34 32 30 64 62 66 61 37 36 36 62 62 61 34 61 4420dbfa766bba4a
1160: 64 62 61 34 34 65 65 63 61 33 39 32 66 66 36 61 dba44eeca392ff6a
1170: 39 66 35 36 35 62 63 33 34 37 31 35 38 63 63 39 9f565bc347158cc9
1180: 37 30 63 65 34 34 65 63 0a 0a 74 63 6c 74 65 73 70ce44ec..tcltes
1190: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
11a0: 33 38 34 2d 31 2e 31 35 20 7b 53 48 41 33 38 34 384-1.15 {SHA384
11b0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
11c0: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 s SHA384 \..-set
11d0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 up {set data [bi
11e0: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
11f0: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 [string repeat 0
1200: 30 20 31 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 0 1000000]]} \..
1210: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
1220: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 st -digest SHA38
1230: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 4 -data $data} \
1240: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
1250: 72 65 73 75 6c 74 20 38 61 31 39 37 39 66 39 30 result 8a1979f90
1260: 34 39 62 33 66 66 66 31 35 65 61 33 61 34 33 61 49b3fff15ea3a43a
1270: 34 63 66 38 34 63 36 33 34 66 64 31 34 61 63 61 4cf84c634fd14aca
1280: 64 31 63 33 33 33 66 65 63 62 37 32 63 35 38 38 d1c333fecb72c588
1290: 62 36 38 38 36 38 62 36 36 61 39 39 34 33 38 36 b68868b66a994386
12a0: 64 63 30 63 64 31 36 38 37 62 39 65 65 32 65 33 dc0cd1687b9ee2e3
12b0: 34 39 38 33 62 38 31 0a 0a 74 63 6c 74 65 73 74 4983b81..tcltest
12c0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 ::test Hash_SHA3
12d0: 38 34 2d 31 2e 31 36 20 7b 53 48 41 33 38 34 7d 84-1.16 {SHA384}
12e0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
12f0: 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 SHA384 \..-setu
1300: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e p {set data [bin
1310: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 5b ary decode hex [
1320: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 35 61 string repeat 5a
1330: 20 35 33 36 38 37 30 39 31 32 5d 5d 7d 20 5c 0a 536870912]]} \.
1340: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
1350: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
1360: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 84 -data $data}
1370: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
1380: 2d 72 65 73 75 6c 74 20 31 38 61 64 65 64 32 32 -result 18aded22
1390: 37 63 63 36 62 35 36 32 63 63 37 66 62 32 35 39 7cc6b562cc7fb259
13a0: 65 38 66 34 30 34 35 34 39 65 35 32 39 31 34 35 e8f404549e529145
13b0: 33 31 61 61 31 63 35 64 38 35 31 36 37 38 39 37 31aa1c5d85167897
13c0: 63 37 37 39 63 63 34 62 32 35 64 30 34 32 35 66 c779cc4b25d0425f
13d0: 64 31 35 39 30 65 34 30 62 64 37 36 33 65 63 33 d1590e40bd763ec3
13e0: 66 34 33 31 31 63 31 61 0a 0a 74 63 6c 74 65 73 f4311c1a..tcltes
13f0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
1400: 33 38 34 2d 31 2e 31 37 20 7b 53 48 41 33 38 34 384-1.17 {SHA384
1410: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
1420: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 s SHA384 \..-set
1430: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 54 68 up {set data "Th
1440: 65 20 71 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f e quick brown fo
1450: 78 20 6a 75 6d 70 73 20 6f 76 65 72 20 74 68 65 x jumps over the
1460: 20 6c 61 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d lazy dog"} \..-
1470: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
1480: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 38 34 t -digest SHA384
1490: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
14a0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
14b0: 65 73 75 6c 74 20 63 61 37 33 37 66 31 30 31 34 esult ca737f1014
14c0: 61 34 38 66 34 63 30 62 36 64 64 34 33 63 62 31 a48f4c0b6dd43cb1
14d0: 37 37 62 30 61 66 64 39 65 35 31 36 39 33 36 37 77b0afd9e5169367
14e0: 35 34 34 63 34 39 34 30 31 31 65 33 33 31 37 64 544c494011e3317d
14f0: 62 66 39 61 35 30 39 63 62 31 65 35 64 63 31 65 bf9a509cb1e5dc1e
1500: 38 35 61 39 34 31 62 62 65 65 33 64 37 66 32 61 85a941bbee3d7f2a
1510: 66 62 63 39 62 31 0a 0a 74 63 6c 74 65 73 74 3a fbc9b1..tcltest:
1520: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 38 :test Hash_SHA38
1530: 34 2d 31 2e 31 38 20 7b 53 48 41 33 38 34 7d 20 4-1.18 {SHA384}
1540: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
1550: 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 SHA384 \..-setup
1560: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 {set data "abc"
1570: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
1580: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
1590: 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 SHA384 -data $da
15a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
15b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 63 62 30 30 act -result cb00
15c0: 37 35 33 66 34 35 61 33 35 65 38 62 62 35 61 30 753f45a35e8bb5a0
15d0: 33 64 36 39 39 61 63 36 35 30 30 37 32 37 32 63 3d699ac65007272c
15e0: 33 32 61 62 30 65 64 65 64 31 36 33 31 61 38 62 32ab0eded1631a8b
15f0: 36 30 35 61 34 33 66 66 35 62 65 64 38 30 38 36 605a43ff5bed8086
1600: 30 37 32 62 61 31 65 37 63 63 32 33 35 38 62 61 072ba1e7cc2358ba
1610: 65 63 61 31 33 34 63 38 32 35 61 37 0a 0a 74 63 eca134c825a7..tc
1620: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
1630: 5f 53 48 41 33 38 34 2d 31 2e 31 39 20 7b 53 48 _SHA384-1.19 {SH
1640: 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A384} \..-constr
1650: 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 aints SHA384 \..
1660: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
1670: 20 22 61 62 63 64 65 66 67 68 62 63 64 65 66 67 "abcdefghbcdefg
1680: 68 69 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 hicdefghijdefghi
1690: 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b jkefghijklfghijk
16a0: 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d lmghijklmnhijklm
16b0: 6e 6f 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f noijklmnopjklmno
16c0: 70 71 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 pqklmnopqrlmnopq
16d0: 72 73 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 rsmnopqrstnopqrs
16e0: 74 75 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 tu"} \..-body {t
16f0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
1700: 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 st SHA384 -data
1710: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
1720: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 exact -result 0
1730: 39 33 33 30 63 33 33 66 37 31 31 34 37 65 38 33 9330c33f71147e83
1740: 64 31 39 32 66 63 37 38 32 63 64 31 62 34 37 35 d192fc782cd1b475
1750: 33 31 31 31 62 31 37 33 62 33 62 30 35 64 32 32 3111b173b3b05d22
1760: 66 61 30 38 30 38 36 65 33 62 30 66 37 31 32 66 fa08086e3b0f712f
1770: 63 63 37 63 37 31 61 35 35 37 65 32 64 62 39 36 cc7c71a557e2db96
1780: 36 63 33 65 39 66 61 39 31 37 34 36 30 33 39 0a 6c3e9fa91746039.
1790: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
17a0: 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 32 30 20 ash_SHA384-1.20
17b0: 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e {SHA384} \..-con
17c0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 straints SHA384
17d0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
17e0: 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 ata [string repe
17f0: 61 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d at "a" 1000000]}
1800: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
1810: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
1820: 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 HA384 -data $dat
1830: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
1840: 63 74 20 2d 72 65 73 75 6c 74 20 39 64 30 65 31 ct -result 9d0e1
1850: 38 30 39 37 31 36 34 37 34 63 62 30 38 36 65 38 809716474cb086e8
1860: 33 34 65 33 31 30 61 34 61 31 63 65 64 31 34 39 34e310a4a1ced149
1870: 65 39 63 30 30 66 32 34 38 35 32 37 39 37 32 63 e9c00f248527972c
1880: 65 63 35 37 30 34 63 32 61 35 62 30 37 62 38 62 ec5704c2a5b07b8b
1890: 33 64 63 33 38 65 63 63 34 65 62 61 65 39 37 64 3dc38ecc4ebae97d
18a0: 64 64 38 37 66 33 64 38 39 38 35 0a 0a 74 63 6c dd87f3d8985..tcl
18b0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
18c0: 53 48 41 33 38 34 2d 31 2e 32 31 20 7b 53 48 41 SHA384-1.21 {SHA
18d0: 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 384} \..-constra
18e0: 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a 09 2d ints SHA384 \..-
18f0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
1900: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 [string repeat "
1910: 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 37 0123456701234567
1920: 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 37 0123456701234567
1930: 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 37 0123456701234567
1940: 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 37 0123456701234567
1950: 22 20 31 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 " 10]} \..-body
1960: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
1970: 67 65 73 74 20 53 48 41 33 38 34 20 2d 64 61 74 gest SHA384 -dat
1980: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
1990: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
19a0: 20 32 66 63 36 34 61 34 66 35 30 30 64 64 62 36 2fc64a4f500ddb6
19b0: 38 32 38 66 36 61 33 34 33 30 62 38 64 64 37 32 828f6a3430b8dd72
19c0: 61 33 36 38 65 62 37 66 33 61 38 33 32 32 61 37 a368eb7f3a8322a7
19d0: 30 62 63 38 34 32 37 35 62 39 63 30 62 33 61 62 0bc84275b9c0b3ab
19e0: 30 30 64 32 37 61 35 63 63 33 63 32 64 32 32 34 00d27a5cc3c2d224
19f0: 61 61 36 62 36 31 61 30 64 37 39 66 62 34 35 39 aa6b61a0d79fb459
1a00: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 6..tcltest::test
1a10: 20 48 61 73 68 5f 53 48 41 33 38 34 2d 31 2e 32 Hash_SHA384-1.2
1a20: 32 20 7b 53 48 41 33 38 34 7d 20 5c 0a 09 2d 63 2 {SHA384} \..-c
1a30: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 38 onstraints SHA38
1a40: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
1a50: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 data [binary de
1a60: 63 6f 64 65 20 68 65 78 20 62 39 5d 7d 20 5c 0a code hex b9]} \.
1a70: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
1a80: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
1a90: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 84 -data $data}
1aa0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
1ab0: 2d 72 65 73 75 6c 74 20 62 63 38 30 38 39 61 31 -result bc8089a1
1ac0: 39 30 30 37 63 30 62 31 34 31 39 35 66 34 65 63 9007c0b14195f4ec
1ad0: 63 37 34 30 39 34 66 65 63 36 34 66 30 31 66 39 c74094fec64f01f9
1ae0: 30 39 32 39 32 38 32 63 32 66 62 33 39 32 38 38 0929282c2fb39288
1af0: 31 35 37 38 32 30 38 61 64 34 36 36 38 32 38 62 1578208ad466828b
1b00: 31 63 36 63 32 38 33 64 32 37 32 32 63 66 30 61 1c6c283d2722cf0a
1b10: 64 31 61 62 36 39 33 38 0a 0a 74 63 6c 74 65 73 d1ab6938..tcltes
1b20: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
1b30: 33 38 34 2d 31 2e 32 33 20 7b 53 48 41 33 38 34 384-1.23 {SHA384
1b40: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
1b50: 73 20 53 48 41 33 38 34 20 5c 0a 09 2d 73 65 74 s SHA384 \..-set
1b60: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 up {set data [bi
1b70: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
1b80: 61 34 31 63 34 39 37 37 37 39 63 30 33 37 35 66 a41c497779c0375f
1b90: 66 31 30 61 37 66 34 65 30 38 35 39 31 37 33 39 f10a7f4e08591739
1ba0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
1bb0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
1bc0: 20 53 48 41 33 38 34 20 2d 64 61 74 61 20 24 64 SHA384 -data $d
1bd0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
1be0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 39 61 xact -result c9a
1bf0: 36 38 34 34 33 61 30 30 35 38 31 32 32 35 36 62 68443a005812256b
1c00: 38 65 63 37 36 62 30 30 35 31 36 66 30 64 62 62 8ec76b00516f0dbb
1c10: 37 34 66 61 62 32 36 64 36 36 35 39 31 33 66 31 74fab26d665913f1
1c20: 39 34 62 36 66 66 62 30 65 39 31 65 61 39 39 36 94b6ffb0e91ea996
1c30: 37 35 36 36 62 35 38 31 30 39 63 62 63 36 37 35 7566b58109cbc675
1c40: 63 63 32 30 38 65 34 63 38 32 33 66 37 0a 0a 74 cc208e4c823f7..t
1c50: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
1c60: 68 5f 53 48 41 33 38 34 2d 31 2e 32 34 20 7b 53 h_SHA384-1.24 {S
1c70: 48 41 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA384} \..-const
1c80: 72 61 69 6e 74 73 20 53 48 41 33 38 34 20 5c 0a raints SHA384 \.
1c90: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
1ca0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
1cb0: 20 68 65 78 20 33 39 39 36 36 39 65 32 38 66 36 hex 399669e28f6
1cc0: 62 39 63 36 64 62 63 62 62 36 39 31 32 65 63 31 b9c6dbcbb6912ec1
1cd0: 30 66 66 63 66 37 34 37 39 30 33 34 39 62 37 64 0ffcf74790349b7d
1ce0: 63 38 66 62 65 34 61 38 65 37 62 33 62 35 36 32 c8fbe4a8e7b3b562
1cf0: 31 64 62 30 66 33 65 37 64 63 38 37 66 38 32 33 1db0f3e7dc87f823
1d00: 32 36 34 62 62 65 34 30 64 31 38 31 31 63 39 65 264bbe40d1811c9e
1d10: 61 32 30 36 31 65 31 63 38 34 61 64 31 30 61 32 a2061e1c84ad10a2
1d20: 33 66 61 63 31 37 32 37 65 37 32 30 32 66 63 33 3fac1727e7202fc3
1d30: 66 35 30 34 32 65 36 62 66 35 38 63 62 61 38 61 f5042e6bf58cba8a
1d40: 32 37 34 36 65 31 66 36 34 66 39 62 39 65 61 33 2746e1f64f9b9ea3
1d50: 35 32 63 37 31 31 35 30 37 30 35 33 63 66 34 65 52c711507053cf4e
1d60: 35 33 33 39 64 35 32 38 36 35 66 32 35 63 63 32 5339d52865f25cc2
1d70: 32 62 35 65 38 37 37 38 34 61 31 32 66 63 39 36 2b5e87784a12fc96
1d80: 31 64 36 36 63 62 36 65 38 39 35 37 33 31 39 39 1d66cb6e89573199
1d90: 61 32 63 65 36 35 36 35 63 62 64 66 31 33 64 63 a2ce6565cbdf13dc
1da0: 61 34 30 33 38 33 32 63 66 63 62 30 65 38 62 37 a403832cfcb0e8b7
1db0: 32 31 31 65 38 33 61 66 33 32 61 31 31 61 63 31 211e83af32a11ac1
1dc0: 37 39 32 39 66 66 31 63 30 37 33 61 35 31 63 63 7929ff1c073a51cc
1dd0: 30 32 37 61 61 65 64 65 66 66 38 35 61 61 64 37 027aaedeff85aad7
1de0: 63 32 62 37 63 35 61 38 30 33 65 32 34 30 34 64 c2b7c5a803e2404d
1df0: 39 36 64 32 61 37 37 33 35 37 62 64 61 31 61 36 96d2a77357bda1a6
1e00: 64 61 65 65 64 31 37 31 35 31 63 62 39 62 63 35 daeed17151cb9bc5
1e10: 31 32 35 61 34 32 32 65 39 34 31 64 65 30 63 61 125a422e941de0ca
1e20: 30 66 63 35 30 31 31 63 32 33 65 63 66 66 65 66 0fc5011c23ecffef
1e30: 64 64 30 39 36 37 36 37 31 31 63 66 33 64 62 30 dd09676711cf3db0
1e40: 61 33 34 34 30 37 32 30 65 31 36 31 35 63 31 66 a3440720e1615c1f
1e50: 32 32 66 62 63 33 63 37 32 31 64 65 35 32 31 65 22fbc3c721de521e
1e60: 31 62 39 39 62 61 31 62 64 35 35 37 37 34 30 38 1b99ba1bd5577408
1e70: 36 34 32 31 34 37 65 64 30 39 36 5d 7d 20 5c 0a 642147ed096]} \.
1e80: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
1e90: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
1ea0: 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 84 -data $data}
1eb0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
1ec0: 2d 72 65 73 75 6c 74 20 34 66 34 34 30 64 62 31 -result 4f440db1
1ed0: 65 36 65 64 64 32 38 39 39 66 61 33 33 35 66 30 e6edd2899fa335f0
1ee0: 39 35 31 35 61 61 30 32 35 65 65 31 37 37 61 37 9515aa025ee177a7
1ef0: 39 66 34 62 34 61 61 66 33 38 65 34 32 62 35 63 9f4b4aaf38e42b5c
1f00: 34 64 65 36 36 30 66 35 64 65 38 66 62 32 61 35 4de660f5de8fb2a5
1f10: 62 32 66 62 64 32 61 33 63 62 66 66 64 32 30 63 b2fbd2a3cbffd20c
1f20: 66 66 31 32 38 38 63 30 0a 0a 23 20 43 6c 65 61 ff1288c0..# Clea
1f30: 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 nup.::tcltest::c
1f40: 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 leanupTests.retu
1f50: 72 6e 0a rn.