Artifact
9fc3e3754f2fdabb46d3014edd6a57d3927225234863db74208bf0c6e0b17fc6:
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 32 34 2e from "SHA3-224.
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 32 34 straint SHA3_224
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 32 34 igests] SHA3-224
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: 32 34 2d 31 2e 31 20 7b 53 48 41 33 2d 32 32 34 24-1.1 {SHA3-224
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 32 34 20 5c 0a 09 2d 73 s SHA3_224 \..-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 32 34 20 2d 64 61 74 61 20 SHA3-224 -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 36 exact -result 6
01e0: 62 34 65 30 33 34 32 33 36 36 37 64 62 62 37 33 b4e03423667dbb73
01f0: 62 36 65 31 35 34 35 34 66 30 65 62 31 61 62 64 b6e15454f0eb1abd
0200: 34 35 39 37 66 39 61 31 62 30 37 38 65 33 66 35 4597f9a1b078e3f5
0210: 62 35 61 36 62 63 37 0a 0a 74 63 6c 74 65 73 74 b5a6bc7..tcltest
0220: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 ::test Hash_SHA3
0230: 2d 32 32 34 2d 31 2e 32 20 7b 53 48 41 33 2d 32 -224-1.2 {SHA3-2
0240: 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 24} \..-constrai
0250: 6e 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 nts SHA3_224 \..
0260: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0270: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0280: 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 65 hex [string repe
0290: 61 74 20 61 33 20 32 30 30 5d 5d 7d 20 5c 0a 09 at a3 200]]} \..
02a0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
02b0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d st -digest SHA3-
02c0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 224 -data $data}
02d0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
02e0: 20 2d 72 65 73 75 6c 74 20 39 33 37 36 38 31 36 -result 9376816
02f0: 61 62 61 35 30 33 66 37 32 66 39 36 63 65 37 65 aba503f72f96ce7e
0300: 62 36 35 61 63 30 39 35 64 65 65 65 33 62 65 34 b65ac095deee3be4
0310: 62 66 39 62 62 63 32 61 31 63 62 37 65 31 31 65 bf9bbc2a1cb7e11e
0320: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 0..tcltest::test
0330: 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 31 Hash_SHA3-224-1
0340: 2e 33 20 7b 53 48 41 33 2d 32 32 34 7d 20 5c 0a .3 {SHA3-224} \.
0350: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0360: 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 A3_224 \..-setup
0370: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 {set data "abc"
0380: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0390: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
03a0: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 SHA3-224 -data $
03b0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
03c0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 65 36 exact -result e6
03d0: 34 32 38 32 34 63 33 66 38 63 66 32 34 61 64 30 42824c3f8cf24ad0
03e0: 39 32 33 34 65 65 37 64 33 63 37 36 36 66 63 39 9234ee7d3c766fc9
03f0: 61 33 61 35 31 36 38 64 30 63 39 34 61 64 37 33 a3a5168d0c94ad73
0400: 62 34 36 66 64 66 0a 0a 74 63 6c 74 65 73 74 3a b46fdf..tcltest:
0410: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d :test Hash_SHA3-
0420: 32 32 34 2d 31 2e 34 20 7b 53 48 41 33 2d 32 32 224-1.4 {SHA3-22
0430: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0440: 74 73 20 53 48 41 33 5f 32 32 34 20 5c 0a 09 2d ts SHA3_224 \..-
0450: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0460: 22 61 62 63 64 62 63 64 65 63 64 65 66 64 65 66 "abcdbcdecdefdef
0470: 67 65 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a gefghfghighijhij
0480: 6b 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e kijkljklmklmnlmn
0490: 6f 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d omnopnopq"} \..-
04a0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
04b0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 2d 32 t -digest SHA3-2
04c0: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 24 -data $data}
04d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
04e0: 2d 72 65 73 75 6c 74 20 38 61 32 34 31 30 38 62 -result 8a24108b
04f0: 31 35 34 61 64 61 32 31 63 39 66 64 35 35 37 34 154ada21c9fd5574
0500: 34 39 34 34 37 39 62 61 35 63 37 65 37 61 62 37 494479ba5c7e7ab7
0510: 36 65 66 32 36 34 65 61 64 30 66 63 63 65 33 33 6ef264ead0fcce33
0520: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0530: 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d 31 2e Hash_SHA3-224-1.
0540: 35 20 7b 53 48 41 33 2d 32 32 34 7d 20 5c 0a 09 5 {SHA3-224} \..
0550: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0560: 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 3_224 \..-setup
0570: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 65 {set data "abcde
0580: 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 67 fghbcdefghicdefg
0590: 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 hijdefghijkefghi
05a0: 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b jklfghijklmghijk
05b0: 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d lmnhijklmnoijklm
05c0: 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f nopjklmnopqklmno
05d0: 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 pqrlmnopqrsmnopq
05e0: 72 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a rstnopqrstu"} \.
05f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0600: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
0610: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 -224 -data $data
0620: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0630: 74 20 2d 72 65 73 75 6c 74 20 35 34 33 65 36 38 t -result 543e68
0640: 36 38 65 31 36 36 36 63 31 61 36 34 33 36 33 30 68e1666c1a643630
0650: 64 66 37 37 33 36 37 61 65 35 61 36 32 61 38 35 df77367ae5a62a85
0660: 30 37 30 61 35 31 63 31 34 63 62 66 36 36 35 63 070a51c14cbf665c
0670: 62 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 bc..tcltest::tes
0680: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d t Hash_SHA3-224-
0690: 31 2e 36 20 7b 53 48 41 33 2d 32 32 34 7d 20 5c 1.6 {SHA3-224} \
06a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
06b0: 48 41 33 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 HA3_224 \..-setu
06c0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 p {set data [str
06d0: 69 6e 67 20 72 65 70 65 61 74 20 22 61 22 20 31 ing repeat "a" 1
06e0: 30 30 30 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 000000]} \..-bod
06f0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0700: 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 digest SHA3-224
0710: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0720: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0730: 73 75 6c 74 20 64 36 39 33 33 35 62 39 33 33 32 sult d69335b9332
0740: 35 31 39 32 65 35 31 36 61 39 31 32 65 36 64 31 5192e516a912e6d1
0750: 39 61 31 35 63 62 35 31 63 36 65 64 35 63 31 35 9a15cb51c6ed5c15
0760: 32 34 33 65 37 61 37 66 64 36 35 33 63 0a 0a 74 243e7a7fd653c..t
0770: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0780: 68 5f 53 48 41 33 2d 32 32 34 2d 31 2e 37 20 7b h_SHA3-224-1.7 {
0790: 53 48 41 33 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f SHA3-224} \..-co
07a0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 33 5f 32 nstraints SHA3_2
07b0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 24 \..-setup {se
07c0: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 t data [string r
07d0: 65 70 65 61 74 20 22 61 62 63 64 65 66 67 68 62 epeat "abcdefghb
07e0: 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 cdefghicdefghijd
07f0: 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 efghijkefghijklf
0800: 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 ghijklmghijklmnh
0810: 69 6a 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 ijklmno" 1677721
0820: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 6]} \..-body {tl
0830: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0840: 74 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 t SHA3-224 -data
0850: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0860: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0870: 63 36 64 36 36 65 37 37 61 65 32 38 39 35 36 36 c6d66e77ae289566
0880: 61 66 62 32 63 65 33 39 32 37 37 37 35 32 64 36 afb2ce39277752d6
0890: 64 61 32 61 33 63 34 36 30 31 30 66 31 65 30 61 da2a3c46010f1e0a
08a0: 30 39 37 30 66 66 36 30 0a 0a 23 20 43 6c 65 61 0970ff60..# Clea
08b0: 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 nup.::tcltest::c
08c0: 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 leanupTests.retu
08d0: 72 6e 0a rn.