Artifact
0cd1f0de1993a5f83921548dfdcf0b197b8fb1002893db3a6de105f59c1790eb:
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 4b 45 32 35 36 2e from "SHAKE256.
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 4b 45 32 onstraint SHAKE2
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 4b 45 32 :digests] SHAKE2
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 4b 45 32 35 36 2d 31 2e 31 20 7b 53 48 41 HAKE256-1.1 {SHA
00d0: 4b 45 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 KE256} \..-const
00e0: 72 61 69 6e 74 73 20 53 48 41 4b 45 32 35 36 20 raints SHAKE256
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 4b 45 32 35 36 20 2d igest SHAKE256 -
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 34 36 62 39 64 64 32 62 30 62 61 38 ult 46b9dd2b0ba8
0160: 38 64 31 33 32 33 33 62 33 66 65 62 37 34 33 65 8d13233b3feb743e
0170: 65 62 32 34 33 66 63 64 35 32 65 61 36 32 62 38 eb243fcd52ea62b8
0180: 31 62 38 32 62 35 30 63 32 37 36 34 36 65 64 35 1b82b50c27646ed5
0190: 37 36 32 66 64 37 35 64 63 34 64 64 64 38 63 30 762fd75dc4ddd8c0
01a0: 66 32 30 30 63 62 30 35 30 31 39 64 36 37 62 35 f200cb05019d67b5
01b0: 39 32 66 36 66 63 38 32 31 63 34 39 34 37 39 61 92f6fc821c49479a
01c0: 62 34 38 36 34 30 32 39 32 65 61 63 62 33 62 37 b48640292eacb3b7
01d0: 63 34 62 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 c4be..tcltest::t
01e0: 65 73 74 20 48 61 73 68 5f 53 48 41 4b 45 32 35 est Hash_SHAKE25
01f0: 36 2d 31 2e 32 20 7b 53 48 41 4b 45 32 35 36 7d 6-1.2 {SHAKE256}
0200: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0210: 20 53 48 41 4b 45 32 35 36 20 5c 0a 09 2d 73 65 SHAKE256 \..-se
0220: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 54 tup {set data "T
0230: 68 65 20 71 75 69 63 6b 20 62 72 6f 77 6e 20 66 he quick brown f
0240: 6f 78 20 6a 75 6d 70 73 20 6f 76 65 72 20 74 68 ox jumps over th
0250: 65 20 6c 61 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 e lazy dog"} \..
0260: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0270: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 4b 45 st -digest SHAKE
0280: 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 256 -data $data}
0290: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
02a0: 20 2d 72 65 73 75 6c 74 20 32 66 36 37 31 33 34 -result 2f67134
02b0: 33 64 39 62 32 65 31 36 30 34 64 63 39 64 63 66 3d9b2e1604dc9dcf
02c0: 30 37 35 33 65 35 66 65 31 35 63 37 63 36 34 61 0753e5fe15c7c64a
02d0: 30 64 32 38 33 63 62 62 66 37 32 32 64 34 31 31 0d283cbbf722d411
02e0: 61 30 65 33 36 66 36 63 61 31 64 30 31 64 31 33 a0e36f6ca1d01d13
02f0: 36 39 61 32 33 35 33 39 63 64 38 30 66 37 63 30 69a23539cd80f7c0
0300: 35 34 62 36 65 35 64 61 66 39 63 39 36 32 63 61 54b6e5daf9c962ca
0310: 64 35 62 38 65 64 35 62 64 31 31 39 39 38 62 34 d5b8ed5bd11998b4
0320: 30 64 35 37 33 34 34 34 32 0a 0a 74 63 6c 74 65 0d5734442..tclte
0330: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0340: 41 4b 45 32 35 36 2d 31 2e 33 20 7b 53 48 41 4b AKE256-1.3 {SHAK
0350: 45 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 E256} \..-constr
0360: 61 69 6e 74 73 20 53 48 41 4b 45 32 35 36 20 5c aints SHAKE256 \
0370: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0380: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0390: 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 e hex [string re
03a0: 70 65 61 74 20 61 33 20 32 30 30 5d 5d 7d 20 5c peat a3 200]]} \
03b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
03c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
03d0: 4b 45 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 KE256 -data $dat
03e0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
03f0: 63 74 20 2d 72 65 73 75 6c 74 20 63 64 38 61 39 ct -result cd8a9
0400: 32 30 65 64 31 34 31 61 61 30 34 30 37 61 32 32 20ed141aa0407a22
0410: 64 35 39 32 38 38 36 35 32 65 39 64 39 66 31 61 d59288652e9d9f1a
0420: 37 65 65 30 63 31 65 37 63 31 63 61 36 39 39 34 7ee0c1e7c1ca6994
0430: 32 34 64 61 38 34 61 39 30 34 64 32 64 37 30 30 24da84a904d2d700
0440: 63 61 61 65 37 33 39 36 65 63 65 39 36 36 30 34 caae7396ece96604
0450: 34 34 30 35 37 37 64 61 34 66 33 61 61 32 32 61 440577da4f3aa22a
0460: 65 62 38 38 35 37 66 39 36 31 63 34 63 64 38 65 eb8857f961c4cd8e
0470: 30 36 66 30 61 65 36 36 31 30 62 0a 0a 23 20 43 06f0ae6610b..# C
0480: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
0490: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
04a0: 65 74 75 72 6e 0a eturn.