Artifact
222cda757dab6338a6de9a7642087fa69e325305e8a0ec531dccdda19c5b0a34:
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 32 32 34 2e 74 78 from "SHA224.tx
0020: 74 22 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 t".package requi
0030: 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 re tls.package r
0040: 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a equire tcltest..
0050: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
0060: 73 74 72 61 69 6e 74 20 53 48 41 32 32 34 20 5b straint SHA224 [
0070: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
0080: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67 nocase [tls::dig
0090: 65 73 74 73 5d 20 53 48 41 32 32 34 5d 20 3e 20 ests] SHA224] >
00a0: 2d 31 7d 5d 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 -1}]..tcltest::t
00b0: 65 73 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d est Hash_SHA224-
00c0: 31 2e 31 20 7b 53 48 41 32 32 34 7d 20 5c 0a 09 1.1 {SHA224} \..
00d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
00e0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 224 \..-setup {s
00f0: 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d et data ""} \..-
0100: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0110: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 t -digest SHA224
0120: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0130: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0140: 65 73 75 6c 74 20 64 31 34 61 30 32 38 63 32 61 esult d14a028c2a
0150: 33 61 32 62 63 39 34 37 36 31 30 32 62 62 32 38 3a2bc9476102bb28
0160: 38 32 33 34 63 34 31 35 61 32 62 30 31 66 38 32 8234c415a2b01f82
0170: 38 65 61 36 32 61 63 35 62 33 65 34 32 66 0a 0a 8ea62ac5b3e42f..
0180: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0190: 73 68 5f 53 48 41 32 32 34 2d 31 2e 32 20 7b 53 sh_SHA224-1.2 {S
01a0: 48 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA224} \..-const
01b0: 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a raints SHA224 \.
01c0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
01d0: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
01e0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
01f0: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 digest SHA224 -d
0200: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0210: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0220: 6c 74 20 32 33 30 39 37 64 32 32 33 34 30 35 64 lt 23097d223405d
0230: 38 32 32 38 36 34 32 61 34 37 37 62 64 61 32 35 8228642a477bda25
0240: 35 62 33 32 61 61 64 62 63 65 34 62 64 61 30 62 5b32aadbce4bda0b
0250: 33 66 37 65 33 36 63 39 64 61 37 0a 0a 74 63 6c 3f7e36c9da7..tcl
0260: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0270: 53 48 41 32 32 34 2d 31 2e 33 20 7b 53 48 41 32 SHA224-1.3 {SHA2
0280: 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 24} \..-constrai
0290: 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 nts SHA224 \..-s
02a0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
02b0: 61 62 63 64 62 63 64 65 63 64 65 66 64 65 66 67 abcdbcdecdefdefg
02c0: 65 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b efghfghighijhijk
02d0: 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f ijkljklmklmnlmno
02e0: 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 mnopnopq"} \..-b
02f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0300: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 -digest SHA224
0310: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0320: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0330: 73 75 6c 74 20 37 35 33 38 38 62 31 36 35 31 32 sult 75388b16512
0340: 37 37 36 63 63 35 64 62 61 35 64 61 31 66 64 38 776cc5dba5da1fd8
0350: 39 30 31 35 30 62 30 63 36 34 35 35 63 62 34 66 90150b0c6455cb4f
0360: 35 38 62 31 39 35 32 35 32 32 35 32 35 0a 0a 74 58b1952522525..t
0370: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0380: 68 5f 53 48 41 32 32 34 2d 31 2e 34 20 7b 53 48 h_SHA224-1.4 {SH
0390: 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A224} \..-constr
03a0: 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 aints SHA224 \..
03b0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
03c0: 20 22 61 62 63 64 65 66 67 68 62 63 64 65 66 67 "abcdefghbcdefg
03d0: 68 69 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 hicdefghijdefghi
03e0: 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b jkefghijklfghijk
03f0: 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d lmghijklmnhijklm
0400: 6e 6f 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f noijklmnopjklmno
0410: 70 71 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 pqklmnopqrlmnopq
0420: 72 73 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 rsmnopqrstnopqrs
0430: 74 75 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 tu"} \..-body {t
0440: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0450: 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 st SHA224 -data
0460: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0470: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 exact -result c
0480: 39 37 63 61 39 61 35 35 39 38 35 30 63 65 39 37 97ca9a559850ce97
0490: 61 30 34 61 39 36 64 65 66 36 64 39 39 61 39 65 a04a96def6d99a9e
04a0: 30 65 30 65 32 61 62 31 34 65 36 62 38 64 66 32 0e0e2ab14e6b8df2
04b0: 36 35 66 63 30 62 33 0a 0a 74 63 6c 74 65 73 74 65fc0b3..tcltest
04c0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 ::test Hash_SHA2
04d0: 32 34 2d 31 2e 35 20 7b 53 48 41 32 32 34 7d 20 24-1.5 {SHA224}
04e0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
04f0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 SHA224 \..-setup
0500: 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 {set data [stri
0510: 6e 67 20 72 65 70 65 61 74 20 22 61 22 20 31 30 ng repeat "a" 10
0520: 30 30 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 00000]} \..-body
0530: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0540: 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 igest SHA224 -da
0550: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0560: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0570: 74 20 32 30 37 39 34 36 35 35 39 38 30 63 39 31 t 20794655980c91
0580: 64 38 62 62 62 34 63 31 65 61 39 37 36 31 38 61 d8bbb4c1ea97618a
0590: 34 62 66 30 33 66 34 32 35 38 31 39 34 38 62 32 4bf03f42581948b2
05a0: 65 65 34 65 65 37 61 64 36 37 0a 0a 74 63 6c 74 ee4ee7ad67..tclt
05b0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
05c0: 48 41 32 32 34 2d 31 2e 36 20 7b 53 48 41 32 32 HA224-1.6 {SHA22
05d0: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
05e0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 ts SHA224 \..-se
05f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 tup {set data [s
0600: 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 61 62 tring repeat "ab
0610: 63 64 65 66 67 68 62 63 64 65 66 67 68 69 63 64 cdefghbcdefghicd
0620: 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 efghijdefghijkef
0630: 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 ghijklfghijklmgh
0640: 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 22 20 ijklmnhijklmno"
0650: 31 36 37 37 37 32 31 36 5d 7d 20 5c 0a 09 2d 62 16777216]} \..-b
0660: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0670: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 -digest SHA224
0680: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0690: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
06a0: 73 75 6c 74 20 62 35 39 38 39 37 31 33 63 61 34 sult b5989713ca4
06b0: 66 65 34 37 61 30 30 39 66 38 36 32 31 39 38 30 fe47a009f8621980
06c0: 62 33 34 65 36 64 36 33 65 64 33 30 36 33 62 32 b34e6d63ed3063b2
06d0: 61 30 61 32 63 38 36 37 64 38 61 38 35 0a 0a 74 a0a2c867d8a85..t
06e0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
06f0: 68 5f 53 48 41 32 32 34 2d 31 2e 37 20 7b 53 48 h_SHA224-1.7 {SH
0700: 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A224} \..-constr
0710: 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 aints SHA224 \..
0720: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0730: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
0740: 68 65 78 20 66 66 5d 7d 20 5c 0a 09 2d 62 6f 64 hex ff]} \..-bod
0750: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0760: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 digest SHA224 -d
0770: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0780: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0790: 6c 74 20 65 33 33 66 39 64 37 35 65 36 61 65 31 lt e33f9d75e6ae1
07a0: 33 36 39 64 62 61 62 66 38 31 62 39 36 62 34 35 369dbabf81b96b45
07b0: 39 31 61 65 34 36 62 62 61 33 30 62 35 39 31 61 91ae46bba30b591a
07c0: 36 62 36 63 36 32 35 34 32 62 35 0a 0a 74 63 6c 6b6c62542b5..tcl
07d0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
07e0: 53 48 41 32 32 34 2d 31 2e 38 20 7b 53 48 41 32 SHA224-1.8 {SHA2
07f0: 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 24} \..-constrai
0800: 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 nts SHA224 \..-s
0810: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b etup {set data [
0820: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0830: 78 20 65 35 65 30 39 39 32 34 5d 7d 20 5c 0a 09 x e5e09924]} \..
0840: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0850: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 st -digest SHA22
0860: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 4 -data $data} \
0870: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0880: 72 65 73 75 6c 74 20 66 64 31 39 65 37 34 36 39 result fd19e7469
0890: 30 64 32 39 31 34 36 37 63 65 35 39 66 30 37 37 0d291467ce59f077
08a0: 64 66 33 31 31 36 33 38 66 31 63 33 61 34 36 65 df311638f1c3a46e
08b0: 35 31 30 64 30 65 34 39 61 36 37 30 36 32 64 0a 510d0e49a67062d.
08c0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
08d0: 61 73 68 5f 53 48 41 32 32 34 2d 31 2e 39 20 7b ash_SHA224-1.9 {
08e0: 53 48 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA224} \..-cons
08f0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c traints SHA224 \
0900: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0910: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 ta [binary decod
0920: 65 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 e hex [string re
0930: 70 65 61 74 20 30 30 20 35 36 5d 5d 7d 20 5c 0a peat 00 56]]} \.
0940: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0950: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 est -digest SHA2
0960: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 24 -data $data}
0970: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0980: 2d 72 65 73 75 6c 74 20 35 63 33 65 32 35 62 36 -result 5c3e25b6
0990: 39 64 30 65 61 32 36 66 32 36 30 63 66 61 65 38 9d0ea26f260cfae8
09a0: 37 65 32 33 37 35 39 65 31 65 63 61 39 64 31 65 7e23759e1eca9d1e
09b0: 63 63 39 66 62 66 33 63 36 32 32 36 36 38 30 34 cc9fbf3c62266804
09c0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
09d0: 48 61 73 68 5f 53 48 41 32 32 34 2d 31 2e 31 30 Hash_SHA224-1.10
09e0: 20 7b 53 48 41 32 32 34 7d 20 5c 0a 09 2d 63 6f {SHA224} \..-co
09f0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 nstraints SHA224
0a00: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0a10: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 data [string rep
0a20: 65 61 74 20 22 51 22 20 31 30 30 30 5d 7d 20 5c eat "Q" 1000]} \
0a30: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0a40: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0a50: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 224 -data $data}
0a60: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0a70: 20 2d 72 65 73 75 6c 74 20 33 37 30 36 31 39 37 -result 3706197
0a80: 66 36 36 38 39 30 61 34 31 37 37 39 64 63 38 37 f66890a41779dc87
0a90: 39 31 36 37 30 35 32 32 65 31 33 36 66 61 66 61 91670522e136fafa
0aa0: 32 34 38 37 34 36 38 35 37 31 35 62 64 30 61 38 24874685715bd0a8
0ab0: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 a..tcltest::test
0ac0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 31 2e 31 Hash_SHA224-1.1
0ad0: 31 20 7b 53 48 41 32 32 34 7d 20 5c 0a 09 2d 63 1 {SHA224} \..-c
0ae0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 onstraints SHA22
0af0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 4 \..-setup {set
0b00: 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 data [string re
0b10: 70 65 61 74 20 22 41 22 20 31 30 30 30 5d 7d 20 peat "A" 1000]}
0b20: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0b30: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0b40: 41 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 A224 -data $data
0b50: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0b60: 74 20 2d 72 65 73 75 6c 74 20 61 38 64 30 63 36 t -result a8d0c6
0b70: 36 62 35 63 36 66 64 66 64 38 33 36 65 62 33 63 6b5c6fdfd836eb3c
0b80: 36 64 30 34 64 33 32 64 66 65 36 36 63 33 62 31 6d04d32dfe66c3b1
0b90: 66 31 36 38 62 34 38 38 62 66 34 63 39 63 36 36 f168b488bf4c9c66
0ba0: 63 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 ce..tcltest::tes
0bb0: 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d 31 2e t Hash_SHA224-1.
0bc0: 31 32 20 7b 53 48 41 32 32 34 7d 20 5c 0a 09 2d 12 {SHA224} \..-
0bd0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 constraints SHA2
0be0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 24 \..-setup {se
0bf0: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 t data [binary d
0c00: 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 6e ecode hex [strin
0c10: 67 20 72 65 70 65 61 74 20 39 39 20 31 30 30 35 g repeat 99 1005
0c20: 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c ]]} \..-body {tl
0c30: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0c40: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24 t SHA224 -data $
0c50: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0c60: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 62 exact -result cb
0c70: 30 30 65 63 64 30 33 37 38 38 62 66 36 63 30 39 00ecd03788bf6c09
0c80: 30 38 34 30 31 65 30 65 62 30 35 33 61 63 36 31 08401e0eb053ac61
0c90: 66 33 35 65 37 65 32 30 61 32 63 66 64 37 62 64 f35e7e20a2cfd7bd
0ca0: 39 36 64 36 34 30 0a 0a 74 63 6c 74 65 73 74 3a 96d640..tcltest:
0cb0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32 :test Hash_SHA22
0cc0: 34 2d 31 2e 31 33 20 7b 53 48 41 32 32 34 7d 20 4-1.13 {SHA224}
0cd0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0ce0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 SHA224 \..-setup
0cf0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 {set data [bina
0d00: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 ry decode hex [s
0d10: 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 30 20 tring repeat 00
0d20: 31 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 62 1000000]]} \..-b
0d30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0d40: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 -digest SHA224
0d50: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0d60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0d70: 73 75 6c 74 20 33 61 35 64 37 34 62 36 38 66 31 sult 3a5d74b68f1
0d80: 34 66 33 61 34 62 32 62 65 39 32 38 39 62 38 64 4f3a4b2be9289b8d
0d90: 33 37 30 36 37 32 64 30 62 33 64 32 66 35 33 62 370672d0b3d2f53b
0da0: 63 33 30 33 63 35 39 30 33 32 64 66 33 0a 0a 74 c303c59032df3..t
0db0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0dc0: 68 5f 53 48 41 32 32 34 2d 31 2e 31 34 20 7b 53 h_SHA224-1.14 {S
0dd0: 48 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA224} \..-const
0de0: 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a raints SHA224 \.
0df0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0e00: 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 a [string repeat
0e10: 20 22 41 22 20 35 33 36 38 37 30 39 31 32 5d 7d "A" 536870912]}
0e20: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0e30: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0e40: 48 41 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 HA224 -data $dat
0e50: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
0e60: 63 74 20 2d 72 65 73 75 6c 74 20 63 34 32 35 30 ct -result c4250
0e70: 30 38 33 63 66 38 32 33 30 62 66 32 31 30 36 35 083cf8230bf21065
0e80: 62 33 30 31 34 62 61 61 61 66 39 66 37 36 66 65 b3014baaaf9f76fe
0e90: 63 65 66 63 32 31 66 39 31 63 66 32 33 37 64 65 cefc21f91cf237de
0ea0: 64 63 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 dc9..tcltest::te
0eb0: 73 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d 31 st Hash_SHA224-1
0ec0: 2e 31 35 20 7b 53 48 41 32 32 34 7d 20 5c 0a 09 .15 {SHA224} \..
0ed0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0ee0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 224 \..-setup {s
0ef0: 65 74 20 64 61 74 61 20 22 54 68 65 20 71 75 69 et data "The qui
0f00: 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d ck brown fox jum
0f10: 70 73 20 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 ps over the lazy
0f20: 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 dog"} \..-body
0f30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0f40: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 gest SHA224 -dat
0f50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0f60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0f70: 20 37 33 30 65 31 30 39 62 64 37 61 38 61 33 32 730e109bd7a8a32
0f80: 62 31 63 62 39 64 39 61 30 39 61 61 32 33 32 35 b1cb9d9a09aa2325
0f90: 64 32 34 33 30 35 38 37 64 64 62 63 30 63 33 38 d2430587ddbc0c38
0fa0: 62 61 64 39 31 31 35 32 35 0a 0a 74 63 6c 74 65 bad911525..tclte
0fb0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0fc0: 41 32 32 34 2d 31 2e 31 36 20 7b 53 48 41 32 32 A224-1.16 {SHA22
0fd0: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0fe0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 ts SHA224 \..-se
0ff0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
1000: 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 bc"} \..-body {t
1010: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
1020: 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 st SHA224 -data
1030: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
1040: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 exact -result 2
1050: 33 30 39 37 64 32 32 33 34 30 35 64 38 32 32 38 3097d223405d8228
1060: 36 34 32 61 34 37 37 62 64 61 32 35 35 62 33 32 642a477bda255b32
1070: 61 61 64 62 63 65 34 62 64 61 30 62 33 66 37 65 aadbce4bda0b3f7e
1080: 33 36 63 39 64 61 37 0a 0a 74 63 6c 74 65 73 74 36c9da7..tcltest
1090: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 ::test Hash_SHA2
10a0: 32 34 2d 31 2e 31 37 20 7b 53 48 41 32 32 34 7d 24-1.17 {SHA224}
10b0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
10c0: 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 SHA224 \..-setu
10d0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 p {set data "abc
10e0: 64 62 63 64 65 63 64 65 66 64 65 66 67 65 66 67 dbcdecdefdefgefg
10f0: 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a 6b hfghighijhijkijk
1100: 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f ljklmklmnlmnomno
1110: 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 pnopq"} \..-body
1120: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
1130: 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 igest SHA224 -da
1140: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
1150: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
1160: 74 20 37 35 33 38 38 62 31 36 35 31 32 37 37 36 t 75388b16512776
1170: 63 63 35 64 62 61 35 64 61 31 66 64 38 39 30 31 cc5dba5da1fd8901
1180: 35 30 62 30 63 36 34 35 35 63 62 34 66 35 38 62 50b0c6455cb4f58b
1190: 31 39 35 32 35 32 32 35 32 35 0a 0a 74 63 6c 74 1952522525..tclt
11a0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
11b0: 48 41 32 32 34 2d 31 2e 31 38 20 7b 53 48 41 32 HA224-1.18 {SHA2
11c0: 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 24} \..-constrai
11d0: 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 nts SHA224 \..-s
11e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b etup {set data [
11f0: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 61 string repeat "a
1200: 22 20 31 30 30 30 30 30 30 5d 7d 20 5c 0a 09 2d " 1000000]} \..-
1210: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
1220: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 t -digest SHA224
1230: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
1240: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
1250: 65 73 75 6c 74 20 32 30 37 39 34 36 35 35 39 38 esult 2079465598
1260: 30 63 39 31 64 38 62 62 62 34 63 31 65 61 39 37 0c91d8bbb4c1ea97
1270: 36 31 38 61 34 62 66 30 33 66 34 32 35 38 31 39 618a4bf03f425819
1280: 34 38 62 32 65 65 34 65 65 37 61 64 36 37 0a 0a 48b2ee4ee7ad67..
1290: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
12a0: 73 68 5f 53 48 41 32 32 34 2d 31 2e 31 39 20 7b sh_SHA224-1.19 {
12b0: 53 48 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA224} \..-cons
12c0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c traints SHA224 \
12d0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
12e0: 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 ta [string repea
12f0: 74 20 22 30 31 32 33 34 35 36 37 30 31 32 33 34 t "0123456701234
1300: 35 36 37 30 31 32 33 34 35 36 37 30 31 32 33 34 5670123456701234
1310: 35 36 37 30 31 32 33 34 35 36 37 30 31 32 33 34 5670123456701234
1320: 35 36 37 30 31 32 33 34 35 36 37 30 31 32 33 34 5670123456701234
1330: 35 36 37 22 20 31 30 5d 7d 20 5c 0a 09 2d 62 6f 567" 10]} \..-bo
1340: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
1350: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d -digest SHA224 -
1360: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
1370: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
1380: 75 6c 74 20 35 36 37 66 36 39 66 31 36 38 63 64 ult 567f69f168cd
1390: 37 38 34 34 65 36 35 32 35 39 63 65 36 35 38 66 7844e65259ce658f
13a0: 65 37 61 61 64 66 61 32 35 32 31 36 65 36 38 65 e7aadfa25216e68e
13b0: 63 61 30 65 62 37 61 62 38 32 36 32 0a 0a 74 63 ca0eb7ab8262..tc
13c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
13d0: 5f 53 48 41 32 32 34 2d 31 2e 32 30 20 7b 53 48 _SHA224-1.20 {SH
13e0: 41 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A224} \..-constr
13f0: 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 aints SHA224 \..
1400: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
1410: 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 [binary decode
1420: 68 65 78 20 30 37 5d 7d 20 5c 0a 09 2d 62 6f 64 hex 07]} \..-bod
1430: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
1440: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 digest SHA224 -d
1450: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
1460: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
1470: 6c 74 20 30 30 65 63 64 35 66 31 33 38 34 32 32 lt 00ecd5f138422
1480: 62 38 61 64 37 34 63 39 37 39 39 66 64 38 32 36 b8ad74c9799fd826
1490: 63 35 33 31 62 61 64 32 66 63 61 62 63 37 34 35 c531bad2fcabc745
14a0: 30 62 65 65 32 61 61 38 63 32 61 0a 0a 74 63 6c 0bee2aa8c2a..tcl
14b0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
14c0: 53 48 41 32 32 34 2d 31 2e 32 31 20 7b 53 48 41 SHA224-1.21 {SHA
14d0: 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 224} \..-constra
14e0: 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d ints SHA224 \..-
14f0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
1500: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 [binary decode h
1510: 65 78 20 31 38 38 30 34 30 30 35 64 64 34 66 62 ex 18804005dd4fb
1520: 64 31 35 35 36 32 39 39 64 36 66 39 64 39 33 64 d1556299d6f9d93d
1530: 66 36 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b f62]} \..-body {
1540: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
1550: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 est SHA224 -data
1560: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
1570: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
1580: 64 66 39 30 64 37 38 61 61 37 38 38 32 31 63 39 df90d78aa78821c9
1590: 39 62 34 30 62 61 34 63 39 36 36 39 32 31 61 63 9b40ba4c966921ac
15a0: 63 64 38 66 66 62 31 65 39 38 61 63 33 38 38 65 cd8ffb1e98ac388e
15b0: 35 36 31 39 31 64 62 31 0a 0a 74 63 6c 74 65 73 56191db1..tcltes
15c0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
15d0: 32 32 34 2d 31 2e 32 32 20 7b 53 48 41 32 32 34 224-1.22 {SHA224
15e0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
15f0: 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 s SHA224 \..-set
1600: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 up {set data [bi
1610: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 nary decode hex
1620: 35 35 62 32 31 30 30 37 39 63 36 31 62 35 33 61 55b210079c61b53a
1630: 64 64 35 32 30 36 32 32 64 31 61 63 39 37 64 35 dd520622d1ac97d5
1640: 63 64 62 65 38 63 62 33 33 61 61 30 61 65 33 34 cdbe8cb33aa0ae34
1650: 34 35 31 37 62 65 65 34 64 37 62 61 30 39 61 62 4517bee4d7ba09ab
1660: 63 38 35 33 33 63 35 32 35 30 38 38 37 61 34 33 c8533c5250887a43
1670: 62 65 62 62 61 63 39 30 36 63 32 65 31 38 33 37 bebbac906c2e1837
1680: 66 32 36 62 33 36 61 35 39 61 65 33 62 65 37 38 f26b36a59ae3be78
1690: 31 34 64 35 30 36 38 39 36 62 37 31 38 62 32 61 14d506896b718b2a
16a0: 33 38 33 65 63 64 61 63 31 36 62 39 36 31 32 35 383ecdac16b96125
16b0: 35 35 33 66 34 31 36 66 66 33 32 63 36 36 37 34 553f416ff32c6674
16c0: 63 37 34 35 39 39 61 39 30 30 35 33 38 36 64 39 c74599a9005386d9
16d0: 63 65 31 31 31 32 32 34 35 66 34 38 65 65 34 37 ce1112245f48ee47
16e0: 30 64 33 39 36 63 31 65 64 36 33 62 39 32 36 37 0d396c1ed63b9267
16f0: 30 63 61 35 36 65 63 38 34 64 65 65 61 38 31 34 0ca56ec84deea814
1700: 62 36 31 33 35 65 63 61 35 34 33 39 32 62 64 65 b6135eca54392bde
1710: 64 62 39 34 38 39 62 63 39 62 38 37 35 61 38 62 db9489bc9b875a8b
1720: 61 66 30 64 63 31 61 65 37 38 35 37 33 36 39 31 af0dc1ae78573691
1730: 34 61 62 37 64 61 61 32 36 34 62 63 30 37 39 64 4ab7daa264bc079d
1740: 32 36 39 66 32 63 30 64 37 65 64 64 64 38 31 30 269f2c0d7eddd810
1750: 61 34 32 36 31 34 35 61 30 37 37 36 66 36 37 63 a426145a0776f67c
1760: 38 37 38 32 37 33 5d 7d 20 5c 0a 09 2d 62 6f 64 878273]} \..-bod
1770: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
1780: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 digest SHA224 -d
1790: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
17a0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
17b0: 6c 74 20 30 62 33 31 38 39 34 65 63 38 39 33 37 lt 0b31894ec8937
17c0: 61 64 39 62 39 31 62 64 66 62 63 62 61 32 39 34 ad9b91bdfbcba294
17d0: 64 39 61 64 65 66 61 61 31 38 65 30 39 33 30 35 d9adefaa18e09305
17e0: 65 39 66 32 30 64 35 63 33 61 34 0a 0a 23 20 43 e9f20d5c3a4..# C
17f0: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
1800: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
1810: 65 74 75 72 6e 0a eturn.