Artifact
5173b84b19a7f1449b4046869e07833d847ac1d068b59f12f06f1f7189279e12:
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 70 61 63 6b 61 67 65 20 72 65 71 txt".package req
0030: 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 uire tls.package
0040: 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 require tcltest
0050: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 ..tcltest::testC
0060: 6f 6e 73 74 72 61 69 6e 74 20 53 48 41 33 5f 33 onstraint SHA3_3
0070: 38 34 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 84 [expr {[lsear
0080: 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 3a ch -nocase [tls:
0090: 3a 64 69 67 65 73 74 73 5d 20 53 48 41 33 2d 33 :digests] SHA3-3
00a0: 38 34 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 84] > -1}]..tclt
00b0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
00c0: 48 41 33 2d 33 38 34 2d 31 2e 31 20 7b 53 48 41 HA3-384-1.1 {SHA
00d0: 33 2d 33 38 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-384} \..-const
00e0: 72 61 69 6e 74 73 20 53 48 41 33 5f 33 38 34 20 raints SHA3_384
00f0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0100: 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 ata ""} \..-body
0110: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0120: 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d igest SHA3-384 -
0130: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0140: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0150: 75 6c 74 20 30 63 36 33 61 37 35 62 38 34 35 65 ult 0c63a75b845e
0160: 34 66 37 64 30 31 31 30 37 64 38 35 32 65 34 63 4f7d01107d852e4c
0170: 32 34 38 35 63 35 31 61 35 30 61 61 61 61 39 34 2485c51a50aaaa94
0180: 66 63 36 31 39 39 35 65 37 31 62 62 65 65 39 38 fc61995e71bbee98
0190: 33 61 32 61 63 33 37 31 33 38 33 31 32 36 34 61 3a2ac3713831264a
01a0: 64 62 34 37 66 62 36 62 64 31 65 30 35 38 64 35 db47fb6bd1e058d5
01b0: 66 30 30 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 f004..tcltest::t
01c0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 est Hash_SHA3-38
01d0: 34 2d 31 2e 32 20 7b 53 48 41 33 2d 33 38 34 7d 4-1.2 {SHA3-384}
01e0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
01f0: 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 SHA3_384 \..-se
0200: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
0210: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0220: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0230: 61 33 20 32 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f a3 200]]} \..-bo
0240: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0250: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 -digest SHA3-384
0260: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0270: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0280: 65 73 75 6c 74 20 31 38 38 31 64 65 32 63 61 37 esult 1881de2ca7
0290: 65 34 31 65 66 39 35 64 63 34 37 33 32 62 38 66 e41ef95dc4732b8f
02a0: 35 66 30 30 32 62 31 38 39 63 63 31 65 34 32 62 5f002b189cc1e42b
02b0: 37 34 31 36 38 65 64 31 37 33 32 36 34 39 63 65 74168ed1732649ce
02c0: 31 64 62 63 64 64 37 36 31 39 37 61 33 31 66 64 1dbcdd76197a31fd
02d0: 35 35 65 65 39 38 39 66 32 64 37 30 35 30 64 64 55ee989f2d7050dd
02e0: 34 37 33 65 38 66 0a 0a 74 63 6c 74 65 73 74 3a 473e8f..tcltest:
02f0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d :test Hash_SHA3-
0300: 33 38 34 2d 31 2e 33 20 7b 53 48 41 33 2d 33 38 384-1.3 {SHA3-38
0310: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0320: 74 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d ts SHA3_384 \..-
0330: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0340: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 "abc"} \..-body
0350: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0360: 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 gest SHA3-384 -d
0370: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0380: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0390: 6c 74 20 65 63 30 31 34 39 38 32 38 38 35 31 36 lt ec01498288516
03a0: 66 63 39 32 36 34 35 39 66 35 38 65 32 63 36 61 fc926459f58e2c6a
03b0: 64 38 64 66 39 62 34 37 33 63 62 30 66 63 30 38 d8df9b473cb0fc08
03c0: 63 32 35 39 36 64 61 37 63 66 30 65 34 39 62 65 c2596da7cf0e49be
03d0: 34 62 32 39 38 64 38 38 63 65 61 39 32 37 61 63 4b298d88cea927ac
03e0: 37 66 35 33 39 66 31 65 64 66 32 32 38 33 37 36 7f539f1edf228376
03f0: 64 32 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 d25..tcltest::te
0400: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 st Hash_SHA3-384
0410: 2d 31 2e 34 20 7b 53 48 41 33 2d 33 38 34 7d 20 -1.4 {SHA3-384}
0420: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0430: 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 SHA3_384 \..-set
0440: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
0450: 63 64 62 63 64 65 63 64 65 66 64 65 66 67 65 66 cdbcdecdefdefgef
0460: 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a ghfghighijhijkij
0470: 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e kljklmklmnlmnomn
0480: 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 opnopq"} \..-bod
0490: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
04a0: 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 digest SHA3-384
04b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
04c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
04d0: 73 75 6c 74 20 39 39 31 63 36 36 35 37 35 35 65 sult 991c665755e
04e0: 62 33 61 34 62 36 62 62 64 66 62 37 35 63 37 38 b3a4b6bbdfb75c78
04f0: 61 34 39 32 65 38 63 35 36 61 32 32 63 35 63 34 a492e8c56a22c5c4
0500: 64 37 65 34 32 39 62 66 64 62 63 33 32 62 39 64 d7e429bfdbc32b9d
0510: 34 61 64 35 61 61 30 34 61 31 66 30 37 36 65 36 4ad5aa04a1f076e6
0520: 32 66 65 61 31 39 65 65 66 35 31 61 63 64 30 36 2fea19eef51acd06
0530: 35 37 63 32 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 57c22..tcltest::
0540: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 33 test Hash_SHA3-3
0550: 38 34 2d 31 2e 35 20 7b 53 48 41 33 2d 33 38 34 84-1.5 {SHA3-384
0560: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0570: 73 20 53 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 s SHA3_384 \..-s
0580: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0590: 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 69 abcdefghbcdefghi
05a0: 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b cdefghijdefghijk
05b0: 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d efghijklfghijklm
05c0: 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f ghijklmnhijklmno
05d0: 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 ijklmnopjklmnopq
05e0: 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 klmnopqrlmnopqrs
05f0: 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 mnopqrstnopqrstu
0600: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0610: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0620: 20 53 48 41 33 2d 33 38 34 20 2d 64 61 74 61 20 SHA3-384 -data
0630: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0640: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 37 exact -result 7
0650: 39 34 30 37 64 33 62 35 39 31 36 62 35 39 63 33 9407d3b5916b59c3
0660: 65 33 30 62 30 39 38 32 32 39 37 34 37 39 31 63 e30b09822974791c
0670: 33 31 33 66 62 39 65 63 63 38 34 39 65 34 30 36 313fb9ecc849e406
0680: 66 32 33 35 39 32 64 30 34 66 36 32 35 64 63 38 f23592d04f625dc8
0690: 63 37 30 39 62 39 38 62 34 33 62 33 38 35 32 62 c709b98b43b3852b
06a0: 33 33 37 32 31 36 31 37 39 61 61 37 66 63 37 0a 337216179aa7fc7.
06b0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
06c0: 61 73 68 5f 53 48 41 33 2d 33 38 34 2d 31 2e 36 ash_SHA3-384-1.6
06d0: 20 7b 53 48 41 33 2d 33 38 34 7d 20 5c 0a 09 2d {SHA3-384} \..-
06e0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
06f0: 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b _384 \..-setup {
0700: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
0710: 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 repeat "a" 1000
0720: 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 000]} \..-body {
0730: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
0740: 65 73 74 20 53 48 41 33 2d 33 38 34 20 2d 64 61 est SHA3-384 -da
0750: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0760: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0770: 74 20 65 65 65 39 65 32 34 64 37 38 63 31 38 35 t eee9e24d78c185
0780: 35 33 33 37 39 38 33 34 35 31 64 66 39 37 63 38 5337983451df97c8
0790: 61 64 39 65 65 64 66 32 35 36 63 36 33 33 34 66 ad9eedf256c6334f
07a0: 38 65 39 34 38 64 32 35 32 64 35 65 30 65 37 36 8e948d252d5e0e76
07b0: 38 34 37 61 61 30 37 37 34 64 64 62 39 30 61 38 847aa0774ddb90a8
07c0: 34 32 31 39 30 64 32 63 35 35 38 62 34 62 38 33 42190d2c558b4b83
07d0: 34 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 40..tcltest::tes
07e0: 74 20 48 61 73 68 5f 53 48 41 33 2d 33 38 34 2d t Hash_SHA3-384-
07f0: 31 2e 37 20 7b 53 48 41 33 2d 33 38 34 7d 20 5c 1.7 {SHA3-384} \
0800: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0810: 48 41 33 5f 33 38 34 20 5c 0a 09 2d 73 65 74 75 HA3_384 \..-setu
0820: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 p {set data [str
0830: 69 6e 67 20 72 65 70 65 61 74 20 22 61 62 63 64 ing repeat "abcd
0840: 65 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 efghbcdefghicdef
0850: 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 ghijdefghijkefgh
0860: 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a ijklfghijklmghij
0870: 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 31 36 klmnhijklmno" 16
0880: 37 37 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 6f 64 777216]} \..-bod
0890: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
08a0: 64 69 67 65 73 74 20 53 48 41 33 2d 33 38 34 20 digest SHA3-384
08b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
08c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
08d0: 73 75 6c 74 20 61 30 34 32 39 36 66 34 66 63 61 sult a04296f4fca
08e0: 61 65 31 34 38 37 31 62 62 35 61 64 33 33 65 32 ae14871bb5ad33e2
08f0: 38 64 63 66 36 39 32 33 38 62 30 34 32 30 34 64 8dcf69238b04204d
0900: 39 39 34 31 62 38 37 38 32 65 38 31 36 64 30 31 9941b8782e816d01
0910: 34 62 63 62 37 35 34 30 65 34 61 66 35 34 66 33 4bcb7540e4af54f3
0920: 30 64 35 37 38 66 31 61 31 63 61 32 39 33 30 38 0d578f1a1ca29308
0930: 34 37 61 31 32 0a 0a 23 20 43 6c 65 61 6e 75 70 47a12..# Cleanup
0940: 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 .::tcltest::clea
0950: 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e 0a nupTests.return.