Artifact
6da8f640282641189500dd3bc795b94c3d0795198b842366182e033ce908a954:
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 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 35 31 32 straint SHA3_512
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 35 31 32 igests] SHA3-512
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 35 test Hash_SHA3-5
0150: 31 32 2d 31 2e 31 20 7b 53 48 41 33 2d 35 31 32 12-1.1 {SHA3-512
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 35 31 32 20 5c 0a 09 2d 73 s SHA3_512 \..-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 35 31 32 20 2d 64 61 74 61 20 SHA3-512 -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 61 exact -result a
01e0: 36 39 66 37 33 63 63 61 32 33 61 39 61 63 35 63 69f73cca23a9ac5c
01f0: 38 62 35 36 37 64 63 31 38 35 61 37 35 36 65 39 8b567dc185a756e9
0200: 37 63 39 38 32 31 36 34 66 65 32 35 38 35 39 65 7c982164fe25859e
0210: 30 64 31 64 63 63 31 34 37 35 63 38 30 61 36 31 0d1dcc1475c80a61
0220: 35 62 32 31 32 33 61 66 31 66 35 66 39 34 63 31 5b2123af1f5f94c1
0230: 31 65 33 65 39 34 30 32 63 33 61 63 35 35 38 66 1e3e9402c3ac558f
0240: 35 30 30 31 39 39 64 39 35 62 36 64 33 65 33 30 500199d95b6d3e30
0250: 31 37 35 38 35 38 36 32 38 31 64 63 64 32 36 0a 1758586281dcd26.
0260: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0270: 61 73 68 5f 53 48 41 33 2d 35 31 32 2d 31 2e 32 ash_SHA3-512-1.2
0280: 20 7b 53 48 41 33 2d 35 31 32 7d 20 5c 0a 09 2d {SHA3-512} \..-
0290: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
02a0: 5f 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b _512 \..-setup {
02b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 set data [binary
02c0: 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 decode hex [str
02d0: 69 6e 67 20 72 65 70 65 61 74 20 61 33 20 32 30 ing repeat a3 20
02e0: 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 0]]} \..-body {t
02f0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0300: 73 74 20 53 48 41 33 2d 35 31 32 20 2d 64 61 74 st SHA3-512 -dat
0310: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0320: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0330: 20 65 37 36 64 66 61 64 32 32 30 38 34 61 38 62 e76dfad22084a8b
0340: 31 34 36 37 66 63 66 32 66 66 61 35 38 33 36 31 1467fcf2ffa58361
0350: 62 65 63 37 36 32 38 65 64 66 35 66 33 66 64 63 bec7628edf5f3fdc
0360: 30 65 34 38 30 35 64 63 34 38 63 61 65 65 63 61 0e4805dc48caeeca
0370: 38 31 62 37 63 31 33 63 33 30 61 64 66 35 32 61 81b7c13c30adf52a
0380: 33 36 35 39 35 38 34 37 33 39 61 32 64 66 34 36 3659584739a2df46
0390: 62 65 35 38 39 63 35 31 63 61 31 61 34 61 38 34 be589c51ca1a4a84
03a0: 31 36 64 66 36 35 34 35 61 31 63 65 38 62 61 30 16df6545a1ce8ba0
03b0: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 0..tcltest::test
03c0: 20 48 61 73 68 5f 53 48 41 33 2d 35 31 32 2d 31 Hash_SHA3-512-1
03d0: 2e 33 20 7b 53 48 41 33 2d 35 31 32 7d 20 5c 0a .3 {SHA3-512} \.
03e0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
03f0: 41 33 5f 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 A3_512 \..-setup
0400: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 {set data "abc"
0410: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0420: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0430: 53 48 41 33 2d 35 31 32 20 2d 64 61 74 61 20 24 SHA3-512 -data $
0440: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0450: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 37 exact -result b7
0460: 35 31 38 35 30 62 31 61 35 37 31 36 38 61 35 36 51850b1a57168a56
0470: 39 33 63 64 39 32 34 62 36 62 30 39 36 65 30 38 93cd924b6b096e08
0480: 66 36 32 31 38 32 37 34 34 34 66 37 30 64 38 38 f621827444f70d88
0490: 34 66 35 64 30 32 34 30 64 32 37 31 32 65 31 30 4f5d0240d2712e10
04a0: 65 31 31 36 65 39 31 39 32 61 66 33 63 39 31 61 e116e9192af3c91a
04b0: 37 65 63 35 37 36 34 37 65 33 39 33 34 30 35 37 7ec57647e3934057
04c0: 33 34 30 62 34 63 66 34 30 38 64 35 61 35 36 35 340b4cf408d5a565
04d0: 39 32 66 38 32 37 34 65 65 63 35 33 66 30 0a 0a 92f8274eec53f0..
04e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
04f0: 73 68 5f 53 48 41 33 2d 35 31 32 2d 31 2e 34 20 sh_SHA3-512-1.4
0500: 7b 53 48 41 33 2d 35 31 32 7d 20 5c 0a 09 2d 63 {SHA3-512} \..-c
0510: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f onstraints SHA3_
0520: 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 512 \..-setup {s
0530: 65 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 et data "abcdbcd
0540: 65 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 ecdefdefgefghfgh
0550: 69 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c ighijhijkijkljkl
0560: 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 mklmnlmnomnopnop
0570: 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c q"} \..-body {tl
0580: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0590: 74 20 53 48 41 33 2d 35 31 32 20 2d 64 61 74 61 t SHA3-512 -data
05a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
05b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
05c0: 30 34 61 33 37 31 65 38 34 65 63 66 62 35 62 38 04a371e84ecfb5b8
05d0: 62 37 37 63 62 34 38 36 31 30 66 63 61 38 31 38 b77cb48610fca818
05e0: 32 64 64 34 35 37 63 65 36 66 33 32 36 61 30 66 2dd457ce6f326a0f
05f0: 64 33 64 37 65 63 32 66 31 65 39 31 36 33 36 64 d3d7ec2f1e91636d
0600: 65 65 36 39 31 66 62 65 30 63 39 38 35 33 30 32 ee691fbe0c985302
0610: 62 61 31 62 30 64 38 64 63 37 38 63 30 38 36 33 ba1b0d8dc78c0863
0620: 34 36 62 35 33 33 62 34 39 63 30 33 30 64 39 39 46b533b49c030d99
0630: 61 32 37 64 61 66 31 31 33 39 64 36 65 37 35 65 a27daf1139d6e75e
0640: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0650: 48 61 73 68 5f 53 48 41 33 2d 35 31 32 2d 31 2e Hash_SHA3-512-1.
0660: 35 20 7b 53 48 41 33 2d 35 31 32 7d 20 5c 0a 09 5 {SHA3-512} \..
0670: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0680: 33 5f 35 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 3_512 \..-setup
0690: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 65 {set data "abcde
06a0: 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 fghbcdefghicdefg
06b0: 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 hijdefghijkefghi
06c0: 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b jklfghijklmghijk
06d0: 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d lmnhijklmnoijklm
06e0: 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f nopjklmnopqklmno
06f0: 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 pqrlmnopqrsmnopq
0700: 72 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a rstnopqrstu"} \.
0710: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0720: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
0730: 2d 35 31 32 20 2d 64 61 74 61 20 24 64 61 74 61 -512 -data $data
0740: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0750: 74 20 2d 72 65 73 75 6c 74 20 61 66 65 62 62 32 t -result afebb2
0760: 65 66 35 34 32 65 36 35 37 39 63 35 30 63 61 64 ef542e6579c50cad
0770: 30 36 64 32 65 35 37 38 66 39 66 38 64 64 36 38 06d2e578f9f8dd68
0780: 38 31 64 37 64 63 38 32 34 64 32 36 33 36 30 66 81d7dc824d26360f
0790: 65 65 62 66 31 38 61 34 66 61 37 33 65 33 32 36 eebf18a4fa73e326
07a0: 31 31 32 32 39 34 38 65 66 63 66 64 34 39 32 65 1122948efcfd492e
07b0: 37 34 65 38 32 65 32 31 38 39 65 64 30 66 62 34 74e82e2189ed0fb4
07c0: 34 30 64 31 38 37 66 33 38 32 32 37 30 63 62 34 40d187f382270cb4
07d0: 35 35 66 32 31 64 64 31 38 35 0a 0a 74 63 6c 74 55f21dd185..tclt
07e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
07f0: 48 41 33 2d 35 31 32 2d 31 2e 36 20 7b 53 48 41 HA3-512-1.6 {SHA
0800: 33 2d 35 31 32 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-512} \..-const
0810: 72 61 69 6e 74 73 20 53 48 41 33 5f 35 31 32 20 raints SHA3_512
0820: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0830: 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 ata [string repe
0840: 61 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d at "a" 1000000]}
0850: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0860: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0870: 48 41 33 2d 35 31 32 20 2d 64 61 74 61 20 24 64 HA3-512 -data $d
0880: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0890: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 63 33 xact -result 3c3
08a0: 61 38 37 36 64 61 31 34 30 33 34 61 62 36 30 36 a876da14034ab606
08b0: 32 37 63 30 37 37 62 62 39 38 66 37 65 31 32 30 27c077bb98f7e120
08c0: 61 32 61 35 33 37 30 32 31 32 64 66 66 62 33 33 a2a5370212dffb33
08d0: 38 35 61 31 38 64 34 66 33 38 38 35 39 65 64 33 85a18d4f38859ed3
08e0: 31 31 64 30 61 39 64 35 31 34 31 63 65 39 63 63 11d0a9d5141ce9cc
08f0: 35 63 36 36 65 65 36 38 39 62 32 36 36 61 38 61 5c66ee689b266a8a
0900: 61 31 38 61 63 65 38 32 38 32 61 30 65 30 64 62 a18ace8282a0e0db
0910: 35 39 36 63 39 30 62 30 61 37 62 38 37 0a 0a 74 596c90b0a7b87..t
0920: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0930: 68 5f 53 48 41 33 2d 35 31 32 2d 31 2e 37 20 7b h_SHA3-512-1.7 {
0940: 53 48 41 33 2d 35 31 32 7d 20 5c 0a 09 2d 63 6f SHA3-512} \..-co
0950: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 35 nstraints SHA3_5
0960: 31 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 12 \..-setup {se
0970: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 t data [string r
0980: 65 70 65 61 74 20 22 61 62 63 64 65 66 67 68 62 epeat "abcdefghb
0990: 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 cdefghicdefghijd
09a0: 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 efghijkefghijklf
09b0: 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 ghijklmghijklmnh
09c0: 69 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 ijklmno" 1677721
09d0: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 6]} \..-body {tl
09e0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
09f0: 74 20 53 48 41 33 2d 35 31 32 20 2d 64 61 74 61 t SHA3-512 -data
0a00: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0a10: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0a20: 32 33 35 66 66 64 35 33 35 30 34 65 66 38 33 36 235ffd53504ef836
0a30: 61 31 33 34 32 62 34 38 38 66 34 38 33 62 33 39 a1342b488f483b39
0a40: 36 65 61 62 62 66 65 36 34 32 63 66 37 38 65 65 6eabbfe642cf78ee
0a50: 30 64 33 31 66 65 65 63 37 38 38 62 32 33 64 30 0d31feec788b23d0
0a60: 64 31 38 64 35 63 33 33 39 35 35 30 64 64 35 39 d18d5c339550dd59
0a70: 35 38 61 35 30 30 64 34 62 39 35 33 36 33 64 61 58a500d4b95363da
0a80: 31 62 35 66 61 31 38 61 66 66 63 31 62 61 62 32 1b5fa18affc1bab2
0a90: 32 39 32 64 63 36 33 62 37 64 38 35 30 39 37 63 292dc63b7d85097c
0aa0: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 ..# Cleanup.::tc
0ab0: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 ltest::cleanupTe
0ac0: 73 74 73 0a 72 65 74 75 72 6e 0a sts.return.