Artifact
5821d5313ae968ca8d66963524253704842d12ef5d7149ff0fd36955f3a6486e:
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 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 33 2d 32 onstraint SHA3-2
0070: 32 34 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 24 [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 33 2d 32 :digests] SHA3-2
00a0: 32 34 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c 74 24] > -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 33 2d 32 32 34 2d 31 2e 31 20 7b 53 48 41 HA3-224-1.1 {SHA
00d0: 33 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 3-224} \..-const
00e0: 72 61 69 6e 74 73 20 53 48 41 33 2d 32 32 34 20 raints SHA3-224
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 33 2d 32 32 34 20 2d igest SHA3-224 -
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 36 62 34 65 30 33 34 32 33 36 36 37 ult 6b4e03423667
0160: 64 62 62 37 33 62 36 65 31 35 34 35 34 66 30 65 dbb73b6e15454f0e
0170: 62 31 61 62 64 34 35 39 37 66 39 61 31 62 30 37 b1abd4597f9a1b07
0180: 38 65 33 66 35 62 35 61 36 62 63 37 0a 0a 74 63 8e3f5b5a6bc7..tc
0190: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
01a0: 5f 53 48 41 33 2d 32 32 34 2d 31 2e 32 20 7b 53 _SHA3-224-1.2 {S
01b0: 48 41 33 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e HA3-224} \..-con
01c0: 73 74 72 61 69 6e 74 73 20 53 48 41 33 2d 32 32 straints SHA3-22
01d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
01e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 data [binary de
01f0: 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 6e 67 code hex [string
0200: 20 72 65 70 65 61 74 20 61 33 20 32 30 30 5d 5d repeat a3 200]]
0210: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0220: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0230: 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 SHA3-224 -data $
0240: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0250: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 33 exact -result 93
0260: 37 36 38 31 36 61 62 61 35 30 33 66 37 32 66 39 76816aba503f72f9
0270: 36 63 65 37 65 62 36 35 61 63 30 39 35 64 65 65 6ce7eb65ac095dee
0280: 65 33 62 65 34 62 66 39 62 62 63 32 61 31 63 62 e3be4bf9bbc2a1cb
0290: 37 65 31 31 65 30 0a 0a 74 63 6c 74 65 73 74 3a 7e11e0..tcltest:
02a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d :test Hash_SHA3-
02b0: 32 32 34 2d 31 2e 33 20 7b 53 48 41 33 2d 32 32 224-1.3 {SHA3-22
02c0: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
02d0: 74 73 20 53 48 41 33 2d 32 32 34 20 5c 0a 09 2d ts SHA3-224 \..-
02e0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
02f0: 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 "abc"} \..-body
0300: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0310: 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 2d 64 gest SHA3-224 -d
0320: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0330: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0340: 6c 74 20 65 36 34 32 38 32 34 63 33 66 38 63 66 lt e642824c3f8cf
0350: 32 34 61 64 30 39 32 33 34 65 65 37 64 33 63 37 24ad09234ee7d3c7
0360: 36 36 66 63 39 61 33 61 35 31 36 38 64 30 63 39 66fc9a3a5168d0c9
0370: 34 61 64 37 33 62 34 36 66 64 66 0a 0a 74 63 6c 4ad73b46fdf..tcl
0380: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0390: 53 48 41 33 2d 32 32 34 2d 31 2e 34 20 7b 53 48 SHA3-224-1.4 {SH
03a0: 41 33 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 A3-224} \..-cons
03b0: 74 72 61 69 6e 74 73 20 53 48 41 33 2d 32 32 34 traints SHA3-224
03c0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
03d0: 64 61 74 61 20 22 61 62 63 64 62 63 64 65 63 64 data "abcdbcdecd
03e0: 65 66 64 65 66 67 65 66 67 68 66 67 68 69 67 68 efdefgefghfghigh
03f0: 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d 6b 6c ijhijkijkljklmkl
0400: 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 22 7d mnlmnomnopnopq"}
0410: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0420: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0430: 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 24 64 HA3-224 -data $d
0440: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0450: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 61 32 xact -result 8a2
0460: 34 31 30 38 62 31 35 34 61 64 61 32 31 63 39 66 4108b154ada21c9f
0470: 64 35 35 37 34 34 39 34 34 37 39 62 61 35 63 37 d5574494479ba5c7
0480: 65 37 61 62 37 36 65 66 32 36 34 65 61 64 30 66 e7ab76ef264ead0f
0490: 63 63 65 33 33 0a 0a 74 63 6c 74 65 73 74 3a 3a cce33..tcltest::
04a0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 2d 32 test Hash_SHA3-2
04b0: 32 34 2d 31 2e 35 20 7b 53 48 41 33 2d 32 32 34 24-1.5 {SHA3-224
04c0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
04d0: 73 20 53 48 41 33 2d 32 32 34 20 5c 0a 09 2d 73 s SHA3-224 \..-s
04e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
04f0: 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 69 abcdefghbcdefghi
0500: 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b cdefghijdefghijk
0510: 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d efghijklfghijklm
0520: 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f ghijklmnhijklmno
0530: 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 ijklmnopjklmnopq
0540: 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 klmnopqrlmnopqrs
0550: 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 mnopqrstnopqrstu
0560: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0570: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0580: 20 53 48 41 33 2d 32 32 34 20 2d 64 61 74 61 20 SHA3-224 -data
0590: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
05a0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 exact -result 5
05b0: 34 33 65 36 38 36 38 65 31 36 36 36 63 31 61 36 43e6868e1666c1a6
05c0: 34 33 36 33 30 64 66 37 37 33 36 37 61 65 35 61 43630df77367ae5a
05d0: 36 32 61 38 35 30 37 30 61 35 31 63 31 34 63 62 62a85070a51c14cb
05e0: 66 36 36 35 63 62 63 0a 0a 74 63 6c 74 65 73 74 f665cbc..tcltest
05f0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 33 ::test Hash_SHA3
0600: 2d 32 32 34 2d 31 2e 36 20 7b 53 48 41 33 2d 32 -224-1.6 {SHA3-2
0610: 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 24} \..-constrai
0620: 6e 74 73 20 53 48 41 33 2d 32 32 34 20 5c 0a 09 nts SHA3-224 \..
0630: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0640: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0650: 22 61 22 20 31 30 30 30 30 30 30 5d 7d 20 5c 0a "a" 1000000]} \.
0660: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0670: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 33 est -digest SHA3
0680: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 -224 -data $data
0690: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
06a0: 74 20 2d 72 65 73 75 6c 74 20 64 36 39 33 33 35 t -result d69335
06b0: 62 39 33 33 32 35 31 39 32 65 35 31 36 61 39 31 b93325192e516a91
06c0: 32 65 36 64 31 39 61 31 35 63 62 35 31 63 36 65 2e6d19a15cb51c6e
06d0: 64 35 63 31 35 32 34 33 65 37 61 37 66 64 36 35 d5c15243e7a7fd65
06e0: 33 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 3c..tcltest::tes
06f0: 74 20 48 61 73 68 5f 53 48 41 33 2d 32 32 34 2d t Hash_SHA3-224-
0700: 31 2e 37 20 7b 53 48 41 33 2d 32 32 34 7d 20 5c 1.7 {SHA3-224} \
0710: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0720: 48 41 33 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 HA3-224 \..-setu
0730: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 p {set data [str
0740: 69 6e 67 20 72 65 70 65 61 74 20 22 61 62 63 64 ing repeat "abcd
0750: 65 66 67 68 62 63 64 65 66 67 68 69 63 64 65 66 efghbcdefghicdef
0760: 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 ghijdefghijkefgh
0770: 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a ijklfghijklmghij
0780: 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 31 36 klmnhijklmno" 16
0790: 37 37 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 6f 64 777216]} \..-bod
07a0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
07b0: 64 69 67 65 73 74 20 53 48 41 33 2d 32 32 34 20 digest SHA3-224
07c0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
07d0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
07e0: 73 75 6c 74 20 63 36 64 36 36 65 37 37 61 65 32 sult c6d66e77ae2
07f0: 38 39 35 36 36 61 66 62 32 63 65 33 39 32 37 37 89566afb2ce39277
0800: 37 35 32 64 36 64 61 32 61 33 63 34 36 30 31 30 752d6da2a3c46010
0810: 66 31 65 30 61 30 39 37 30 66 66 36 30 0a 0a f1e0a0970ff60..