Artifact
f3a4dd335c2b611f20101a065a05076d5abb1ea3033d426f54230af6dbf55cdd:
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 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 32 35 36 straint SHA3_256
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 32 35 36 igests] SHA3-256
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 32 test Hash_SHA3-2
0150: 35 36 2d 31 2e 31 20 7b 53 48 41 33 2d 32 35 36 56-1.1 {SHA3-256
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 32 35 36 20 5c 0a 09 2d 73 s SHA3_256 \..-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 32 35 36 20 2d 64 61 74 61 20 SHA3-256 -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: 37 66 66 63 36 66 38 62 66 31 65 64 37 36 36 35 7ffc6f8bf1ed7665
01f0: 31 63 31 34 37 35 36 61 30 36 31 64 36 36 32 66 1c14756a061d662f
0200: 35 38 30 66 66 34 64 65 34 33 62 34 39 66 61 38 580ff4de43b49fa8
0210: 32 64 38 30 61 34 62 38 30 66 38 34 33 34 61 0a 2d80a4b80f8434a.
0220: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0230: 61 73 68 5f 53 48 41 33 2d 32 35 36 2d 31 2e 32 ash_SHA3-256-1.2
0240: 20 7b 53 48 41 33 2d 32 35 36 7d 20 5c 0a 09 2d {SHA3-256} \..-
0250: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 constraints SHA3
0260: 5f 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b _256 \..-setup {
0270: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 set data [binary
0280: 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 decode hex [str
0290: 69 6e 67 20 72 65 70 65 61 74 20 61 33 20 32 30 ing repeat a3 20
02a0: 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 0]]} \..-body {t
02b0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
02c0: 73 74 20 53 48 41 33 2d 32 35 36 20 2d 64 61 74 st SHA3-256 -dat
02d0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
02e0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
02f0: 20 37 39 66 33 38 61 64 65 63 35 63 32 30 33 30 79f38adec5c2030
0300: 37 61 39 38 65 66 37 36 65 38 33 32 34 61 66 62 7a98ef76e8324afb
0310: 66 64 34 36 63 66 64 38 31 62 32 32 65 33 39 37 fd46cfd81b22e397
0320: 33 63 36 35 66 61 31 62 64 39 64 65 33 31 37 38 3c65fa1bd9de3178
0330: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 7..tcltest::test
0340: 20 48 61 73 68 5f 53 48 41 33 2d 32 35 36 2d 31 Hash_SHA3-256-1
0350: 2e 33 20 7b 53 48 41 33 2d 32 35 36 7d 20 5c 0a .3 {SHA3-256} \.
0360: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0370: 41 33 5f 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 A3_256 \..-setup
0380: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 {set data "abc"
0390: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
03a0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
03b0: 53 48 41 33 2d 32 35 36 20 2d 64 61 74 61 20 24 SHA3-256 -data $
03c0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
03d0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 61 exact -result 3a
03e0: 39 38 35 64 61 37 34 66 65 32 32 35 62 32 30 34 985da74fe225b204
03f0: 35 63 31 37 32 64 36 62 64 33 39 30 62 64 38 35 5c172d6bd390bd85
0400: 35 66 30 38 36 65 33 65 39 64 35 32 35 62 34 36 5f086e3e9d525b46
0410: 62 66 65 32 34 35 31 31 34 33 31 35 33 32 0a 0a bfe24511431532..
0420: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0430: 73 68 5f 53 48 41 33 2d 32 35 36 2d 31 2e 34 20 sh_SHA3-256-1.4
0440: 7b 53 48 41 33 2d 32 35 36 7d 20 5c 0a 09 2d 63 {SHA3-256} \..-c
0450: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f onstraints SHA3_
0460: 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 256 \..-setup {s
0470: 65 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 et data "abcdbcd
0480: 65 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 ecdefdefgefghfgh
0490: 69 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c ighijhijkijkljkl
04a0: 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 mklmnlmnomnopnop
04b0: 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c q"} \..-body {tl
04c0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
04d0: 74 20 53 48 41 33 2d 32 35 36 20 2d 64 61 74 61 t SHA3-256 -data
04e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
04f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0500: 34 31 63 30 64 62 61 32 61 39 64 36 32 34 30 38 41c0dba2a9d62408
0510: 34 39 31 30 30 33 37 36 61 38 32 33 35 65 32 63 49100376a8235e2c
0520: 38 32 65 31 62 39 39 39 38 61 39 39 39 65 32 31 82e1b9998a999e21
0530: 64 62 33 32 64 64 39 37 34 39 36 64 33 33 37 36 db32dd97496d3376
0540: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0550: 48 61 73 68 5f 53 48 41 33 2d 32 35 36 2d 31 2e Hash_SHA3-256-1.
0560: 35 20 7b 53 48 41 33 2d 32 35 36 7d 20 5c 0a 09 5 {SHA3-256} \..
0570: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0580: 33 5f 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 3_256 \..-setup
0590: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 65 {set data "abcde
05a0: 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 fghbcdefghicdefg
05b0: 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 hijdefghijkefghi
05c0: 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b jklfghijklmghijk
05d0: 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d lmnhijklmnoijklm
05e0: 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f nopjklmnopqklmno
05f0: 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 pqrlmnopqrsmnopq
0600: 72 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a rstnopqrstu"} \.
0610: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0620: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
0630: 2d 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 -256 -data $data
0640: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0650: 74 20 2d 72 65 73 75 6c 74 20 39 31 36 66 36 30 t -result 916f60
0660: 36 31 66 65 38 37 39 37 34 31 63 61 36 34 36 39 61fe879741ca6469
0670: 62 34 33 39 37 31 64 66 64 62 32 38 62 31 61 33 b43971dfdb28b1a3
0680: 32 64 63 33 36 63 62 33 32 35 34 65 38 31 32 62 2dc36cb3254e812b
0690: 65 32 37 61 61 64 31 64 31 38 0a 0a 74 63 6c 74 e27aad1d18..tclt
06a0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
06b0: 48 41 33 2d 32 35 36 2d 31 2e 36 20 7b 53 48 41 HA3-256-1.6 {SHA
06c0: 33 2d 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-256} \..-const
06d0: 72 61 69 6e 74 73 20 53 48 41 33 5f 32 35 36 20 raints SHA3_256
06e0: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
06f0: 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 ata [string repe
0700: 61 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d at "a" 1000000]}
0710: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0720: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0730: 48 41 33 2d 32 35 36 20 2d 64 61 74 61 20 24 64 HA3-256 -data $d
0740: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0750: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 63 38 xact -result 5c8
0760: 38 37 35 61 65 34 37 34 61 33 36 33 34 62 61 34 875ae474a3634ba4
0770: 66 64 35 35 65 63 38 35 62 66 66 64 36 36 31 66 fd55ec85bffd661f
0780: 33 32 61 63 61 37 35 63 36 64 36 39 39 64 30 63 32aca75c6d699d0c
0790: 64 63 62 36 63 31 31 35 38 39 31 63 31 0a 0a 74 dcb6c115891c1..t
07a0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
07b0: 68 5f 53 48 41 33 2d 32 35 36 2d 31 2e 37 20 7b h_SHA3-256-1.7 {
07c0: 53 48 41 33 2d 32 35 36 7d 20 5c 0a 09 2d 63 6f SHA3-256} \..-co
07d0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 nstraints SHA3_2
07e0: 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 56 \..-setup {se
07f0: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 t data [string r
0800: 65 70 65 61 74 20 22 61 62 63 64 65 66 67 68 62 epeat "abcdefghb
0810: 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 cdefghicdefghijd
0820: 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 efghijkefghijklf
0830: 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 ghijklmghijklmnh
0840: 69 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 ijklmno" 1677721
0850: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 6]} \..-body {tl
0860: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0870: 74 20 53 48 41 33 2d 32 35 36 20 2d 64 61 74 61 t SHA3-256 -data
0880: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0890: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
08a0: 65 63 62 62 63 34 32 63 62 66 32 39 36 36 30 33 ecbbc42cbf296603
08b0: 61 63 62 32 63 36 62 63 30 34 31 30 65 66 34 33 acb2c6bc0410ef43
08c0: 37 38 62 61 66 62 32 34 62 37 31 30 33 35 37 66 78bafb24b710357f
08d0: 31 32 64 66 36 30 37 37 35 38 62 33 33 65 32 62 12df607758b33e2b
08e0: 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 ..# Cleanup.::tc
08f0: 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 ltest::cleanupTe
0900: 73 74 73 0a 72 65 74 75 72 6e 0a sts.return.