Artifact
8582fba2c4e8f92a5a353a4ccebde8141fe52e850cbfbed1eea0d7a82da06948:
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 35 31 32 2e from "SHA3-512.
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 35 onstraint SHA3-5
0070: 31 32 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 12 [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 35 :digests] SHA3-5
00a0: 31 32 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 12] > -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 35 31 32 2d 31 2e 31 20 7b 53 48 41 HA3-512-1.1 {SHA
00d0: 33 2d 35 31 32 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-512} \..-const
00e0: 72 61 69 6e 74 73 20 53 48 41 33 2d 35 31 32 20 raints SHA3-512
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 35 31 32 20 2d igest SHA3-512 -
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 36 39 66 37 33 63 63 61 32 33 61 ult a69f73cca23a
0160: 39 61 63 35 63 38 62 35 36 37 64 63 31 38 35 61 9ac5c8b567dc185a
0170: 37 35 36 65 39 37 63 39 38 32 31 36 34 66 65 32 756e97c982164fe2
0180: 35 38 35 39 65 30 64 31 64 63 63 31 34 37 35 63 5859e0d1dcc1475c
0190: 38 30 61 36 31 35 62 32 31 32 33 61 66 31 66 35 80a615b2123af1f5
01a0: 66 39 34 63 31 31 65 33 65 39 34 30 32 63 33 61 f94c11e3e9402c3a
01b0: 63 35 35 38 66 35 30 30 31 39 39 64 39 35 62 36 c558f500199d95b6
01c0: 64 33 65 33 30 31 37 35 38 35 38 36 32 38 31 64 d3e301758586281d
01d0: 63 64 32 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 cd26..tcltest::t
01e0: 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 35 31 est Hash_SHA3-51
01f0: 32 2d 31 2e 32 20 7b 53 48 41 33 2d 35 31 32 7d 2-1.2 {SHA3-512}
0200: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0210: 20 53 48 41 33 2d 35 31 32 20 5c 0a 09 2d 73 65 SHA3-512 \..-se
0220: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
0230: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
0240: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0250: 61 33 20 32 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f a3 200]]} \..-bo
0260: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0270: 2d 64 69 67 65 73 74 20 53 48 41 33 2d 35 31 32 -digest SHA3-512
0280: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0290: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
02a0: 65 73 75 6c 74 20 65 37 36 64 66 61 64 32 32 30 esult e76dfad220
02b0: 38 34 61 38 62 31 34 36 37 66 63 66 32 66 66 61 84a8b1467fcf2ffa
02c0: 35 38 33 36 31 62 65 63 37 36 32 38 65 64 66 35 58361bec7628edf5
02d0: 66 33 66 64 63 30 65 34 38 30 35 64 63 34 38 63 f3fdc0e4805dc48c
02e0: 61 65 65 63 61 38 31 62 37 63 31 33 63 33 30 61 aeeca81b7c13c30a
02f0: 64 66 35 32 61 33 36 35 39 35 38 34 37 33 39 61 df52a3659584739a
0300: 32 64 66 34 36 62 65 35 38 39 63 35 31 63 61 31 2df46be589c51ca1
0310: 61 34 61 38 34 31 36 64 66 36 35 34 35 61 31 63 a4a8416df6545a1c
0320: 65 38 62 61 30 30 0a 0a 74 63 6c 74 65 73 74 3a e8ba00..tcltest:
0330: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d :test Hash_SHA3-
0340: 35 31 32 2d 31 2e 33 20 7b 53 48 41 33 2d 35 31 512-1.3 {SHA3-51
0350: 32 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 2} \..-constrain
0360: 74 73 20 53 48 41 33 2d 35 31 32 20 5c 0a 09 2d ts SHA3-512 \..-
0370: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0380: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 "abc"} \..-body
0390: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
03a0: 67 65 73 74 20 53 48 41 33 2d 35 31 32 20 2d 64 gest SHA3-512 -d
03b0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
03c0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
03d0: 6c 74 20 62 37 35 31 38 35 30 62 31 61 35 37 31 lt b751850b1a571
03e0: 36 38 61 35 36 39 33 63 64 39 32 34 62 36 62 30 68a5693cd924b6b0
03f0: 39 36 65 30 38 66 36 32 31 38 32 37 34 34 34 66 96e08f621827444f
0400: 37 30 64 38 38 34 66 35 64 30 32 34 30 64 32 37 70d884f5d0240d27
0410: 31 32 65 31 30 65 31 31 36 65 39 31 39 32 61 66 12e10e116e9192af
0420: 33 63 39 31 61 37 65 63 35 37 36 34 37 65 33 39 3c91a7ec57647e39
0430: 33 34 30 35 37 33 34 30 62 34 63 66 34 30 38 64 34057340b4cf408d
0440: 35 61 35 36 35 39 32 66 38 32 37 34 65 65 63 35 5a56592f8274eec5
0450: 33 66 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 3f0..tcltest::te
0460: 73 74 20 48 61 73 68 5f 53 48 41 33 2d 35 31 32 st Hash_SHA3-512
0470: 2d 31 2e 34 20 7b 53 48 41 33 2d 35 31 32 7d 20 -1.4 {SHA3-512}
0480: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0490: 53 48 41 33 2d 35 31 32 20 5c 0a 09 2d 73 65 74 SHA3-512 \..-set
04a0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
04b0: 63 64 62 63 64 65 63 64 65 66 64 65 66 67 65 66 cdbcdecdefdefgef
04c0: 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a ghfghighijhijkij
04d0: 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e kljklmklmnlmnomn
04e0: 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 opnopq"} \..-bod
04f0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0500: 64 69 67 65 73 74 20 53 48 41 33 2d 35 31 32 20 digest SHA3-512
0510: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0520: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0530: 73 75 6c 74 20 30 34 61 33 37 31 65 38 34 65 63 sult 04a371e84ec
0540: 66 62 35 62 38 62 37 37 63 62 34 38 36 31 30 66 fb5b8b77cb48610f
0550: 63 61 38 31 38 32 64 64 34 35 37 63 65 36 66 33 ca8182dd457ce6f3
0560: 32 36 61 30 66 64 33 64 37 65 63 32 66 31 65 39 26a0fd3d7ec2f1e9
0570: 31 36 33 36 64 65 65 36 39 31 66 62 65 30 63 39 1636dee691fbe0c9
0580: 38 35 33 30 32 62 61 31 62 30 64 38 64 63 37 38 85302ba1b0d8dc78
0590: 63 30 38 36 33 34 36 62 35 33 33 62 34 39 63 30 c086346b533b49c0
05a0: 33 30 64 39 39 61 32 37 64 61 66 31 31 33 39 64 30d99a27daf1139d
05b0: 36 65 37 35 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 6e75e..tcltest::
05c0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 35 test Hash_SHA3-5
05d0: 31 32 2d 31 2e 35 20 7b 53 48 41 33 2d 35 31 32 12-1.5 {SHA3-512
05e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
05f0: 73 20 53 48 41 33 2d 35 31 32 20 5c 0a 09 2d 73 s SHA3-512 \..-s
0600: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0610: 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 69 abcdefghbcdefghi
0620: 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b cdefghijdefghijk
0630: 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d efghijklfghijklm
0640: 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f ghijklmnhijklmno
0650: 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 ijklmnopjklmnopq
0660: 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 klmnopqrlmnopqrs
0670: 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 mnopqrstnopqrstu
0680: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0690: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
06a0: 20 53 48 41 33 2d 35 31 32 20 2d 64 61 74 61 20 SHA3-512 -data
06b0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
06c0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 exact -result a
06d0: 66 65 62 62 32 65 66 35 34 32 65 36 35 37 39 63 febb2ef542e6579c
06e0: 35 30 63 61 64 30 36 64 32 65 35 37 38 66 39 66 50cad06d2e578f9f
06f0: 38 64 64 36 38 38 31 64 37 64 63 38 32 34 64 32 8dd6881d7dc824d2
0700: 36 33 36 30 66 65 65 62 66 31 38 61 34 66 61 37 6360feebf18a4fa7
0710: 33 65 33 32 36 31 31 32 32 39 34 38 65 66 63 66 3e3261122948efcf
0720: 64 34 39 32 65 37 34 65 38 32 65 32 31 38 39 65 d492e74e82e2189e
0730: 64 30 66 62 34 34 30 64 31 38 37 66 33 38 32 32 d0fb440d187f3822
0740: 37 30 63 62 34 35 35 66 32 31 64 64 31 38 35 0a 70cb455f21dd185.
0750: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0760: 61 73 68 5f 53 48 41 33 2d 35 31 32 2d 31 2e 36 ash_SHA3-512-1.6
0770: 20 7b 53 48 41 33 2d 35 31 32 7d 20 5c 0a 09 2d {SHA3-512} \..-
0780: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
0790: 2d 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b -512 \..-setup {
07a0: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
07b0: 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 repeat "a" 1000
07c0: 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 000]} \..-body {
07d0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
07e0: 65 73 74 20 53 48 41 33 2d 35 31 32 20 2d 64 61 est SHA3-512 -da
07f0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0800: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0810: 74 20 33 63 33 61 38 37 36 64 61 31 34 30 33 34 t 3c3a876da14034
0820: 61 62 36 30 36 32 37 63 30 37 37 62 62 39 38 66 ab60627c077bb98f
0830: 37 65 31 32 30 61 32 61 35 33 37 30 32 31 32 64 7e120a2a5370212d
0840: 66 66 62 33 33 38 35 61 31 38 64 34 66 33 38 38 ffb3385a18d4f388
0850: 35 39 65 64 33 31 31 64 30 61 39 64 35 31 34 31 59ed311d0a9d5141
0860: 63 65 39 63 63 35 63 36 36 65 65 36 38 39 62 32 ce9cc5c66ee689b2
0870: 36 36 61 38 61 61 31 38 61 63 65 38 32 38 32 61 66a8aa18ace8282a
0880: 30 65 30 64 62 35 39 36 63 39 30 62 30 61 37 62 0e0db596c90b0a7b
0890: 38 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 87..tcltest::tes
08a0: 74 20 48 61 73 68 5f 53 48 41 33 2d 35 31 32 2d t Hash_SHA3-512-
08b0: 31 2e 37 20 7b 53 48 41 33 2d 35 31 32 7d 20 5c 1.7 {SHA3-512} \
08c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
08d0: 48 41 33 2d 35 31 32 20 5c 0a 09 2d 73 65 74 75 HA3-512 \..-setu
08e0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 p {set data [str
08f0: 69 6e 67 20 72 65 70 65 61 74 20 22 61 62 63 64 ing repeat "abcd
0900: 65 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 efghbcdefghicdef
0910: 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 ghijdefghijkefgh
0920: 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a ijklfghijklmghij
0930: 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 31 36 klmnhijklmno" 16
0940: 37 37 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 6f 64 777216]} \..-bod
0950: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0960: 64 69 67 65 73 74 20 53 48 41 33 2d 35 31 32 20 digest SHA3-512
0970: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0980: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0990: 73 75 6c 74 20 32 33 35 66 66 64 35 33 35 30 34 sult 235ffd53504
09a0: 65 66 38 33 36 61 31 33 34 32 62 34 38 38 66 34 ef836a1342b488f4
09b0: 38 33 62 33 39 36 65 61 62 62 66 65 36 34 32 63 83b396eabbfe642c
09c0: 66 37 38 65 65 30 64 33 31 66 65 65 63 37 38 38 f78ee0d31feec788
09d0: 62 32 33 64 30 64 31 38 64 35 63 33 33 39 35 35 b23d0d18d5c33955
09e0: 30 64 64 35 39 35 38 61 35 30 30 64 34 62 39 35 0dd5958a500d4b95
09f0: 33 36 33 64 61 31 62 35 66 61 31 38 61 66 66 63 363da1b5fa18affc
0a00: 31 62 61 62 32 32 39 32 64 63 36 33 62 37 64 38 1bab2292dc63b7d8
0a10: 35 30 39 37 63 0a 0a 5097c..