Artifact
1d727205ad72e8fdeeda100f4c03ae9a53cc5cb4f3954366b5e163d7bed9dfe0:
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 31 32 38 2e from "SHAKE128.
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 4b 45 31 32 38 straint SHAKE128
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 4b 45 31 32 38 igests] SHAKE128
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 4b 45 31 test Hash_SHAKE1
0150: 32 38 2d 31 2e 31 20 7b 53 48 41 4b 45 31 32 38 28-1.1 {SHAKE128
0160: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0170: 73 20 53 48 41 4b 45 31 32 38 20 5c 0a 09 2d 73 s SHAKE128 \..-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 4b 45 31 32 38 20 2d 64 61 74 61 20 SHAKE128 -data
01c0: 24 64 61 74 61 20 2d 6c 65 6e 67 74 68 20 33 32 $data -length 32
01d0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
01e0: 74 20 2d 72 65 73 75 6c 74 20 37 66 39 63 32 62 t -result 7f9c2b
01f0: 61 34 65 38 38 66 38 32 37 64 36 31 36 30 34 35 a4e88f827d616045
0200: 35 30 37 36 30 35 38 35 33 65 64 37 33 62 38 30 507605853ed73b80
0210: 39 33 66 36 65 66 62 63 38 38 65 62 31 61 36 65 93f6efbc88eb1a6e
0220: 61 63 66 61 36 36 65 66 32 36 0a 0a 74 63 6c 74 acfa66ef26..tclt
0230: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
0240: 48 41 4b 45 31 32 38 2d 31 2e 32 20 7b 53 48 41 HAKE128-1.2 {SHA
0250: 4b 45 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 KE128} \..-const
0260: 72 61 69 6e 74 73 20 53 48 41 4b 45 31 32 38 20 raints SHAKE128
0270: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0280: 61 74 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 ata "The quick b
0290: 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f rown fox jumps o
02a0: 76 65 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 ver the lazy dog
02b0: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
02c0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
02d0: 20 53 48 41 4b 45 31 32 38 20 2d 64 61 74 61 20 SHAKE128 -data
02e0: 24 64 61 74 61 20 2d 6c 65 6e 67 74 68 20 33 32 $data -length 32
02f0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0300: 74 20 2d 72 65 73 75 6c 74 20 66 34 32 30 32 65 t -result f4202e
0310: 33 63 35 38 35 32 66 39 31 38 32 61 30 34 33 30 3c5852f9182a0430
0320: 66 64 38 31 34 34 66 30 61 37 34 62 39 35 65 37 fd8144f0a74b95e7
0330: 34 31 37 65 63 61 65 31 37 64 62 30 66 38 63 66 417ecae17db0f8cf
0340: 65 65 64 30 65 33 65 36 36 65 0a 0a 74 63 6c 74 eed0e3e66e..tclt
0350: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
0360: 48 41 4b 45 31 32 38 2d 31 2e 33 20 7b 53 48 41 HAKE128-1.3 {SHA
0370: 4b 45 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 KE128} \..-const
0380: 72 61 69 6e 74 73 20 53 48 41 4b 45 31 32 38 20 raints SHAKE128
0390: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
03a0: 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f ata [binary deco
03b0: 64 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 de hex [string r
03c0: 65 70 65 61 74 20 61 33 20 32 30 30 5d 5d 7d 20 epeat a3 200]]}
03d0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
03e0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
03f0: 41 4b 45 31 32 38 20 2d 64 61 74 61 20 24 64 61 AKE128 -data $da
0400: 74 61 20 2d 6c 65 6e 67 74 68 20 33 32 7d 20 5c ta -length 32} \
0410: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0420: 72 65 73 75 6c 74 20 31 33 31 61 62 38 64 32 62 result 131ab8d2b
0430: 35 39 34 39 34 36 62 39 63 38 31 33 33 33 66 39 594946b9c81333f9
0440: 62 62 36 65 30 63 65 37 35 63 33 62 39 33 31 30 bb6e0ce75c3b9310
0450: 34 66 61 33 34 36 39 64 33 39 31 37 34 35 37 33 4fa3469d39174573
0460: 38 35 64 61 30 33 37 0a 0a 23 20 43 6c 65 61 6e 85da037..# Clean
0470: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
0480: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
0490: 6e 0a n.