Artifact 75e4fa01584c4538d318e53c12b1f97602d96cc3434ac18f672f914711549497:

• File tests/test_vectors/Hash/SHA224ShortMsg.test — part of check-in [8440f589be] at 2024-02-11 21:24:47 on branch crypto — Updated test cases for OpenSSL 3.0. Added load legacy provider for obsolete algorithms. (user: bohagan, size: 20412) [annotate] [blame] [check-ins using]

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 53 68 6f   from "SHA224Sho
0020: 72 74 4d 73 67 2e 72 73 70 22 0a 6c 61 70 70 65  rtMsg.rsp".lappe
0030: 6e 64 20 61 75 74 6f 5f 70 61 74 68 20 5b 66 69  nd auto_path [fi
0040: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65  le dirname [file
0050: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64   dirname [file d
0060: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72  irname [file dir
0070: 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20  name [file join 
0080: 5b 70 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69  [pwd] [info scri
0090: 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65  pt]]]]]].package
00a0: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63   require tls.pac
00b0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c  kage require tcl
00c0: 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  test..tcltest::t
00d0: 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 53 48  estConstraint SH
00e0: 41 32 32 34 20 5b 65 78 70 72 20 7b 5b 6c 73 65  A224 [expr {[lse
00f0: 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c  arch -nocase [tl
0100: 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48 41 32  s::digests] SHA2
0110: 32 34 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 68  24] > -1}].catch
0120: 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20   {tls::provider 
0130: 6c 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 74  legacy}..tcltest
0140: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32  ::test Hash_SHA2
0150: 32 34 2d 32 2e 31 20 7b 53 48 41 32 32 34 53 68  24-2.1 {SHA224Sh
0160: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0170: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
0180: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0190: 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20  ta ""} \..-body 
01a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
01b0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
01c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
01d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
01e0: 20 64 31 34 61 30 32 38 63 32 61 33 61 32 62 63   d14a028c2a3a2bc
01f0: 39 34 37 36 31 30 32 62 62 32 38 38 32 33 34 63  9476102bb288234c
0200: 34 31 35 61 32 62 30 31 66 38 32 38 65 61 36 32  415a2b01f828ea62
0210: 61 63 35 62 33 65 34 32 66 0a 0a 74 63 6c 74 65  ac5b3e42f..tclte
0220: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0230: 41 32 32 34 2d 32 2e 32 20 7b 53 48 41 32 32 34  A224-2.2 {SHA224
0240: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0250: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
0260: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0270: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0280: 6f 64 65 20 68 65 78 20 38 34 5d 7d 20 5c 0a 09  ode hex 84]} \..
0290: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65  -body {tls::dige
02a0: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32  st -digest SHA22
02b0: 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c  4 -data $data} \
02c0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d  ..-match exact -
02d0: 72 65 73 75 6c 74 20 33 63 64 33 36 39 32 31 64  result 3cd36921d
02e0: 66 35 64 36 39 36 33 65 37 33 37 33 39 63 66 34  f5d6963e73739cf4
02f0: 64 32 30 32 31 31 65 32 64 38 38 37 37 63 31 39  d20211e2d8877c19
0300: 63 66 66 30 38 37 61 64 65 39 64 30 65 33 61 0a  cff087ade9d0e3a.
0310: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48  .tcltest::test H
0320: 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 33 20 7b  ash_SHA224-2.3 {
0330: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
0340: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0350: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
0360: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0370: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 63  ry decode hex 5c
0380: 37 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74  7b]} \..-body {t
0390: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65  ls::digest -dige
03a0: 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20  st SHA224 -data 
03b0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68  $data} \..-match
03c0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64   exact -result d
03d0: 61 66 66 39 62 63 65 36 38 35 65 62 38 33 31 66  aff9bce685eb831f
03e0: 39 37 66 63 31 32 32 35 62 30 33 63 32 37 35 61  97fc1225b03c275a
03f0: 36 63 31 31 32 65 32 64 36 65 37 36 66 35 66 61  6c112e2d6e76f5fa
0400: 66 37 61 33 36 65 36 0a 0a 74 63 6c 74 65 73 74  f7a36e6..tcltest
0410: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32  ::test Hash_SHA2
0420: 32 34 2d 32 2e 34 20 7b 53 48 41 32 32 34 53 68  24-2.4 {SHA224Sh
0430: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0440: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
0450: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0460: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
0470: 65 20 68 65 78 20 35 31 63 61 33 64 5d 7d 20 5c  e hex 51ca3d]} \
0480: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0490: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
04a0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
04b0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
04c0: 20 2d 72 65 73 75 6c 74 20 32 63 38 39 35 39 30   -result 2c89590
04d0: 32 33 35 31 35 34 37 36 65 33 38 33 38 38 61 62  23515476e38388ab
04e0: 62 34 33 35 39 39 61 32 39 38 37 36 62 34 62 33  b43599a29876b4b3
04f0: 33 64 35 36 61 64 63 30 36 30 33 32 64 65 33 61  3d56adc06032de3a
0500: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
0510: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
0520: 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67   {SHA224ShortMsg
0530: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74  } \..-constraint
0540: 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74  s SHA224 \..-set
0550: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69  up {set data [bi
0560: 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20  nary decode hex 
0570: 36 30 38 34 33 34 37 65 5d 7d 20 5c 0a 09 2d 62  6084347e]} \..-b
0580: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0590: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
05a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
05b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
05c0: 73 75 6c 74 20 61 65 35 37 63 30 61 36 64 34 39  sult ae57c0a6d49
05d0: 37 33 39 62 61 33 33 38 61 64 66 61 35 33 62 64  739ba338adfa53bd
05e0: 61 65 30 36 33 65 35 63 30 39 31 32 32 62 37 37  ae063e5c09122b77
05f0: 36 30 34 37 38 30 61 38 65 65 61 61 33 0a 0a 74  604780a8eeaa3..t
0600: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0610: 68 5f 53 48 41 32 32 34 2d 32 2e 36 20 7b 53 48  h_SHA224-2.6 {SH
0620: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
0630: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0640: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
0650: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0660: 20 64 65 63 6f 64 65 20 68 65 78 20 34 39 33 65   decode hex 493e
0670: 31 34 36 32 33 63 5d 7d 20 5c 0a 09 2d 62 6f 64  14623c]} \..-bod
0680: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
0690: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64  digest SHA224 -d
06a0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
06b0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
06c0: 6c 74 20 37 66 36 33 31 66 32 39 35 65 30 32 34  lt 7f631f295e024
06d0: 65 37 34 35 35 32 30 38 33 32 34 35 63 61 38 66  e74552083245ca8f
06e0: 39 38 38 61 33 66 62 36 35 36 38 30 61 65 39 37  988a3fb65680ae97
06f0: 63 33 30 34 30 64 32 65 36 35 63 0a 0a 74 63 6c  c3040d2e65c..tcl
0700: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0710: 53 48 41 32 32 34 2d 32 2e 37 20 7b 53 48 41 32  SHA224-2.7 {SHA2
0720: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0730: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32  constraints SHA2
0740: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
0750: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0760: 65 63 6f 64 65 20 68 65 78 20 64 37 32 39 64 38  ecode hex d729d8
0770: 63 64 31 36 33 31 5d 7d 20 5c 0a 09 2d 62 6f 64  cd1631]} \..-bod
0780: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d  y {tls::digest -
0790: 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d 64  digest SHA224 -d
07a0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d  ata $data} \..-m
07b0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75  atch exact -resu
07c0: 6c 74 20 33 34 32 65 38 65 36 62 32 33 63 31 63  lt 342e8e6b23c1c
07d0: 36 61 35 34 39 31 30 36 33 31 66 30 39 38 65 30  6a54910631f098e0
07e0: 38 65 38 33 36 32 35 39 63 35 37 65 34 39 63 31  8e836259c57e49c1
07f0: 62 31 64 30 32 33 64 31 36 36 64 0a 0a 74 63 6c  b1d023d166d..tcl
0800: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f  test::test Hash_
0810: 53 48 41 32 32 34 2d 32 2e 38 20 7b 53 48 41 32  SHA224-2.8 {SHA2
0820: 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d  24ShortMsg} \..-
0830: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32  constraints SHA2
0840: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65  24 \..-setup {se
0850: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64  t data [binary d
0860: 65 63 6f 64 65 20 68 65 78 20 63 62 66 32 30 36  ecode hex cbf206
0870: 31 65 31 30 66 61 61 35 5d 7d 20 5c 0a 09 2d 62  1e10faa5]} \..-b
0880: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0890: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
08a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
08b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
08c0: 73 75 6c 74 20 33 61 61 37 30 32 62 31 62 36 36  sult 3aa702b1b66
08d0: 64 63 35 37 64 37 61 65 63 33 63 63 64 62 64 66  dc57d7aec3ccdbdf
08e0: 62 64 38 38 35 39 32 64 37 35 32 30 66 38 34 33  bd88592d7520f843
08f0: 62 61 35 64 30 66 61 34 38 31 31 36 38 0a 0a 74  ba5d0fa481168..t
0900: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0910: 68 5f 53 48 41 32 32 34 2d 32 2e 39 20 7b 53 48  h_SHA224-2.9 {SH
0920: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
0930: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0940: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
0950: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0960: 20 64 65 63 6f 64 65 20 68 65 78 20 35 66 37 37   decode hex 5f77
0970: 62 33 36 36 34 38 32 33 63 33 33 65 5d 7d 20 5c  b3664823c33e]} \
0980: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0990: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
09a0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
09b0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
09c0: 20 2d 72 65 73 75 6c 74 20 62 64 66 32 31 66 66   -result bdf21ff
09d0: 33 32 35 66 37 35 34 31 35 37 63 63 66 34 31 37  325f754157ccf417
09e0: 66 34 38 35 35 33 36 30 61 37 32 65 38 66 64 31  f4855360a72e8fd1
09f0: 31 37 64 32 38 63 38 66 65 37 64 61 33 65 61 33  17d28c8fe7da3ea3
0a00: 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  8..tcltest::test
0a10: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 31   Hash_SHA224-2.1
0a20: 30 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  0 {SHA224ShortMs
0a30: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0a40: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
0a50: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0a60: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0a70: 20 31 30 37 31 33 62 38 39 34 64 65 34 61 37 33   10713b894de4a73
0a80: 34 63 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  4c0]} \..-body {
0a90: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0aa0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
0ab0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0ac0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0ad0: 30 33 38 34 32 36 30 30 63 38 36 66 35 63 64 36  03842600c86f5cd6
0ae0: 30 63 33 61 32 31 34 37 61 30 36 37 63 62 39 36  0c3a2147a067cb96
0af0: 32 61 30 35 33 30 33 63 33 34 38 38 62 30 35 63  2a05303c3488b05c
0b00: 62 34 35 33 32 37 62 64 0a 0a 74 63 6c 74 65 73  b45327bd..tcltes
0b10: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0b20: 32 32 34 2d 32 2e 31 31 20 7b 53 48 41 32 32 34  224-2.11 {SHA224
0b30: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0b40: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
0b50: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0b60: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0b70: 6f 64 65 20 68 65 78 20 30 30 36 34 37 30 64 35  ode hex 006470d5
0b80: 37 64 61 64 39 38 39 33 64 63 30 33 5d 7d 20 5c  7dad9893dc03]} \
0b90: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0ba0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0bb0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
0bc0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
0bd0: 20 2d 72 65 73 75 6c 74 20 63 39 30 30 32 36 63   -result c90026c
0be0: 64 61 35 61 64 32 34 31 31 35 30 35 39 63 36 32  da5ad24115059c62
0bf0: 61 65 39 61 64 64 35 37 37 39 33 61 64 65 34 34  ae9add57793ade44
0c00: 35 64 34 37 34 32 32 37 33 32 38 38 62 62 63 65  5d4742273288bbce
0c10: 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  7..tcltest::test
0c20: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 31   Hash_SHA224-2.1
0c30: 32 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  2 {SHA224ShortMs
0c40: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0c50: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
0c60: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0c70: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0c80: 20 36 66 32 39 63 61 32 37 34 31 39 30 34 30 30   6f29ca274190400
0c90: 37 32 30 62 62 61 32 5d 7d 20 5c 0a 09 2d 62 6f  720bba2]} \..-bo
0ca0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0cb0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
0cc0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0cd0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0ce0: 75 6c 74 20 61 63 35 33 31 35 37 39 34 37 61 61  ult ac53157947aa
0cf0: 34 62 32 61 31 39 30 38 39 31 38 32 33 38 32 61  4b2a19089182382a
0d00: 34 33 36 33 64 31 38 32 64 64 38 65 34 63 61 37  4363d182dd8e4ca7
0d10: 39 63 64 38 35 37 31 33 39 30 62 65 0a 0a 74 63  9cd8571390be..tc
0d20: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0d30: 5f 53 48 41 32 32 34 2d 32 2e 31 33 20 7b 53 48  _SHA224-2.13 {SH
0d40: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
0d50: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
0d60: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
0d70: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
0d80: 20 64 65 63 6f 64 65 20 68 65 78 20 31 37 65 38   decode hex 17e8
0d90: 35 35 36 31 37 36 66 63 63 61 32 61 64 64 62 64  556176fcca2addbd
0da0: 64 65 32 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  de29]} \..-body 
0db0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0dc0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
0dd0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
0de0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
0df0: 20 63 63 36 61 64 30 34 38 38 64 62 30 32 32 32   cc6ad0488db0222
0e00: 30 36 36 66 37 34 30 35 35 37 62 35 37 35 38 61  066f740557b5758a
0e10: 31 39 62 33 30 33 37 32 62 33 30 32 33 33 32 32  19b30372b3023322
0e20: 39 35 64 38 63 33 61 66 66 0a 0a 74 63 6c 74 65  95d8c3aff..tclte
0e30: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
0e40: 41 32 32 34 2d 32 2e 31 34 20 7b 53 48 41 32 32  A224-2.14 {SHA22
0e50: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
0e60: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
0e70: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
0e80: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
0e90: 63 6f 64 65 20 68 65 78 20 64 62 66 31 36 33 36  code hex dbf1636
0ea0: 30 31 64 62 39 61 31 32 32 61 34 30 32 36 38 32  01db9a122a402682
0eb0: 34 64 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  4de]} \..-body {
0ec0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
0ed0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
0ee0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
0ef0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
0f00: 39 38 34 39 38 34 35 66 34 65 34 37 65 31 65 63  9849845f4e47e1ec
0f10: 65 39 61 31 63 31 65 30 31 61 30 64 38 39 36 66  e9a1c1e01a0d896f
0f20: 66 65 61 36 31 63 36 63 38 38 39 34 61 37 35 61  fea61c6c8894a75a
0f30: 31 31 63 65 35 66 34 39 0a 0a 74 63 6c 74 65 73  11ce5f49..tcltes
0f40: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
0f50: 32 32 34 2d 32 2e 31 35 20 7b 53 48 41 32 32 34  224-2.15 {SHA224
0f60: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
0f70: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
0f80: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
0f90: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
0fa0: 6f 64 65 20 68 65 78 20 35 65 31 65 66 32 61 64  ode hex 5e1ef2ad
0fb0: 38 36 63 65 61 66 35 34 33 39 66 65 38 37 64 32  86ceaf5439fe87d2
0fc0: 65 63 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ec9b]} \..-body 
0fd0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
0fe0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
0ff0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1000: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1010: 20 32 32 33 63 35 64 35 64 34 61 30 31 31 36 62   223c5d5d4a0116b
1020: 33 32 63 65 61 30 34 34 66 39 61 66 30 66 65 34  32cea044f9af0fe4
1030: 34 62 61 62 65 61 31 63 35 61 62 32 30 31 35 30  4babea1c5ab20150
1040: 32 35 39 31 62 63 64 35 66 0a 0a 74 63 6c 74 65  2591bcd5f..tclte
1050: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1060: 41 32 32 34 2d 32 2e 31 36 20 7b 53 48 41 32 32  A224-2.16 {SHA22
1070: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
1080: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
1090: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
10a0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
10b0: 63 6f 64 65 20 68 65 78 20 36 35 66 33 62 39 38  code hex 65f3b98
10c0: 36 36 66 62 38 30 30 32 62 35 33 63 66 61 66 38  66fb8002b53cfaf8
10d0: 30 36 66 37 30 32 66 5d 7d 20 5c 0a 09 2d 62 6f  06f702f]} \..-bo
10e0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
10f0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
1100: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1110: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1120: 75 6c 74 20 62 31 65 30 38 30 36 61 32 31 38 64  ult b1e0806a218d
1130: 35 39 33 38 32 31 66 64 65 38 65 39 65 61 63 63  593821fde8e9eacc
1140: 34 34 61 62 35 32 38 37 63 33 32 32 30 39 61 39  44ab5287c32209a9
1150: 34 66 30 31 31 61 62 36 36 62 37 35 0a 0a 74 63  4f011ab66b75..tc
1160: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1170: 5f 53 48 41 32 32 34 2d 32 2e 31 37 20 7b 53 48  _SHA224-2.17 {SH
1180: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
1190: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
11a0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
11b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
11c0: 20 64 65 63 6f 64 65 20 68 65 78 20 62 37 37 36   decode hex b776
11d0: 37 30 38 66 66 62 39 31 62 33 35 31 35 61 63 34  708ffb91b3515ac4
11e0: 36 35 39 38 61 62 39 66 61 37 39 36 5d 7d 20 5c  6598ab9fa796]} \
11f0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1200: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1210: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1220: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1230: 20 2d 72 65 73 75 6c 74 20 34 32 37 33 31 31 62   -result 427311b
1240: 31 64 37 61 62 32 34 38 38 37 39 31 63 34 64 65  1d7ab2488791c4de
1250: 65 62 34 32 35 31 64 37 38 33 66 65 35 66 39 38  eb4251d783fe5f98
1260: 30 36 62 66 64 66 62 35 31 38 38 63 35 34 34 33  06bfdfb5188c5443
1270: 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  d..tcltest::test
1280: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 31   Hash_SHA224-2.1
1290: 38 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  8 {SHA224ShortMs
12a0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
12b0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
12c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
12d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
12e0: 20 61 34 62 63 31 30 62 31 61 36 32 63 39 36 64   a4bc10b1a62c96d
12f0: 34 35 39 66 62 61 66 33 61 35 61 61 33 66 61 63  459fbaf3a5aa3fac
1300: 65 37 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  e73]} \..-body {
1310: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1320: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
1330: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1340: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1350: 64 37 65 36 36 33 34 37 32 33 61 63 32 35 63 62  d7e6634723ac25cb
1360: 31 38 37 39 62 64 62 31 35 30 38 64 61 30 35 33  1879bdb1508da053
1370: 31 33 35 33 30 34 31 39 30 31 33 66 65 32 35 35  13530419013fe255
1380: 39 36 37 61 33 39 65 31 0a 0a 74 63 6c 74 65 73  967a39e1..tcltes
1390: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
13a0: 32 32 34 2d 32 2e 31 39 20 7b 53 48 41 32 32 34  224-2.19 {SHA224
13b0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
13c0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
13d0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
13e0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
13f0: 6f 64 65 20 68 65 78 20 39 65 38 66 33 63 36 36  ode hex 9e8f3c66
1400: 34 35 63 31 37 34 39 62 35 35 63 35 30 64 32 30  45c1749b55c50d20
1410: 31 38 63 65 34 30 64 63 32 34 32 37 5d 7d 20 5c  18ce40dc2427]} \
1420: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1430: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1440: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1450: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1460: 20 2d 72 65 73 75 6c 74 20 32 66 35 61 35 38 33   -result 2f5a583
1470: 62 66 35 38 38 63 38 39 38 38 61 35 37 32 64 31  bf588c8988a572d1
1480: 32 38 61 39 35 62 65 61 35 65 66 31 62 36 36 37  28a95bea5ef1b667
1490: 38 30 61 37 64 34 62 65 39 63 32 39 65 66 63 33  80a7d4be9c29efc3
14a0: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
14b0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
14c0: 30 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  0 {SHA224ShortMs
14d0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
14e0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
14f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1500: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1510: 20 32 64 62 36 64 32 30 37 63 30 62 37 64 39 31   2db6d207c0b7d91
1520: 31 37 66 32 34 64 37 38 65 65 35 39 61 62 66 32  17f24d78ee59abf2
1530: 66 33 31 36 39 37 38 5d 7d 20 5c 0a 09 2d 62 6f  f316978]} \..-bo
1540: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
1550: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
1560: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1570: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1580: 75 6c 74 20 33 35 36 38 31 66 63 65 32 38 33 30  ult 35681fce2830
1590: 37 63 61 65 31 39 35 32 32 63 32 33 63 62 64 34  7cae19522c23cbd4
15a0: 61 37 37 39 36 39 33 34 37 66 37 64 38 65 65 34  a77969347f7d8ee4
15b0: 61 33 30 38 38 62 61 39 30 61 64 61 0a 0a 74 63  a3088ba90ada..tc
15c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
15d0: 5f 53 48 41 32 32 34 2d 32 2e 32 31 20 7b 53 48  _SHA224-2.21 {SH
15e0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
15f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1600: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
1610: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1620: 20 64 65 63 6f 64 65 20 68 65 78 20 33 64 66 35   decode hex 3df5
1630: 65 37 66 33 39 39 66 36 64 64 36 31 61 31 32 61  e7f399f6dd61a12a
1640: 39 64 34 65 39 34 36 34 66 63 34 39 39 37 63 31  9d4e9464fc4997c1
1650: 66 33 37 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  f37b]} \..-body 
1660: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1670: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
1680: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1690: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
16a0: 20 61 33 65 36 38 30 37 36 65 33 30 37 35 31 30   a3e68076e307510
16b0: 38 35 61 38 34 33 61 36 63 62 66 62 66 30 66 33  85a843a6cbfbf0f3
16c0: 64 65 65 36 33 64 39 63 34 32 31 39 63 39 31 34  dee63d9c4219c914
16d0: 33 37 32 65 35 30 62 32 38 0a 0a 74 63 6c 74 65  372e50b28..tclte
16e0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
16f0: 41 32 32 34 2d 32 2e 32 32 20 7b 53 48 41 32 32  A224-2.22 {SHA22
1700: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
1710: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
1720: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1730: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1740: 63 6f 64 65 20 68 65 78 20 36 35 37 38 31 64 30  code hex 65781d0
1750: 31 38 66 32 37 63 61 30 63 37 32 61 39 66 61 39  18f27ca0c72a9fa9
1760: 61 62 34 36 34 38 65 64 33 36 39 36 34 36 64 64  ab4648ed369646dd
1770: 33 63 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  3ce]} \..-body {
1780: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1790: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
17a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
17b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
17c0: 64 31 35 65 66 30 64 38 37 32 64 30 32 64 61 36  d15ef0d872d02da6
17d0: 34 32 37 62 38 64 30 33 34 39 64 65 61 32 66 32  427b8d0349dea2f2
17e0: 30 34 65 36 37 31 33 33 62 37 33 36 35 62 34 62  04e67133b7365b4b
17f0: 31 35 30 65 66 63 33 63 0a 0a 74 63 6c 74 65 73  150efc3c..tcltes
1800: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1810: 32 32 34 2d 32 2e 32 33 20 7b 53 48 41 32 32 34  224-2.23 {SHA224
1820: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1830: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
1840: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
1850: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
1860: 6f 64 65 20 68 65 78 20 61 66 34 38 65 65 64 64  ode hex af48eedd
1870: 64 39 33 66 65 65 36 39 64 31 62 64 37 64 65 34  d93fee69d1bd7de4
1880: 32 38 61 36 33 39 38 36 30 31 31 64 31 30 39 34  28a63986011d1094
1890: 35 65 61 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  5eaf]} \..-body 
18a0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
18b0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
18c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
18d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
18e0: 20 62 38 39 64 34 32 38 65 65 34 32 65 33 39 37   b89d428ee42e397
18f0: 63 66 31 31 30 32 39 65 63 62 62 32 37 62 61 64  cf11029ecbb27bad
1900: 64 64 30 33 36 63 38 39 33 38 66 35 31 63 38 61  dd036c8938f51c8a
1910: 62 35 36 62 38 37 35 61 63 0a 0a 74 63 6c 74 65  b56b875ac..tclte
1920: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
1930: 41 32 32 34 2d 32 2e 32 34 20 7b 53 48 41 32 32  A224-2.24 {SHA22
1940: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
1950: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
1960: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
1970: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
1980: 63 6f 64 65 20 68 65 78 20 64 66 32 62 66 30 64  code hex df2bf0d
1990: 35 66 39 63 39 39 34 61 63 36 39 64 37 38 62 61  5f9c994ac69d78ba
19a0: 61 30 64 35 31 32 65 63 65 62 37 34 64 38 61 30  a0d512eceb74d8a0
19b0: 34 37 35 33 31 63 31 5d 7d 20 5c 0a 09 2d 62 6f  47531c1]} \..-bo
19c0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
19d0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
19e0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
19f0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1a00: 75 6c 74 20 64 62 38 65 31 63 65 36 38 63 38 63  ult db8e1ce68c8c
1a10: 36 62 38 34 64 36 64 62 37 35 35 63 32 62 38 62  6b84d6db755c2b8b
1a20: 66 35 34 66 33 63 34 62 30 38 31 61 38 38 31 65  f54f3c4b081a881e
1a30: 66 63 64 64 61 66 33 30 33 32 39 34 0a 0a 74 63  fcddaf303294..tc
1a40: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1a50: 5f 53 48 41 32 32 34 2d 32 2e 32 35 20 7b 53 48  _SHA224-2.25 {SH
1a60: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
1a70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1a80: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
1a90: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1aa0: 20 64 65 63 6f 64 65 20 68 65 78 20 34 38 64 32   decode hex 48d2
1ab0: 66 32 30 39 35 35 65 61 32 64 31 33 34 33 33 63  f20955ea2d13433c
1ac0: 32 30 62 63 30 34 30 34 65 62 32 65 36 61 64 37  20bc0404eb2e6ad7
1ad0: 39 65 64 32 38 66 37 63 62 34 63 30 5d 7d 20 5c  9ed28f7cb4c0]} \
1ae0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1af0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1b00: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1b10: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1b20: 20 2d 72 65 73 75 6c 74 20 33 36 31 37 63 63 33   -result 3617cc3
1b30: 31 37 39 66 38 62 35 39 61 64 63 65 31 38 31 65  179f8b59adce181e
1b40: 65 62 65 65 64 35 65 32 37 36 33 66 36 32 36 35  ebeed5e2763f6265
1b50: 30 39 34 39 32 32 34 61 36 37 65 35 33 36 39 34  0949224a67e53694
1b60: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
1b70: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
1b80: 36 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  6 {SHA224ShortMs
1b90: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1ba0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1bb0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1bc0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1bd0: 20 32 31 38 66 37 34 61 34 32 64 33 61 34 37 65   218f74a42d3a47e
1be0: 66 33 62 38 30 36 36 30 31 66 62 61 30 32 34 62  f3b806601fba024b
1bf0: 30 37 38 63 62 66 66 34 65 34 62 38 35 37 37 32  078cbff4e4b85772
1c00: 65 30 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  e0e]} \..-body {
1c10: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
1c20: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
1c30: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
1c40: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
1c50: 62 35 66 34 30 62 39 35 64 63 63 33 36 33 62 39  b5f40b95dcc363b9
1c60: 37 65 39 64 30 30 62 36 37 63 35 64 37 63 33 37  7e9d00b67c5d7c37
1c70: 66 31 37 61 62 35 36 33 32 39 37 64 32 64 36 37  f17ab563297d2d67
1c80: 61 34 64 66 32 30 63 39 0a 0a 74 63 6c 74 65 73  a4df20c9..tcltes
1c90: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
1ca0: 32 32 34 2d 32 2e 32 37 20 7b 53 48 41 32 32 34  224-2.27 {SHA224
1cb0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
1cc0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
1cd0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
1ce0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
1cf0: 6f 64 65 20 68 65 78 20 65 66 35 35 62 31 65 37  ode hex ef55b1e7
1d00: 39 37 30 30 30 62 30 34 66 63 64 62 39 62 33 30  97000b04fcdb9b30
1d10: 32 31 62 30 39 33 32 37 65 33 62 34 65 32 36 39  21b09327e3b4e269
1d20: 64 32 30 63 61 62 64 66 34 31 38 66 5d 7d 20 5c  d20cabdf418f]} \
1d30: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1d40: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1d50: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1d60: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1d70: 20 2d 72 65 73 75 6c 74 20 38 32 37 62 32 32 33   -result 827b223
1d80: 64 35 31 32 34 30 63 32 65 33 32 37 31 63 35 33  d51240c2e3271c53
1d90: 34 63 31 39 63 35 36 33 37 62 36 66 65 31 30 30  4c19c5637b6fe100
1da0: 38 33 65 38 35 62 63 66 30 36 37 36 31 65 66 32  83e85bcf06761ef2
1db0: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  1..tcltest::test
1dc0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
1dd0: 38 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  8 {SHA224ShortMs
1de0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1df0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1e00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1e10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1e20: 20 39 36 64 66 34 33 38 37 64 63 32 63 34 30 32   96df4387dc2c402
1e30: 39 37 30 34 33 62 65 61 33 36 34 38 33 66 36 35  97043bea36483f65
1e40: 65 34 65 62 31 65 30 37 65 39 33 33 35 39 63 62  e4eb1e07e93359cb
1e50: 37 65 36 38 36 31 30 5d 7d 20 5c 0a 09 2d 62 6f  7e68610]} \..-bo
1e60: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
1e70: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
1e80: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
1e90: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
1ea0: 75 6c 74 20 39 38 65 34 33 30 61 36 33 66 63 64  ult 98e430a63fcd
1eb0: 65 64 61 66 63 39 34 31 39 30 31 30 66 37 66 35  edafc9419010f7f5
1ec0: 39 61 34 64 38 31 36 61 34 35 62 34 66 39 37 33  9a4d816a45b4f973
1ed0: 62 65 62 36 32 35 33 30 66 66 38 63 0a 0a 74 63  beb62530ff8c..tc
1ee0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
1ef0: 5f 53 48 41 32 32 34 2d 32 2e 32 39 20 7b 53 48  _SHA224-2.29 {SH
1f00: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
1f10: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
1f20: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
1f30: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
1f40: 20 64 65 63 6f 64 65 20 68 65 78 20 33 65 63 30   decode hex 3ec0
1f50: 61 61 38 64 33 30 64 35 65 64 38 32 35 62 37 37  aa8d30d5ed825b77
1f60: 64 63 37 30 39 35 66 34 32 31 62 31 65 36 30 38  dc7095f421b1e608
1f70: 31 35 38 37 39 37 61 33 37 37 66 66 38 62 65 64  158797a377ff8bed
1f80: 36 34 31 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  641b]} \..-body 
1f90: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
1fa0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
1fb0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
1fc0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
1fd0: 20 33 31 30 38 33 32 31 65 62 37 66 66 38 35 37   3108321eb7ff857
1fe0: 66 36 61 61 65 36 39 31 30 31 62 39 33 37 66 33  f6aae69101b937f3
1ff0: 32 61 35 31 65 61 32 37 39 61 36 63 31 34 62 61  2a51ea279a6c14ba
2000: 35 32 33 32 61 63 38 63 31 0a 0a 74 63 6c 74 65  5232ac8c1..tclte
2010: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2020: 41 32 32 34 2d 32 2e 33 30 20 7b 53 48 41 32 32  A224-2.30 {SHA22
2030: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
2040: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
2050: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2060: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2070: 63 6f 64 65 20 68 65 78 20 38 62 30 32 33 39 37  code hex 8b02397
2080: 31 32 30 33 39 66 30 37 37 63 65 33 32 33 62 33  12039f077ce323b3
2090: 35 66 34 65 33 30 36 37 38 37 62 39 62 33 35 32  5f4e306787b9b352
20a0: 37 30 30 39 36 65 35 37 37 33 35 63 66 66 34 35  70096e57735cff45
20b0: 64 38 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  d84]} \..-body {
20c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
20d0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
20e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
20f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2100: 61 35 63 37 34 30 64 33 63 65 34 36 62 62 32 65  a5c740d3ce46bb2e
2110: 30 61 30 34 38 34 38 38 66 32 62 30 36 30 35 63  0a048488f2b0605c
2120: 36 64 30 63 61 30 65 61 32 66 33 38 32 64 30 34  6d0ca0ea2f382d04
2130: 33 64 31 33 64 62 39 37 0a 0a 74 63 6c 74 65 73  3d13db97..tcltes
2140: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2150: 32 32 34 2d 32 2e 33 31 20 7b 53 48 41 32 32 34  224-2.31 {SHA224
2160: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2170: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
2180: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2190: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
21a0: 6f 64 65 20 68 65 78 20 30 34 34 62 65 33 30 31  ode hex 044be301
21b0: 36 37 61 39 37 35 38 63 34 36 63 37 32 37 39 32  67a9758c46c72792
21c0: 31 64 63 34 65 62 34 65 30 64 63 62 39 36 35 36  1dc4eb4e0dcb9656
21d0: 32 33 34 32 33 65 36 66 64 64 34 34 65 37 61 34  23423e6fdd44e7a4
21e0: 65 61 35 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  ea52]} \..-body 
21f0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2200: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
2210: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2220: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2230: 20 36 65 62 37 38 33 31 33 63 37 34 33 65 61 38   6eb78313c743ea8
2240: 37 36 39 64 38 33 34 30 66 32 38 34 64 64 61 36  769d8340f284dda6
2250: 64 65 64 36 34 61 31 64 62 36 34 33 39 32 66 32  ded64a1db64392f2
2260: 31 61 62 62 38 32 63 35 63 0a 0a 74 63 6c 74 65  1abb82c5c..tclte
2270: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2280: 41 32 32 34 2d 32 2e 33 32 20 7b 53 48 41 32 32  A224-2.32 {SHA22
2290: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
22a0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
22b0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
22c0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
22d0: 63 6f 64 65 20 68 65 78 20 35 37 66 36 31 31 38  code hex 57f6118
22e0: 62 61 63 63 65 34 37 65 63 63 33 31 63 65 38 62  bacce47ecc31ce8b
22f0: 30 63 30 38 33 64 33 63 39 32 31 39 65 30 64 62  0c083d3c9219e0db
2300: 65 39 65 34 66 62 65 61 31 35 34 35 33 37 63 34  e9e4fbea154537c4
2310: 31 32 33 31 61 63 63 5d 7d 20 5c 0a 09 2d 62 6f  1231acc]} \..-bo
2320: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
2330: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
2340: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2350: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2360: 75 6c 74 20 30 64 62 62 35 33 63 38 36 36 64 36  ult 0dbb53c866d6
2370: 33 61 66 34 34 63 32 32 32 63 37 36 63 38 32 35  3af44c222c76c825
2380: 64 66 30 65 33 37 39 64 63 65 64 66 62 39 35 38  df0e379dcedfb958
2390: 64 62 30 33 62 36 66 64 32 39 61 35 0a 0a 74 63  db03b6fd29a5..tc
23a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
23b0: 5f 53 48 41 32 32 34 2d 32 2e 33 33 20 7b 53 48  _SHA224-2.33 {SH
23c0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
23d0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
23e0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
23f0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2400: 20 64 65 63 6f 64 65 20 68 65 78 20 66 65 31 66   decode hex fe1f
2410: 30 66 62 30 32 63 39 30 31 31 66 34 63 38 63 35  0fb02c9011f4c8c5
2420: 39 30 35 39 33 34 65 64 31 35 31 33 36 37 37 31  905934ed15136771
2430: 37 33 37 63 65 33 31 63 35 38 35 39 65 36 37 66  737ce31c5859e67f
2440: 32 33 35 66 65 35 39 34 66 35 66 36 5d 7d 20 5c  235fe594f5f6]} \
2450: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2460: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2470: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
2480: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2490: 20 2d 72 65 73 75 6c 74 20 62 62 65 61 61 63 63   -result bbeaacc
24a0: 36 33 32 63 32 61 33 64 62 32 61 39 62 34 37 66  632c2a3db2a9b47f
24b0: 31 35 37 61 62 35 34 61 61 32 37 37 37 36 63 36  157ab54aa27776c6
24c0: 65 37 34 63 66 30 62 63 61 61 39 31 62 30 36 64  e74cf0bcaa91b06d
24d0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
24e0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 33   Hash_SHA224-2.3
24f0: 34 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  4 {SHA224ShortMs
2500: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2510: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2520: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2530: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2540: 20 31 34 66 62 30 31 61 65 39 64 36 30 31 35 65   14fb01ae9d6015e
2550: 63 62 33 65 35 36 64 36 65 63 64 66 61 34 62 63  cb3e56d6ecdfa4bc
2560: 30 35 33 33 31 38 36 61 64 66 38 34 35 37 66 35  0533186adf8457f5
2570: 65 34 61 35 63 35 37 63 36 38 37 38 39 35 66 33  e4a5c57c687895f3
2580: 64 62 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  db3]} \..-body {
2590: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
25a0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
25b0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
25c0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
25d0: 31 37 38 32 37 32 63 37 64 37 63 63 37 31 62 31  178272c7d7cc71b1
25e0: 35 30 37 34 63 32 37 65 33 62 37 39 39 37 64 34  5074c27e3b7997d4
25f0: 61 33 62 61 39 39 36 32 36 39 38 36 61 31 61 31  a3ba99626986a1a1
2600: 36 63 66 33 30 30 33 30 0a 0a 74 63 6c 74 65 73  6cf30030..tcltes
2610: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2620: 32 32 34 2d 32 2e 33 35 20 7b 53 48 41 32 32 34  224-2.35 {SHA224
2630: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2640: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
2650: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2660: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2670: 6f 64 65 20 68 65 78 20 66 66 36 63 34 39 37 31  ode hex ff6c4971
2680: 32 66 30 34 34 66 34 30 36 33 63 31 34 31 32 35  2f044f4063c14125
2690: 63 30 63 64 66 62 61 31 38 65 64 38 62 37 31 33  c0cdfba18ed8b713
26a0: 38 34 35 33 37 36 38 61 34 35 64 66 61 32 64 38  8453768a45dfa2d8
26b0: 32 61 30 35 66 31 65 38 34 32 32 37 5d 7d 20 5c  2a05f1e84227]} \
26c0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
26d0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
26e0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
26f0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2700: 20 2d 72 65 73 75 6c 74 20 34 30 33 32 38 34 63   -result 403284c
2710: 38 38 38 61 37 32 38 30 62 63 38 62 66 63 32 35  888a7280bc8bfc25
2720: 66 30 63 33 34 31 38 32 63 64 33 37 38 33 30 36  f0c34182cd378306
2730: 61 32 31 61 31 34 30 34 64 34 65 31 63 34 30 63  a21a1404d4e1c40c
2740: 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  f..tcltest::test
2750: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 33   Hash_SHA224-2.3
2760: 36 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  6 {SHA224ShortMs
2770: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2780: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2790: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
27a0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
27b0: 20 66 39 30 30 62 64 37 65 30 31 31 37 32 34 37   f900bd7e0117247
27c0: 66 39 37 63 38 66 63 37 61 36 36 35 63 37 36 61  f97c8fc7a665c76a
27d0: 33 35 66 35 37 31 63 33 33 36 36 35 37 31 64 36  35f571c3366571d6
27e0: 63 34 61 33 65 65 35 64 37 66 62 39 33 66 31 64  c4a3ee5d7fb93f1d
27f0: 31 66 37 32 36 65 32 5d 7d 20 5c 0a 09 2d 62 6f  1f726e2]} \..-bo
2800: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
2810: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
2820: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2830: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2840: 75 6c 74 20 34 38 32 33 35 62 39 38 32 30 64 36  ult 48235b9820d6
2850: 36 64 38 38 38 35 66 61 61 62 66 36 61 39 65 64  6d8885faabf6a9ed
2860: 65 36 33 62 61 32 61 32 31 62 36 31 37 37 65 39  e63ba2a21b6177e9
2870: 38 37 61 33 33 32 34 32 33 37 33 65 0a 0a 74 63  87a33242373e..tc
2880: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2890: 5f 53 48 41 32 32 34 2d 32 2e 33 37 20 7b 53 48  _SHA224-2.37 {SH
28a0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
28b0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
28c0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
28d0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
28e0: 20 64 65 63 6f 64 65 20 68 65 78 20 34 32 64 33   decode hex 42d3
28f0: 38 31 38 38 61 63 34 39 34 34 30 63 66 65 66 62  8188ac49440cfefb
2900: 37 37 64 62 39 37 35 65 30 38 33 65 36 62 32 32  77db975e083e6b22
2910: 33 34 38 63 34 63 36 37 66 30 66 38 36 39 32 65  348c4c67f0f8692e
2920: 38 38 61 64 31 34 30 64 38 36 31 64 63 38 32 38  88ad140d861dc828
2930: 64 35 39 35 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  d595]} \..-body 
2940: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2950: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
2960: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2970: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2980: 20 36 31 35 33 34 34 66 38 39 30 65 35 62 63 66   615344f890e5bcf
2990: 37 31 62 35 65 66 65 33 39 64 65 31 66 63 39 34  71b5efe39de1fc94
29a0: 32 62 61 31 66 65 33 30 64 64 39 65 39 31 34 36  2ba1fe30dd9e9146
29b0: 61 64 62 36 61 34 31 62 66 0a 0a 74 63 6c 74 65  adb6a41bf..tclte
29c0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
29d0: 41 32 32 34 2d 32 2e 33 38 20 7b 53 48 41 32 32  A224-2.38 {SHA22
29e0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
29f0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
2a00: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2a10: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2a20: 63 6f 64 65 20 68 65 78 20 37 34 66 64 64 37 64  code hex 74fdd7d
2a30: 39 35 38 62 38 61 65 37 63 32 63 33 63 35 63 66  958b8ae7c2c3c5cf
2a40: 66 34 32 36 36 64 66 62 32 62 33 62 38 34 32 63  f4266dfb2b3b842c
2a50: 39 66 35 39 65 63 62 62 63 61 66 66 35 37 35 65  9f59ecbbcaff575e
2a60: 64 63 62 63 64 61 30 38 63 63 64 36 65 30 38 62  dcbcda08ccd6e08b
2a70: 37 36 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  764]} \..-body {
2a80: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2a90: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
2aa0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2ab0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2ac0: 36 36 64 37 64 36 63 35 34 66 63 37 37 37 35 61  66d7d6c54fc7775a
2ad0: 30 62 61 38 34 35 62 61 33 65 31 31 37 31 39 66  0ba845ba3e11719f
2ae0: 61 35 33 35 62 39 32 38 39 66 32 30 62 30 39 38  a535b9289f20b098
2af0: 63 35 66 37 61 33 34 32 0a 0a 74 63 6c 74 65 73  c5f7a342..tcltes
2b00: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
2b10: 32 32 34 2d 32 2e 33 39 20 7b 53 48 41 32 32 34  224-2.39 {SHA224
2b20: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
2b30: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
2b40: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
2b50: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
2b60: 6f 64 65 20 68 65 78 20 39 33 34 34 31 36 64 64  ode hex 934416dd
2b70: 30 35 38 31 65 32 32 66 32 62 66 62 65 63 65 37  0581e22f2bfbece7
2b80: 62 62 36 34 61 66 65 38 32 30 34 35 31 66 61 32  bb64afe820451fa2
2b90: 31 33 34 32 64 66 37 65 36 66 39 66 62 33 37 63  1342df7e6f9fb37c
2ba0: 34 31 30 33 33 38 31 61 31 66 37 63 64 33 37 39  4103381a1f7cd379
2bb0: 62 63 63 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  bcc4]} \..-body 
2bc0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
2bd0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
2be0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
2bf0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
2c00: 20 66 61 65 38 66 31 61 61 32 32 64 65 66 34 64   fae8f1aa22def4d
2c10: 62 61 61 38 31 34 63 35 62 30 62 61 62 64 65 63  baa814c5b0babdec
2c20: 34 33 33 39 34 39 35 31 37 39 32 63 39 33 37 30  43394951792c9370
2c30: 35 30 64 32 39 36 33 61 36 0a 0a 74 63 6c 74 65  50d2963a6..tclte
2c40: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
2c50: 41 32 32 34 2d 32 2e 34 30 20 7b 53 48 41 32 32  A224-2.40 {SHA22
2c60: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
2c70: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
2c80: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
2c90: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
2ca0: 63 6f 64 65 20 68 65 78 20 31 30 32 34 30 31 63  code hex 102401c
2cb0: 38 34 61 37 31 36 61 65 37 32 35 37 39 63 36 61  84a716ae72579c6a
2cc0: 65 37 39 63 33 35 39 65 61 33 30 39 66 66 64 39  e79c359ea309ffd9
2cd0: 35 61 62 66 66 61 65 34 63 36 31 38 38 34 63 30  5abffae4c61884c0
2ce0: 33 63 39 65 39 39 64 66 37 37 62 36 63 39 32 65  3c9e99df77b6c92e
2cf0: 34 39 32 63 61 63 62 5d 7d 20 5c 0a 09 2d 62 6f  492cacb]} \..-bo
2d00: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
2d10: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
2d20: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
2d30: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
2d40: 75 6c 74 20 38 66 33 34 38 31 32 64 35 37 61 31  ult 8f34812d57a1
2d50: 36 65 66 38 61 35 31 61 64 39 38 37 36 36 30 63  6ef8a51ad987660c
2d60: 35 66 38 36 32 33 65 30 66 61 39 64 38 39 38 34  5f8623e0fa9d8984
2d70: 36 65 32 38 64 34 36 64 31 34 64 39 0a 0a 74 63  6e28d46d14d9..tc
2d80: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
2d90: 5f 53 48 41 32 32 34 2d 32 2e 34 31 20 7b 53 48  _SHA224-2.41 {SH
2da0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
2db0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
2dc0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
2dd0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
2de0: 20 64 65 63 6f 64 65 20 68 65 78 20 37 39 62 63   decode hex 79bc
2df0: 38 66 62 36 30 66 38 35 64 31 35 61 32 33 38 36  8fb60f85d15a2386
2e00: 35 36 36 65 33 65 37 33 31 34 64 66 32 38 34 35  566e3e7314df2845
2e10: 33 33 30 38 35 61 64 64 31 63 37 62 62 36 65 61  33085add1c7bb6ea
2e20: 64 33 66 66 37 36 30 63 38 36 64 35 36 33 33 61  d3ff760c86d5633a
2e30: 36 36 34 30 34 37 36 31 62 35 34 34 5d 7d 20 5c  66404761b544]} \
2e40: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2e50: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2e60: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
2e70: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2e80: 20 2d 72 65 73 75 6c 74 20 36 35 63 35 34 30 31   -result 65c5401
2e90: 34 63 66 61 33 30 66 30 62 63 32 37 64 31 63 36  4cfa30f0bc27d1c6
2ea0: 65 66 61 39 36 61 65 38 34 38 31 66 34 63 32 35  efa96ae8481f4c25
2eb0: 30 35 62 66 66 32 37 32 39 35 36 65 61 62 30 64  05bff272956eab0d
2ec0: 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  f..tcltest::test
2ed0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 34   Hash_SHA224-2.4
2ee0: 32 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  2 {SHA224ShortMs
2ef0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2f00: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2f10: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2f20: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2f30: 20 64 62 33 31 32 31 65 61 37 31 32 39 34 39 38   db3121ea7129498
2f40: 33 62 31 38 35 32 30 37 61 39 64 38 64 65 33 65  3b185207a9d8de3e
2f50: 34 38 34 61 36 36 63 30 34 33 31 62 66 30 37 63  484a66c0431bf07c
2f60: 39 36 32 65 62 38 32 39 37 37 63 34 66 38 33 34  962eb82977c4f834
2f70: 62 37 63 33 66 31 65 37 39 33 31 61 34 61 37 66  b7c3f1e7931a4a7f
2f80: 37 61 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  7a9]} \..-body {
2f90: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
2fa0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
2fb0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
2fc0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
2fd0: 39 33 31 36 64 32 66 30 32 31 63 32 39 31 33 64  9316d2f021c2913d
2fe0: 36 33 61 37 65 36 36 39 32 34 63 38 37 63 31 36  63a7e66924c87c16
2ff0: 31 63 33 63 66 64 65 30 65 61 37 62 61 30 37 66  1c3cfde0ea7ba07f
3000: 35 34 37 37 32 38 36 32 0a 0a 74 63 6c 74 65 73  54772862..tcltes
3010: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3020: 32 32 34 2d 32 2e 34 33 20 7b 53 48 41 32 32 34  224-2.43 {SHA224
3030: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3040: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
3050: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3060: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3070: 6f 64 65 20 68 65 78 20 30 64 64 35 31 61 61 36  ode hex 0dd51aa6
3080: 36 30 63 35 63 62 34 62 37 66 37 38 63 34 36 38  60c5cb4b7f78c468
3090: 35 32 63 31 64 62 38 37 30 37 61 62 34 35 31 63  52c1db8707ab451c
30a0: 31 33 36 37 62 36 31 38 37 33 38 38 63 38 62 62  1367b6187388c8bb
30b0: 33 38 37 33 61 31 61 61 34 32 31 30 64 30 34 31  3873a1aa4210d041
30c0: 34 63 63 36 37 39 32 61 32 39 61 37 5d 7d 20 5c  4cc6792a29a7]} \
30d0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
30e0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
30f0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
3100: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
3110: 20 2d 72 65 73 75 6c 74 20 33 31 39 38 39 65 37   -result 31989e7
3120: 61 36 32 61 35 31 33 32 61 35 30 37 30 64 37 37  a62a5132a5070d77
3130: 32 35 30 64 38 39 30 34 62 62 38 32 64 34 35 37  250d8904bb82d457
3140: 64 63 36 33 34 36 39 64 30 36 62 35 30 31 38 35  dc63469d06b50185
3150: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
3160: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 34   Hash_SHA224-2.4
3170: 34 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  4 {SHA224ShortMs
3180: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3190: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
31a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
31b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
31c0: 20 34 38 37 66 64 32 65 35 62 36 39 34 62 37 30   487fd2e5b694b70
31d0: 37 31 64 33 37 38 39 61 32 35 38 61 35 31 65 38  71d3789a258a51e8
31e0: 36 30 34 64 63 30 64 33 65 38 66 35 64 36 32 66  604dc0d3e8f5d62f
31f0: 33 39 31 33 31 39 36 38 65 36 30 32 61 62 65 31  39131968e602abe1
3200: 64 64 66 36 62 30 32 37 38 39 36 32 61 35 31 32  ddf6b0278962a512
3210: 34 30 38 62 35 35 33 5d 7d 20 5c 0a 09 2d 62 6f  408b553]} \..-bo
3220: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
3230: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
3240: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3250: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3260: 75 6c 74 20 65 37 39 38 36 38 33 34 33 38 32 38  ult e79868343828
3270: 34 36 32 36 64 37 31 30 38 37 37 64 39 65 65 61  4626d710877d9eea
3280: 33 61 30 65 30 32 66 33 34 39 66 63 34 33 61 63  3a0e02f349fc43ac
3290: 62 37 66 39 66 38 66 39 65 38 31 63 0a 0a 74 63  b7f9f8f9e81c..tc
32a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
32b0: 5f 53 48 41 32 32 34 2d 32 2e 34 35 20 7b 53 48  _SHA224-2.45 {SH
32c0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
32d0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
32e0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
32f0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3300: 20 64 65 63 6f 64 65 20 68 65 78 20 31 31 31 38   decode hex 1118
3310: 33 62 64 65 62 66 65 66 35 38 65 34 64 61 35 62  3bdebfef58e4da5b
3320: 31 63 62 37 33 62 65 30 64 33 30 62 32 30 64 61  1cb73be0d30b20da
3330: 33 30 34 64 38 36 35 39 64 39 32 31 64 61 32 65  304d8659d921da2e
3340: 32 37 30 66 64 31 34 36 32 36 37 39 39 35 33 37  270fd14626799537
3350: 65 34 64 31 32 31 31 39 65 38 30 39 65 65 39 37  e4d12119e809ee97
3360: 30 30 34 61 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  004a]} \..-body 
3370: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3380: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
3390: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
33a0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
33b0: 20 39 36 38 37 30 36 35 37 64 36 63 62 36 36 38   96870657d6cb668
33c0: 62 65 33 39 39 35 61 61 38 62 64 33 31 64 66 37  be3995aa8bd31df7
33d0: 37 38 34 30 64 31 64 31 39 31 35 64 37 32 34 38  7840d1d1915d7248
33e0: 32 65 38 33 62 36 62 32 63 0a 0a 74 63 6c 74 65  2e83b6b2c..tclte
33f0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3400: 41 32 32 34 2d 32 2e 34 36 20 7b 53 48 41 32 32  A224-2.46 {SHA22
3410: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
3420: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
3430: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3440: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3450: 63 6f 64 65 20 68 65 78 20 61 32 33 39 64 65 35  code hex a239de5
3460: 63 38 65 32 36 34 34 65 38 66 30 33 30 64 39 34  c8e2644e8f030d94
3470: 64 39 38 66 31 61 33 30 36 36 34 65 36 66 64 39  d98f1a30664e6fd9
3480: 36 31 64 63 32 39 37 37 61 39 63 30 38 62 65 35  61dc2977a9c08be5
3490: 63 33 31 64 38 64 65 38 39 34 35 30 39 34 35 61  c31d8de89450945a
34a0: 35 33 64 37 39 32 39 39 65 61 32 61 31 65 64 64  53d79299ea2a1edd
34b0: 65 37 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  e7f]} \..-body {
34c0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
34d0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
34e0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
34f0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3500: 65 39 39 37 34 33 64 34 66 64 32 36 63 38 38 30  e99743d4fd26c880
3510: 30 63 33 36 61 36 37 62 36 37 36 32 32 34 37 63  0c36a67b6762247c
3520: 32 39 64 61 36 62 36 32 37 39 34 31 32 33 63 35  29da6b62794123c5
3530: 39 64 65 30 36 64 63 30 0a 0a 74 63 6c 74 65 73  9de06dc0..tcltes
3540: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3550: 32 32 34 2d 32 2e 34 37 20 7b 53 48 41 32 32 34  224-2.47 {SHA224
3560: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3570: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
3580: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3590: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
35a0: 6f 64 65 20 68 65 78 20 39 31 37 63 34 35 37 37  ode hex 917c4577
35b0: 61 61 36 62 30 66 39 64 66 34 39 39 39 39 66 63  aa6b0f9df49999fc
35c0: 31 63 39 35 38 63 62 30 39 62 37 66 64 35 66 63  1c958cb09b7fd5fc
35d0: 38 30 62 65 39 34 39 36 37 30 66 30 33 35 34 35  80be949670f03545
35e0: 65 62 32 37 64 63 61 65 64 30 35 32 30 37 36 62  eb27dcaed052076b
35f0: 32 34 66 39 36 66 35 65 30 66 32 65 32 66 34 35  24f96f5e0f2e2f45
3600: 32 37 63 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  27c0]} \..-body 
3610: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3620: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
3630: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3640: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3650: 20 37 65 63 64 36 39 33 64 34 64 39 63 66 34 33   7ecd693d4d9cf43
3660: 39 32 39 34 36 34 36 39 38 65 66 61 30 62 61 63  929464698efa0bac
3670: 33 33 63 32 65 31 34 32 34 66 38 31 36 65 64 63  33c2e1424f816edc
3680: 37 36 39 32 36 30 39 37 38 0a 0a 74 63 6c 74 65  769260978..tclte
3690: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
36a0: 41 32 32 34 2d 32 2e 34 38 20 7b 53 48 41 32 32  A224-2.48 {SHA22
36b0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
36c0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
36d0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
36e0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
36f0: 63 6f 64 65 20 68 65 78 20 63 33 66 31 65 37 33  code hex c3f1e73
3700: 35 61 36 37 34 31 61 61 34 38 31 61 64 35 37 37  5a6741aa481ad577
3710: 61 39 38 64 62 61 63 31 66 30 33 63 63 38 30 65  a98dbac1f03cc80e
3720: 61 30 64 61 65 31 62 39 34 64 62 32 33 36 39 65  a0dae1b94db2369e
3730: 64 34 65 39 33 66 61 63 64 32 39 63 36 34 65 34  d4e93facd29c64e4
3740: 65 37 37 62 32 35 30 33 38 32 37 39 31 32 30 62  e77b25038279120b
3750: 64 66 61 33 37 31 35 5d 7d 20 5c 0a 09 2d 62 6f  dfa3715]} \..-bo
3760: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
3770: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
3780: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3790: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
37a0: 75 6c 74 20 38 36 66 30 64 38 39 64 38 65 31 34  ult 86f0d89d8e14
37b0: 66 64 38 62 36 36 30 36 34 31 32 64 37 31 61 37  fd8b6606412d71a7
37c0: 61 35 34 61 33 34 37 62 33 30 34 65 61 35 64 34  a54a347b304ea5d4
37d0: 39 63 32 30 38 66 32 32 36 36 61 62 0a 0a 74 63  9c208f2266ab..tc
37e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
37f0: 5f 53 48 41 32 32 34 2d 32 2e 34 39 20 7b 53 48  _SHA224-2.49 {SH
3800: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
3810: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3820: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
3830: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3840: 20 64 65 63 6f 64 65 20 68 65 78 20 64 65 34 66   decode hex de4f
3850: 62 66 64 35 35 33 63 64 66 33 37 30 31 39 66 32  bfd553cdf37019f2
3860: 35 61 66 61 38 32 64 63 36 62 39 39 37 30 66 34  5afa82dc6b9970f4
3870: 62 62 31 65 62 62 63 33 37 66 38 30 64 33 30 38  bb1ebbc37f80d308
3880: 34 63 38 38 61 37 30 37 32 32 63 64 63 35 32 33  4c88a70722cdc523
3890: 61 39 65 33 63 32 61 66 62 61 64 30 64 63 30 32  a9e3c2afbad0dc02
38a0: 32 31 62 66 64 65 63 39 61 32 66 39 5d 7d 20 5c  21bfdec9a2f9]} \
38b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
38c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
38d0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
38e0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
38f0: 20 2d 72 65 73 75 6c 74 20 34 63 35 32 36 32 61   -result 4c5262a
3900: 63 62 34 61 32 61 34 34 65 61 61 39 62 63 36 37  cb4a2a44eaa9bc67
3910: 35 37 30 32 34 66 62 32 30 32 65 66 34 64 35 61  57024fb202ef4d5a
3920: 37 61 31 36 66 61 33 37 32 35 32 61 34 32 32 62  7a16fa37252a422b
3930: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
3940: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
3950: 30 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  0 {SHA224ShortMs
3960: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3970: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
3980: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3990: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
39a0: 20 64 62 32 65 32 65 62 36 33 36 36 31 30 63 66   db2e2eb636610cf
39b0: 34 32 65 39 62 33 33 34 33 33 61 63 63 65 31 62  42e9b33433acce1b
39c0: 33 62 39 32 35 39 34 39 66 32 39 37 64 64 38 33  3b925949f297dd83
39d0: 31 39 39 66 34 35 64 32 38 36 31 64 36 34 63 64  199f45d2861d64cd
39e0: 39 31 30 63 32 64 62 37 34 61 36 30 62 32 30 38  910c2db74a60b208
39f0: 39 30 34 35 65 32 32 63 62 61 30 61 35 33 36 31  9045e22cba0a5361
3a00: 33 37 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  37d]} \..-body {
3a10: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3a20: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
3a30: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3a40: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3a50: 31 36 62 66 34 65 34 35 62 63 64 63 36 30 34 34  16bf4e45bcdc6044
3a60: 37 63 36 38 64 63 62 33 30 65 36 62 30 38 66 35  7c68dcb30e6b08f5
3a70: 35 63 65 39 66 34 31 32 34 61 32 39 63 66 31 66  5ce9f4124a29cf1f
3a80: 39 61 39 64 30 36 35 64 0a 0a 74 63 6c 74 65 73  9a9d065d..tcltes
3a90: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
3aa0: 32 32 34 2d 32 2e 35 31 20 7b 53 48 41 32 32 34  224-2.51 {SHA224
3ab0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
3ac0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
3ad0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
3ae0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
3af0: 6f 64 65 20 68 65 78 20 61 38 65 37 32 39 64 33  ode hex a8e729d3
3b00: 33 36 64 35 64 36 61 63 35 30 65 31 65 32 32 66  36d5d6ac50e1e22f
3b10: 30 62 31 39 33 62 36 36 65 32 36 30 34 32 66 63  0b193b66e26042fc
3b20: 36 34 35 39 32 31 34 31 32 39 38 37 35 65 37 34  6459214129875e74
3b30: 30 61 62 32 62 31 34 32 39 31 38 63 31 33 38 61  0ab2b142918c138a
3b40: 61 66 39 34 31 38 36 33 61 64 33 62 37 65 36 30  af941863ad3b7e60
3b50: 36 35 34 35 30 36 31 33 62 32 37 33 5d 7d 20 5c  65450613b273]} \
3b60: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3b70: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3b80: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
3b90: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
3ba0: 20 2d 72 65 73 75 6c 74 20 34 35 32 62 66 32 65   -result 452bf2e
3bb0: 35 65 62 66 63 34 65 34 35 31 63 63 34 33 34 62  5ebfc4e451cc434b
3bc0: 63 30 39 65 32 61 31 30 30 33 32 65 65 64 30 62  c09e2a10032eed0b
3bd0: 37 36 32 37 63 66 35 35 65 37 65 35 65 64 30 65  7627cf55e7e5ed0e
3be0: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
3bf0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
3c00: 32 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  2 {SHA224ShortMs
3c10: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3c20: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
3c30: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3c40: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3c50: 20 64 30 35 33 31 37 64 34 62 35 33 35 66 39 64   d05317d4b535f9d
3c60: 31 30 66 37 33 39 64 30 63 32 64 65 64 66 33 66  10f739d0c2dedf3f
3c70: 66 62 30 39 30 63 31 61 64 39 64 32 30 35 30 38  fb090c1ad9d20508
3c80: 39 62 31 33 34 36 36 39 33 66 35 38 32 37 33 63  9b1346693f58273c
3c90: 34 39 32 35 63 30 66 61 63 65 35 37 62 61 34 35  4925c0face57ba45
3ca0: 61 64 36 66 63 36 38 37 63 36 36 61 38 38 66 63  ad6fc687c66a88fc
3cb0: 37 38 38 37 38 62 65 5d 7d 20 5c 0a 09 2d 62 6f  78878be]} \..-bo
3cc0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
3cd0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
3ce0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
3cf0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
3d00: 75 6c 74 20 34 66 30 33 63 34 33 39 65 30 39 37  ult 4f03c439e097
3d10: 62 35 31 62 30 30 65 33 31 34 66 36 37 35 39 33  b51b00e314f67593
3d20: 37 63 34 64 39 31 31 35 30 35 38 35 39 66 62 37  7c4d911505859fb7
3d30: 61 62 31 36 61 64 63 36 35 65 34 34 0a 0a 74 63  ab16adc65e44..tc
3d40: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
3d50: 5f 53 48 41 32 32 34 2d 32 2e 35 33 20 7b 53 48  _SHA224-2.53 {SH
3d60: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
3d70: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
3d80: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
3d90: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
3da0: 20 64 65 63 6f 64 65 20 68 65 78 20 32 36 62 62   decode hex 26bb
3db0: 34 65 64 34 66 30 34 32 34 63 36 30 66 65 34 32  4ed4f0424c60fe42
3dc0: 31 32 66 66 38 63 39 35 35 65 38 39 65 32 66 35  12ff8c955e89e2f5
3dd0: 35 33 61 37 64 37 37 30 31 62 65 35 39 34 31 36  53a7d7701be59416
3de0: 64 32 30 38 39 61 66 35 39 66 61 31 30 37 34 37  d2089af59fa10747
3df0: 32 34 65 32 31 34 65 39 31 39 62 31 65 33 30 66  24e214e919b1e30f
3e00: 33 33 66 62 37 38 33 37 34 62 34 62 30 35 35 62  33fb78374b4b055b
3e10: 62 63 39 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  bc9b]} \..-body 
3e20: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
3e30: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
3e40: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
3e50: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
3e60: 20 65 37 63 38 39 39 65 32 37 30 30 39 64 34 64   e7c899e27009d4d
3e70: 63 37 37 63 32 64 33 30 30 66 31 39 31 62 37 35  c77c2d300f191b75
3e80: 37 65 35 32 63 39 65 37 65 61 63 34 62 30 32 33  7e52c9e7eac4b023
3e90: 62 66 61 62 32 62 35 32 61 0a 0a 74 63 6c 74 65  bfab2b52a..tclte
3ea0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
3eb0: 41 32 32 34 2d 32 2e 35 34 20 7b 53 48 41 32 32  A224-2.54 {SHA22
3ec0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
3ed0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
3ee0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
3ef0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
3f00: 63 6f 64 65 20 68 65 78 20 66 30 31 35 65 63 38  code hex f015ec8
3f10: 33 39 34 34 66 30 33 32 39 32 34 36 33 63 34 33  3944f03292463c43
3f20: 34 35 66 64 62 31 63 32 36 64 31 65 61 30 37 36  45fdb1c26d1ea076
3f30: 34 35 66 61 63 62 63 39 35 32 30 61 65 32 34 34  45facbc9520ae244
3f40: 62 36 65 62 31 39 31 65 35 33 64 61 62 61 64 62  b6eb191e53dabadb
3f50: 34 61 63 30 66 62 31 35 63 64 61 34 65 64 37 37  4ac0fb15cda4ed77
3f60: 64 66 62 39 65 31 31 39 33 61 62 66 61 66 62 31  dfb9e1193abfafb1
3f70: 62 38 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  b81]} \..-body {
3f80: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
3f90: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
3fa0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
3fb0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
3fc0: 34 35 39 65 34 30 62 33 66 62 64 36 31 32 39 31  459e40b3fbd61291
3fd0: 32 66 30 32 31 37 63 36 30 30 39 39 33 37 39 63  2f0217c60099379c
3fe0: 65 30 37 37 63 64 30 32 35 30 35 38 37 31 62 30  e077cd02505871b0
3ff0: 63 39 63 31 34 65 37 61 0a 0a 74 63 6c 74 65 73  c9c14e7a..tcltes
4000: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4010: 32 32 34 2d 32 2e 35 35 20 7b 53 48 41 32 32 34  224-2.55 {SHA224
4020: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4030: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
4040: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4050: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4060: 6f 64 65 20 68 65 78 20 30 37 38 36 37 30 36 66  ode hex 0786706f
4070: 36 38 30 63 32 37 62 37 39 32 64 30 35 34 66 61  680c27b792d054fa
4080: 61 36 33 66 34 39 39 61 38 65 36 62 35 64 64 62  a63f499a8e6b5ddb
4090: 39 30 35 30 32 39 34 36 32 33 35 62 66 37 34 63  90502946235bf74c
40a0: 30 32 32 64 37 37 32 63 38 30 39 63 62 34 31 37  022d772c809cb417
40b0: 31 62 66 61 34 37 39 31 35 33 39 61 63 61 31 61  1bfa4791539aca1a
40c0: 62 64 39 31 39 30 30 65 35 33 62 61 39 33 63 61  bd91900e53ba93ca
40d0: 30 65 66 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  0efd]} \..-body 
40e0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
40f0: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
4100: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4110: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4120: 20 66 61 64 65 62 61 62 37 63 33 64 30 66 62 38   fadebab7c3d0fb8
4130: 65 39 37 65 34 32 39 62 37 39 30 38 33 30 38 37  e97e429b79083087
4140: 37 33 35 65 34 61 62 33 38 35 61 37 38 39 35 32  735e4ab385a78952
4150: 31 32 36 30 65 66 33 61 64 0a 0a 74 63 6c 74 65  1260ef3ad..tclte
4160: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
4170: 41 32 32 34 2d 32 2e 35 36 20 7b 53 48 41 32 32  A224-2.56 {SHA22
4180: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4190: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
41a0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
41b0: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
41c0: 63 6f 64 65 20 68 65 78 20 34 34 35 65 38 36 39  code hex 445e869
41d0: 38 65 65 62 38 61 63 63 62 61 61 63 34 66 66 61  8eeb8accbaac4ffa
41e0: 37 64 39 33 34 66 66 66 64 31 36 30 31 34 61 34  7d934fffd16014a4
41f0: 33 30 65 66 37 30 66 33 61 39 31 37 34 63 36 63  30ef70f3a9174c6c
4200: 66 65 39 36 64 31 65 33 66 36 61 62 31 33 37 37  fe96d1e3f6ab1377
4210: 66 34 61 37 32 31 32 64 62 62 33 30 31 34 36 64  f4a7212dbb30146d
4220: 64 31 37 64 39 66 34 37 30 63 34 64 66 66 63 34  d17d9f470c4dffc4
4230: 35 62 38 65 38 37 31 5d 7d 20 5c 0a 09 2d 62 6f  5b8e871]} \..-bo
4240: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
4250: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
4260: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4270: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4280: 75 6c 74 20 34 63 37 61 65 30 32 38 63 30 66 65  ult 4c7ae028c0fe
4290: 36 31 66 32 61 39 63 61 64 61 36 31 66 61 65 33  61f2a9cada61fae3
42a0: 30 36 38 35 62 37 37 66 30 34 63 36 34 34 32 35  0685b77f04c64425
42b0: 37 36 65 39 31 32 61 66 39 66 61 36 0a 0a 74 63  76e912af9fa6..tc
42c0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
42d0: 5f 53 48 41 32 32 34 2d 32 2e 35 37 20 7b 53 48  _SHA224-2.57 {SH
42e0: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
42f0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4300: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
4310: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
4320: 20 64 65 63 6f 64 65 20 68 65 78 20 35 32 38 33   decode hex 5283
4330: 39 66 32 66 30 38 35 33 61 33 30 64 66 31 34 65  9f2f0853a30df14e
4340: 63 38 39 37 61 31 39 31 34 63 36 38 35 63 31 61  c897a1914c685c1a
4350: 63 32 31 34 37 30 64 30 30 36 35 34 63 38 63 33  c21470d00654c8c3
4360: 37 36 36 33 62 66 62 36 35 66 61 37 33 32 64 62  7663bfb65fa732db
4370: 62 36 39 34 64 39 64 64 30 39 63 65 64 37 32 33  b694d9dd09ced723
4380: 62 34 38 64 38 66 35 34 35 38 34 36 62 61 31 36  b48d8f545846ba16
4390: 38 39 38 38 62 36 31 63 63 37 32 34 5d 7d 20 5c  8988b61cc724]} \
43a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
43b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
43c0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
43d0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
43e0: 20 2d 72 65 73 75 6c 74 20 32 66 37 35 35 61 35   -result 2f755a5
43f0: 37 36 37 34 62 34 39 64 35 63 32 35 63 62 33 37  7674b49d5c25cb37
4400: 33 34 38 66 33 35 62 36 66 64 32 64 65 32 35 35  348f35b6fd2de255
4410: 32 63 37 34 39 66 32 36 34 35 62 61 36 33 64 32  2c749f2645ba63d2
4420: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  0..tcltest::test
4430: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
4440: 38 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  8 {SHA224ShortMs
4450: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4460: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
4470: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4480: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4490: 20 35 66 65 38 63 32 30 37 32 64 38 39 30 30 32   5fe8c2072d89002
44a0: 38 37 63 63 61 66 30 37 66 33 66 36 36 62 30 63  87ccaf07f3f66b0c
44b0: 32 32 61 63 64 33 65 30 62 62 39 31 64 39 35 37  22acd3e0bb91d957
44c0: 33 37 35 34 65 31 39 65 33 37 33 61 63 33 35 32  3754e19e373ac352
44d0: 37 31 64 38 62 34 33 34 34 33 34 33 36 61 63 30  71d8b43443436ac0
44e0: 63 31 36 32 38 35 30 65 66 33 64 37 66 32 38 31  c162850ef3d7f281
44f0: 34 30 39 61 64 32 39 61 39 62 66 37 31 36 63 37  409ad29a9bf716c7
4500: 37 64 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  7d1]} \..-body {
4510: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4520: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
4530: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
4540: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
4550: 34 32 39 30 39 37 35 37 66 36 65 32 32 39 66 36  42909757f6e229f6
4560: 39 66 30 34 63 63 37 61 38 36 33 63 34 65 37 30  9f04cc7a863c4e70
4570: 65 34 38 63 37 63 33 35 37 35 30 35 37 62 34 35  e48c7c3575057b45
4580: 35 63 39 35 39 37 37 35 0a 0a 74 63 6c 74 65 73  5c959775..tcltes
4590: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
45a0: 32 32 34 2d 32 2e 35 39 20 7b 53 48 41 32 32 34  224-2.59 {SHA224
45b0: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
45c0: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
45d0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
45e0: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
45f0: 6f 64 65 20 68 65 78 20 65 38 30 36 34 64 38 33  ode hex e8064d83
4600: 66 33 64 36 34 33 61 66 38 37 31 38 63 38 37 65  f3d643af8718c87e
4610: 33 63 63 64 36 61 39 37 33 33 36 38 35 65 61 63  3ccd6a9733685eac
4620: 36 31 64 35 37 32 61 32 32 61 62 39 34 33 66 32  61d572a22ab943f2
4630: 33 32 66 63 62 30 34 66 37 30 38 35 38 65 38 39  32fcb04f70858e89
4640: 38 34 34 34 39 64 62 31 34 61 37 36 62 62 37 65  84449db14a76bb7e
4650: 61 66 32 34 35 38 65 66 63 33 65 64 32 61 33 32  af2458efc3ed2a32
4660: 31 30 30 36 32 32 63 35 32 62 37 66 5d 7d 20 5c  100622c52b7f]} \
4670: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4680: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4690: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
46a0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
46b0: 20 2d 72 65 73 75 6c 74 20 31 61 31 64 38 65 64   -result 1a1d8ed
46c0: 35 34 63 62 34 35 63 39 37 62 63 39 37 30 37 35  54cb45c97bc97075
46d0: 34 62 34 33 65 62 39 33 64 39 65 61 62 64 65 34  4b43eb93d9eabde4
46e0: 63 37 62 30 37 66 37 36 61 64 38 32 64 38 65 64  c7b07f76ad82d8ed
46f0: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
4700: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 36   Hash_SHA224-2.6
4710: 30 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  0 {SHA224ShortMs
4720: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4730: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
4740: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4750: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4760: 20 38 37 63 39 61 35 31 37 65 32 38 64 31 62 62   87c9a517e28d1bb
4770: 35 34 61 64 32 30 66 63 61 37 36 34 36 30 65 66  54ad20fca76460ef
4780: 64 38 39 34 64 37 37 38 36 65 36 38 65 65 38 64  d894d7786e68ee8d
4790: 37 34 36 62 32 66 36 38 32 30 38 36 38 32 31 35  746b2f6820868215
47a0: 37 63 38 61 64 30 36 63 63 33 32 34 61 64 37 61  7c8ad06cc324ad7a
47b0: 33 31 38 39 65 30 39 63 36 63 33 39 64 34 63 37  3189e09c6c39d4c7
47c0: 36 38 37 31 39 63 30 61 34 39 61 34 31 36 36 39  68719c0a49a41669
47d0: 66 32 37 36 37 64 35 5d 7d 20 5c 0a 09 2d 62 6f  f2767d5]} \..-bo
47e0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
47f0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
4800: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4810: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4820: 75 6c 74 20 36 30 35 39 37 37 63 66 38 37 62 39  ult 605977cf87b9
4830: 62 33 30 39 62 62 64 64 61 61 61 36 34 65 35 32  b309bbddaaa64e52
4840: 38 61 63 65 36 36 62 30 34 64 66 39 66 37 32 63  8ace66b04df9f72c
4850: 30 65 37 65 63 38 38 62 65 31 64 61 0a 0a 74 63  0e7ec88be1da..tc
4860: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4870: 5f 53 48 41 32 32 34 2d 32 2e 36 31 20 7b 53 48  _SHA224-2.61 {SH
4880: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
4890: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
48a0: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
48b0: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
48c0: 20 64 65 63 6f 64 65 20 68 65 78 20 35 39 66 64   decode hex 59fd
48d0: 61 63 33 62 36 62 33 32 30 33 39 32 39 31 38 30  ac3b6b3203929180
48e0: 31 63 37 64 36 66 34 36 65 64 65 38 64 32 36 64  1c7d6f46ede8d26d
48f0: 63 35 62 37 61 31 39 32 65 30 30 37 31 31 36 37  c5b7a192e0071167
4900: 33 39 62 36 31 37 35 36 39 66 32 35 32 33 36 38  39b617569f252368
4910: 30 62 33 63 30 62 36 36 33 31 61 66 34 35 33 65  0b3c0b6631af453e
4920: 35 35 38 30 35 61 61 37 36 30 63 36 39 37 30 38  55805aa760c69708
4930: 33 33 61 63 30 36 39 36 33 62 62 63 39 64 62 64  33ac06963bbc9dbd
4940: 34 35 35 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  455e]} \..-body 
4950: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4960: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
4970: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4980: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4990: 20 65 39 66 30 63 62 31 64 63 38 33 33 37 65 39   e9f0cb1dc8337e9
49a0: 30 36 33 38 35 38 39 32 66 32 33 34 38 61 38 62  06385892f2348a8b
49b0: 61 34 34 31 32 33 31 38 65 63 61 64 39 62 39 36  a4412318ecad9b96
49c0: 65 33 37 31 31 35 33 31 66 0a 0a 74 63 6c 74 65  e3711531f..tclte
49d0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
49e0: 41 32 32 34 2d 32 2e 36 32 20 7b 53 48 41 32 32  A224-2.62 {SHA22
49f0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4a00: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
4a10: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4a20: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4a30: 63 6f 64 65 20 68 65 78 20 33 30 33 35 30 61 34  code hex 30350a4
4a40: 64 66 30 62 35 38 66 66 34 39 63 30 66 61 30 39  df0b58ff49c0fa09
4a50: 65 34 32 36 66 63 64 37 30 30 37 62 32 39 30 63  e426fcd7007b290c
4a60: 37 36 30 63 38 32 35 63 31 38 35 35 64 39 62 30  760c825c1855d9b0
4a70: 30 32 33 62 38 32 63 61 61 35 31 65 33 63 61 62  023b82caa51e3cab
4a80: 34 63 36 30 63 66 61 36 31 34 39 32 62 65 35 30  4c60cfa61492be50
4a90: 35 36 38 65 35 61 63 30 66 36 64 62 30 66 64 34  568e5ac0f6db0fd4
4aa0: 36 38 65 33 39 65 34 35 33 36 34 30 33 65 33 38  68e39e4536403e38
4ab0: 30 39 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b  09f]} \..-body {
4ac0: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67  tls::digest -dig
4ad0: 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74 61  est SHA224 -data
4ae0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63   $data} \..-matc
4af0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20  h exact -result 
4b00: 37 37 36 63 63 36 36 33 36 63 30 32 34 30 38 66  776cc6636c02408f
4b10: 62 66 36 35 61 63 65 37 33 61 65 38 30 30 31 37  bf65ace73ae80017
4b20: 31 30 38 62 39 31 37 63 31 36 63 35 61 39 31 32  108b917c16c5a912
4b30: 66 64 38 36 30 32 34 31 0a 0a 74 63 6c 74 65 73  fd860241..tcltes
4b40: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41  t::test Hash_SHA
4b50: 32 32 34 2d 32 2e 36 33 20 7b 53 48 41 32 32 34  224-2.63 {SHA224
4b60: 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f  ShortMsg} \..-co
4b70: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32 34  nstraints SHA224
4b80: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20   \..-setup {set 
4b90: 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63  data [binary dec
4ba0: 6f 64 65 20 68 65 78 20 65 66 37 39 37 61 30 64  ode hex ef797a0d
4bb0: 34 33 63 33 30 62 34 66 65 31 30 31 34 62 64 62  43c30b4fe1014bdb
4bc0: 39 34 32 30 38 37 39 63 32 66 66 38 34 35 64 32  9420879c2ff845d2
4bd0: 37 65 37 33 64 35 35 61 37 64 66 32 32 39 33 30  7e73d55a7df22930
4be0: 63 38 65 63 65 37 33 32 35 33 64 38 62 62 32 36  c8ece73253d8bb26
4bf0: 35 62 34 65 66 32 66 66 39 63 36 39 34 35 35 63  5b4ef2ff9c69455c
4c00: 63 35 36 66 66 32 35 32 32 39 62 34 31 32 36 62  c56ff25229b4126b
4c10: 62 37 62 62 32 36 65 65 32 63 39 66 66 33 36 31  b7bb26ee2c9ff361
4c20: 38 37 62 31 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20  87b1]} \..-body 
4c30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69  {tls::digest -di
4c40: 67 65 73 74 20 53 48 41 32 32 34 20 2d 64 61 74  gest SHA224 -dat
4c50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74  a $data} \..-mat
4c60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74  ch exact -result
4c70: 20 66 35 62 39 66 66 62 31 30 32 61 66 66 61 63   f5b9ffb102affac
4c80: 33 35 32 61 34 61 35 33 35 61 30 30 66 38 39 62  352a4a535a00f89b
4c90: 30 36 63 32 36 38 63 66 34 38 38 31 64 37 31 32  06c268cf4881d712
4ca0: 36 36 38 39 30 36 30 32 35 0a 0a 74 63 6c 74 65  668906025..tclte
4cb0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48  st::test Hash_SH
4cc0: 41 32 32 34 2d 32 2e 36 34 20 7b 53 48 41 32 32  A224-2.64 {SHA22
4cd0: 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63  4ShortMsg} \..-c
4ce0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 32  onstraints SHA22
4cf0: 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74  4 \..-setup {set
4d00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65   data [binary de
4d10: 63 6f 64 65 20 68 65 78 20 37 31 36 39 34 34 64  code hex 716944d
4d20: 65 34 31 37 31 30 63 32 39 62 36 35 39 62 65 31  e41710c29b659be1
4d30: 30 34 38 30 62 62 32 35 61 33 35 31 61 33 39 65  0480bb25a351a39e
4d40: 35 37 37 65 65 33 30 65 38 66 34 32 32 64 35 37  577ee30e8f422d57
4d50: 63 66 36 32 61 64 39 35 62 64 61 33 39 62 36 65  cf62ad95bda39b6e
4d60: 37 30 63 36 31 34 32 36 65 33 33 66 64 38 34 61  70c61426e33fd84a
4d70: 63 61 38 34 63 63 37 39 31 32 64 35 65 65 65 34  ca84cc7912d5eee4
4d80: 35 64 63 33 34 30 37 36 61 35 64 32 33 32 33 61  5dc34076a5d2323a
4d90: 31 35 63 37 39 36 34 5d 7d 20 5c 0a 09 2d 62 6f  15c7964]} \..-bo
4da0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
4db0: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
4dc0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
4dd0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
4de0: 75 6c 74 20 36 31 36 34 35 61 63 37 34 38 64 62  ult 61645ac748db
4df0: 35 36 37 61 63 38 36 32 37 39 36 62 38 64 30 36  567ac862796b8d06
4e00: 61 34 37 61 66 65 62 66 61 32 65 31 37 38 33 64  a47afebfa2e1783d
4e10: 35 63 35 66 33 62 63 64 38 31 65 32 0a 0a 74 63  5c5f3bcd81e2..tc
4e20: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
4e30: 5f 53 48 41 32 32 34 2d 32 2e 36 35 20 7b 53 48  _SHA224-2.65 {SH
4e40: 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a  A224ShortMsg} \.
4e50: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48  .-constraints SH
4e60: 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b  A224 \..-setup {
4e70: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79  set data [binary
4e80: 20 64 65 63 6f 64 65 20 68 65 78 20 61 33 33 31   decode hex a331
4e90: 30 62 61 30 36 34 62 65 32 65 31 34 61 64 33 32  0ba064be2e14ad32
4ea0: 32 37 36 65 31 38 63 64 30 33 31 30 63 39 33 33  276e18cd0310c933
4eb0: 61 36 65 36 35 30 63 33 63 37 35 34 64 30 32 34  a6e650c3c754d024
4ec0: 33 63 36 63 36 31 32 30 37 38 36 35 62 34 62 36  3c6c61207865b4b6
4ed0: 35 32 34 38 66 36 36 61 30 38 65 64 66 36 65 30  5248f66a08edf6e0
4ee0: 38 33 32 36 38 39 61 39 64 63 33 61 32 65 35 64  832689a9dc3a2e5d
4ef0: 32 30 39 35 65 65 65 61 35 30 62 64 38 36 32 62  2095eeea50bd862b
4f00: 61 63 38 38 63 38 62 64 33 31 38 64 5d 7d 20 5c  ac88c8bd318d]} \
4f10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4f20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4f30: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
4f40: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4f50: 20 2d 72 65 73 75 6c 74 20 62 32 61 35 35 38 36   -result b2a5586
4f60: 64 39 63 62 66 30 62 61 61 39 39 39 31 35 37 62  d9cbf0baa999157b
4f70: 34 61 66 30 36 64 38 38 61 65 30 38 64 37 63 39  4af06d88ae08d7c9
4f80: 66 61 61 62 34 62 63 31 61 39 36 38 32 39 64 36  faab4bc1a96829d6
4f90: 35 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74  5..# Cleanup.::t
4fa0: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54  cltest::cleanupT
4fb0: 65 73 74 73 0a 72 65 74 75 72 6e 0a              ests.return.