Artifact
da9a5731947cad067b1fe74d01c95fa039e86e40e5a8d684af9bc099580db15a:
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 32 35 36 2e from "SHA3-256.
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 2d 32 onstraint SHA3-2
0070: 35 36 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 56 [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 32 :digests] SHA3-2
00a0: 35 36 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 56] > -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 32 35 36 2d 31 2e 31 20 7b 53 48 41 HA3-256-1.1 {SHA
00d0: 33 2d 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-256} \..-const
00e0: 72 61 69 6e 74 73 20 53 48 41 33 2d 32 35 36 20 raints SHA3-256
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 32 35 36 20 2d igest SHA3-256 -
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 61 37 66 66 63 36 66 38 62 66 31 65 ult a7ffc6f8bf1e
0160: 64 37 36 36 35 31 63 31 34 37 35 36 61 30 36 31 d76651c14756a061
0170: 64 36 36 32 66 35 38 30 66 66 34 64 65 34 33 62 d662f580ff4de43b
0180: 34 39 66 61 38 32 64 38 30 61 34 62 38 30 66 38 49fa82d80a4b80f8
0190: 34 33 34 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 434a..tcltest::t
01a0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 35 est Hash_SHA3-25
01b0: 36 2d 31 2e 32 20 7b 53 48 41 33 2d 32 35 36 7d 6-1.2 {SHA3-256}
01c0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
01d0: 20 53 48 41 33 2d 32 35 36 20 5c 0a 09 2d 73 65 SHA3-256 \..-se
01e0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
01f0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0200: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0210: 61 33 20 32 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f a3 200]]} \..-bo
0220: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0230: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 35 36 -digest SHA3-256
0240: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0250: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0260: 65 73 75 6c 74 20 37 39 66 33 38 61 64 65 63 35 esult 79f38adec5
0270: 63 32 30 33 30 37 61 39 38 65 66 37 36 65 38 33 c20307a98ef76e83
0280: 32 34 61 66 62 66 64 34 36 63 66 64 38 31 62 32 24afbfd46cfd81b2
0290: 32 65 33 39 37 33 63 36 35 66 61 31 62 64 39 64 2e3973c65fa1bd9d
02a0: 65 33 31 37 38 37 0a 0a 74 63 6c 74 65 73 74 3a e31787..tcltest:
02b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d :test Hash_SHA3-
02c0: 32 35 36 2d 31 2e 33 20 7b 53 48 41 33 2d 32 35 256-1.3 {SHA3-25
02d0: 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 6} \..-constrain
02e0: 74 73 20 53 48 41 33 2d 32 35 36 20 5c 0a 09 2d ts SHA3-256 \..-
02f0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0300: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 "abc"} \..-body
0310: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0320: 67 65 73 74 20 53 48 41 33 2d 32 35 36 20 2d 64 gest SHA3-256 -d
0330: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0340: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0350: 6c 74 20 33 61 39 38 35 64 61 37 34 66 65 32 32 lt 3a985da74fe22
0360: 35 62 32 30 34 35 63 31 37 32 64 36 62 64 33 39 5b2045c172d6bd39
0370: 30 62 64 38 35 35 66 30 38 36 65 33 65 39 64 35 0bd855f086e3e9d5
0380: 32 35 62 34 36 62 66 65 32 34 35 31 31 34 33 31 25b46bfe24511431
0390: 35 33 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 532..tcltest::te
03a0: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 35 36 st Hash_SHA3-256
03b0: 2d 31 2e 34 20 7b 53 48 41 33 2d 32 35 36 7d 20 -1.4 {SHA3-256}
03c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
03d0: 53 48 41 33 2d 32 35 36 20 5c 0a 09 2d 73 65 74 SHA3-256 \..-set
03e0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
03f0: 63 64 62 63 64 65 63 64 65 66 64 65 66 67 65 66 cdbcdecdefdefgef
0400: 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a ghfghighijhijkij
0410: 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e kljklmklmnlmnomn
0420: 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 opnopq"} \..-bod
0430: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0440: 64 69 67 65 73 74 20 53 48 41 33 2d 32 35 36 20 digest SHA3-256
0450: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0460: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0470: 73 75 6c 74 20 34 31 63 30 64 62 61 32 61 39 64 sult 41c0dba2a9d
0480: 36 32 34 30 38 34 39 31 30 30 33 37 36 61 38 32 6240849100376a82
0490: 33 35 65 32 63 38 32 65 31 62 39 39 39 38 61 39 35e2c82e1b9998a9
04a0: 39 39 65 32 31 64 62 33 32 64 64 39 37 34 39 36 99e21db32dd97496
04b0: 64 33 33 37 36 0a 0a 74 63 6c 74 65 73 74 3a 3a d3376..tcltest::
04c0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 test Hash_SHA3-2
04d0: 35 36 2d 31 2e 35 20 7b 53 48 41 33 2d 32 35 36 56-1.5 {SHA3-256
04e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
04f0: 73 20 53 48 41 33 2d 32 35 36 20 5c 0a 09 2d 73 s SHA3-256 \..-s
0500: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0510: 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 69 abcdefghbcdefghi
0520: 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b cdefghijdefghijk
0530: 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d efghijklfghijklm
0540: 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f ghijklmnhijklmno
0550: 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 ijklmnopjklmnopq
0560: 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 klmnopqrlmnopqrs
0570: 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 mnopqrstnopqrstu
0580: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0590: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
05a0: 20 53 48 41 33 2d 32 35 36 20 2d 64 61 74 61 20 SHA3-256 -data
05b0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
05c0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 exact -result 9
05d0: 31 36 66 36 30 36 31 66 65 38 37 39 37 34 31 63 16f6061fe879741c
05e0: 61 36 34 36 39 62 34 33 39 37 31 64 66 64 62 32 a6469b43971dfdb2
05f0: 38 62 31 61 33 32 64 63 33 36 63 62 33 32 35 34 8b1a32dc36cb3254
0600: 65 38 31 32 62 65 32 37 61 61 64 31 64 31 38 0a e812be27aad1d18.
0610: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0620: 61 73 68 5f 53 48 41 33 2d 32 35 36 2d 31 2e 36 ash_SHA3-256-1.6
0630: 20 7b 53 48 41 33 2d 32 35 36 7d 20 5c 0a 09 2d {SHA3-256} \..-
0640: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
0650: 2d 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b -256 \..-setup {
0660: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
0670: 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 repeat "a" 1000
0680: 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 000]} \..-body {
0690: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
06a0: 65 73 74 20 53 48 41 33 2d 32 35 36 20 2d 64 61 est SHA3-256 -da
06b0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
06c0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
06d0: 74 20 35 63 38 38 37 35 61 65 34 37 34 61 33 36 t 5c8875ae474a36
06e0: 33 34 62 61 34 66 64 35 35 65 63 38 35 62 66 66 34ba4fd55ec85bff
06f0: 64 36 36 31 66 33 32 61 63 61 37 35 63 36 64 36 d661f32aca75c6d6
0700: 39 39 64 30 63 64 63 62 36 63 31 31 35 38 39 31 99d0cdcb6c115891
0710: 63 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 c1..tcltest::tes
0720: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 35 36 2d t Hash_SHA3-256-
0730: 31 2e 37 20 7b 53 48 41 33 2d 32 35 36 7d 20 5c 1.7 {SHA3-256} \
0740: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0750: 48 41 33 2d 32 35 36 20 5c 0a 09 2d 73 65 74 75 HA3-256 \..-setu
0760: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 p {set data [str
0770: 69 6e 67 20 72 65 70 65 61 74 20 22 61 62 63 64 ing repeat "abcd
0780: 65 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 efghbcdefghicdef
0790: 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 ghijdefghijkefgh
07a0: 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a ijklfghijklmghij
07b0: 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 31 36 klmnhijklmno" 16
07c0: 37 37 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 6f 64 777216]} \..-bod
07d0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
07e0: 64 69 67 65 73 74 20 53 48 41 33 2d 32 35 36 20 digest SHA3-256
07f0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0800: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0810: 73 75 6c 74 20 65 63 62 62 63 34 32 63 62 66 32 sult ecbbc42cbf2
0820: 39 36 36 30 33 61 63 62 32 63 36 62 63 30 34 31 96603acb2c6bc041
0830: 30 65 66 34 33 37 38 62 61 66 62 32 34 62 37 31 0ef4378bafb24b71
0840: 30 33 35 37 66 31 32 64 66 36 30 37 37 35 38 62 0357f12df607758b
0850: 33 33 65 32 62 0a 0a 33e2b..