Artifact
6b46875f9b54395fe33fdefd04a9ef9ab2bf0be86f56824d93faaa31bba0bf84:
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 2d 33 38 34 2e from "SHA3-384.
0020: 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 txt".lappend aut
0030: 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 o_path [file dir
0040: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0050: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0060: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0070: 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 file join [pwd]
0080: 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d [info script]]]]
0090: 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ]].package requi
00a0: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
00b0: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
00c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
00d0: 73 74 72 61 69 6e 74 20 53 48 41 33 5f 33 38 34 straint SHA3_384
00e0: 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 [expr {[lsearch
00f0: 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 64 -nocase [tls::d
0100: 69 67 65 73 74 73 5d 20 53 48 41 33 2d 33 38 34 igests] SHA3-384
0110: 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 68 20 7b ] > -1}].catch {
0120: 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 6c 65 tls::provider le
0130: 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 74 3a 3a gacy}..tcltest::
0140: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 test Hash_SHA3-3
0150: 38 34 2d 31 2e 31 20 7b 53 48 41 33 2d 33 38 34 84-1.1 {SHA3-384
0160: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0170: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 s SHA3_384 \..-s
0180: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0190: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
01a0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
01b0: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 SHA3-384 -data
01c0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
01d0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 exact -result 0
01e0: 63 36 33 61 37 35 62 38 34 35 65 34 66 37 64 30 c63a75b845e4f7d0
01f0: 31 31 30 37 64 38 35 32 65 34 63 32 34 38 35 63 1107d852e4c2485c
0200: 35 31 61 35 30 61 61 61 61 39 34 66 63 36 31 39 51a50aaaa94fc619
0210: 39 35 65 37 31 62 62 65 65 39 38 33 61 32 61 63 95e71bbee983a2ac
0220: 33 37 31 33 38 33 31 32 36 34 61 64 62 34 37 66 3713831264adb47f
0230: 62 36 62 64 31 65 30 35 38 64 35 66 30 30 34 0a b6bd1e058d5f004.
0240: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0250: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 31 2e 32 ash_SHA3-384-1.2
0260: 20 7b 53 48 41 33 2d 33 38 34 7d 20 5c 0a 09 2d {SHA3-384} \..-
0270: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
0280: 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b _384 \..-setup {
0290: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 set data [binary
02a0: 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 decode hex [str
02b0: 69 6e 67 20 72 65 70 65 61 74 20 61 33 20 32 30 ing repeat a3 20
02c0: 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 0]]} \..-body {t
02d0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
02e0: 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 st SHA3-384 -dat
02f0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0300: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0310: 20 31 38 38 31 64 65 32 63 61 37 65 34 31 65 66 1881de2ca7e41ef
0320: 39 35 64 63 34 37 33 32 62 38 66 35 66 30 30 32 95dc4732b8f5f002
0330: 62 31 38 39 63 63 31 65 34 32 62 37 34 31 36 38 b189cc1e42b74168
0340: 65 64 31 37 33 32 36 34 39 63 65 31 64 62 63 64 ed1732649ce1dbcd
0350: 64 37 36 31 39 37 61 33 31 66 64 35 35 65 65 39 d76197a31fd55ee9
0360: 38 39 66 32 64 37 30 35 30 64 64 34 37 33 65 38 89f2d7050dd473e8
0370: 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 f..tcltest::test
0380: 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 31 Hash_SHA3-384-1
0390: 2e 33 20 7b 53 48 41 33 2d 33 38 34 7d 20 5c 0a .3 {SHA3-384} \.
03a0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
03b0: 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 A3_384 \..-setup
03c0: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 {set data "abc"
03d0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
03e0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
03f0: 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 SHA3-384 -data $
0400: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0410: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 63 exact -result ec
0420: 30 31 34 39 38 32 38 38 35 31 36 66 63 39 32 36 01498288516fc926
0430: 34 35 39 66 35 38 65 32 63 36 61 64 38 64 66 39 459f58e2c6ad8df9
0440: 62 34 37 33 63 62 30 66 63 30 38 63 32 35 39 36 b473cb0fc08c2596
0450: 64 61 37 63 66 30 65 34 39 62 65 34 62 32 39 38 da7cf0e49be4b298
0460: 64 38 38 63 65 61 39 32 37 61 63 37 66 35 33 39 d88cea927ac7f539
0470: 66 31 65 64 66 32 32 38 33 37 36 64 32 35 0a 0a f1edf228376d25..
0480: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0490: 73 68 5f 53 48 41 33 2d 33 38 34 2d 31 2e 34 20 sh_SHA3-384-1.4
04a0: 7b 53 48 41 33 2d 33 38 34 7d 20 5c 0a 09 2d 63 {SHA3-384} \..-c
04b0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f onstraints SHA3_
04c0: 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 384 \..-setup {s
04d0: 65 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 et data "abcdbcd
04e0: 65 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 ecdefdefgefghfgh
04f0: 69 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c ighijhijkijkljkl
0500: 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 mklmnlmnomnopnop
0510: 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c q"} \..-body {tl
0520: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0530: 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 t SHA3-384 -data
0540: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0550: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0560: 39 39 31 63 36 36 35 37 35 35 65 62 33 61 34 62 991c665755eb3a4b
0570: 36 62 62 64 66 62 37 35 63 37 38 61 34 39 32 65 6bbdfb75c78a492e
0580: 38 63 35 36 61 32 32 63 35 63 34 64 37 65 34 32 8c56a22c5c4d7e42
0590: 39 62 66 64 62 63 33 32 62 39 64 34 61 64 35 61 9bfdbc32b9d4ad5a
05a0: 61 30 34 61 31 66 30 37 36 65 36 32 66 65 61 31 a04a1f076e62fea1
05b0: 39 65 65 66 35 31 61 63 64 30 36 35 37 63 32 32 9eef51acd0657c22
05c0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
05d0: 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 31 2e Hash_SHA3-384-1.
05e0: 35 20 7b 53 48 41 33 2d 33 38 34 7d 20 5c 0a 09 5 {SHA3-384} \..
05f0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0600: 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 3_384 \..-setup
0610: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 65 {set data "abcde
0620: 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 fghbcdefghicdefg
0630: 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 hijdefghijkefghi
0640: 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b jklfghijklmghijk
0650: 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d lmnhijklmnoijklm
0660: 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f nopjklmnopqklmno
0670: 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 pqrlmnopqrsmnopq
0680: 72 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a rstnopqrstu"} \.
0690: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
06a0: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
06b0: 2d 33 38 34 20 2d 64 61 74 61 20 24 64 61 74 61 -384 -data $data
06c0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
06d0: 74 20 2d 72 65 73 75 6c 74 20 37 39 34 30 37 64 t -result 79407d
06e0: 33 62 35 39 31 36 62 35 39 63 33 65 33 30 62 30 3b5916b59c3e30b0
06f0: 39 38 32 32 39 37 34 37 39 31 63 33 31 33 66 62 9822974791c313fb
0700: 39 65 63 63 38 34 39 65 34 30 36 66 32 33 35 39 9ecc849e406f2359
0710: 32 64 30 34 66 36 32 35 64 63 38 63 37 30 39 62 2d04f625dc8c709b
0720: 39 38 62 34 33 62 33 38 35 32 62 33 33 37 32 31 98b43b3852b33721
0730: 36 31 37 39 61 61 37 66 63 37 0a 0a 74 63 6c 74 6179aa7fc7..tclt
0740: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
0750: 48 41 33 2d 33 38 34 2d 31 2e 36 20 7b 53 48 41 HA3-384-1.6 {SHA
0760: 33 2d 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-384} \..-const
0770: 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 raints SHA3_384
0780: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0790: 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 ata [string repe
07a0: 61 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d at "a" 1000000]}
07b0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
07c0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
07d0: 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 24 64 HA3-384 -data $d
07e0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
07f0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 65 65 xact -result eee
0800: 39 65 32 34 64 37 38 63 31 38 35 35 33 33 37 39 9e24d78c18553379
0810: 38 33 34 35 31 64 66 39 37 63 38 61 64 39 65 65 83451df97c8ad9ee
0820: 64 66 32 35 36 63 36 33 33 34 66 38 65 39 34 38 df256c6334f8e948
0830: 64 32 35 32 64 35 65 30 65 37 36 38 34 37 61 61 d252d5e0e76847aa
0840: 30 37 37 34 64 64 62 39 30 61 38 34 32 31 39 30 0774ddb90a842190
0850: 64 32 63 35 35 38 62 34 62 38 33 34 30 0a 0a 74 d2c558b4b8340..t
0860: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0870: 68 5f 53 48 41 33 2d 33 38 34 2d 31 2e 37 20 7b h_SHA3-384-1.7 {
0880: 53 48 41 33 2d 33 38 34 7d 20 5c 0a 09 2d 63 6f SHA3-384} \..-co
0890: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 33 nstraints SHA3_3
08a0: 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 84 \..-setup {se
08b0: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 t data [string r
08c0: 65 70 65 61 74 20 22 61 62 63 64 65 66 67 68 62 epeat "abcdefghb
08d0: 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 cdefghicdefghijd
08e0: 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 efghijkefghijklf
08f0: 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 ghijklmghijklmnh
0900: 69 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 ijklmno" 1677721
0910: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 6]} \..-body {tl
0920: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0930: 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 t SHA3-384 -data
0940: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0950: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0960: 61 30 34 32 39 36 66 34 66 63 61 61 65 31 34 38 a04296f4fcaae148
0970: 37 31 62 62 35 61 64 33 33 65 32 38 64 63 66 36 71bb5ad33e28dcf6
0980: 39 32 33 38 62 30 34 32 30 34 64 39 39 34 31 62 9238b04204d9941b
0990: 38 37 38 32 65 38 31 36 64 30 31 34 62 63 62 37 8782e816d014bcb7
09a0: 35 34 30 65 34 61 66 35 34 66 33 30 64 35 37 38 540e4af54f30d578
09b0: 66 31 61 31 63 61 32 39 33 30 38 34 37 61 31 32 f1a1ca2930847a12
09c0: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 ..# Cleanup.::tc
09d0: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 ltest::cleanupTe
09e0: 73 74 73 0a 72 65 74 75 72 6e 0a sts.return.