Artifact e931511d8be4ade3a880e46eb89f2da9142fea8072ab7cf7c07045d4793d5327:

• File tests/test_vectors/Hash/SHA224ShortMsg.test — part of check-in [feef0d0cef] at 2023-12-24 06:36:24 on branch crypto — Added MAC test vectors. Added all.tcl files to each test subdirectory so all tests run. Updated Hash and KDF test vectors to add missing cleanupTests. Corrected bug with using dash in constraints. Added constraints for ciphers, digests, and kdfs. (user: bohagan, size: 20273) [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 70 61 63 6b 61  rtMsg.rsp".packa
0030: 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a 70  ge require tls.p
0040: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74  ackage require t
0050: 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 73 74 3a  cltest..tcltest:
0060: 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20  :testConstraint 
0070: 53 48 41 32 32 34 20 5b 65 78 70 72 20 7b 5b 6c  SHA224 [expr {[l
0080: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b  search -nocase [
0090: 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48  tls::digests] SH
00a0: 41 32 32 34 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63  A224] > -1}]..tc
00b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
00c0: 5f 53 48 41 32 32 34 2d 32 2e 31 20 7b 53 48 41  _SHA224-2.1 {SHA
00d0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
00e0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
00f0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
0100: 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d  et data ""} \..-
0110: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0120: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
0130: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0140: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0150: 65 73 75 6c 74 20 64 31 34 61 30 32 38 63 32 61  esult d14a028c2a
0160: 33 61 32 62 63 39 34 37 36 31 30 32 62 62 32 38  3a2bc9476102bb28
0170: 38 32 33 34 63 34 31 35 61 32 62 30 31 66 38 32  8234c415a2b01f82
0180: 38 65 61 36 32 61 63 35 62 33 65 34 32 66 0a 0a  8ea62ac5b3e42f..
0190: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
01a0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 32 20 7b 53  sh_SHA224-2.2 {S
01b0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
01c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
01d0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
01e0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
01f0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 34 5d  y decode hex 84]
0200: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a  } \..-body {tls:
0210: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20  :digest -digest 
0220: 53 48 41 32 32 34 20 2d 64 61 74 61 20 24 64 61  SHA224 -data $da
0230: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78  ta} \..-match ex
0240: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 63 64 33  act -result 3cd3
0250: 36 39 32 31 64 66 35 64 36 39 36 33 65 37 33 37  6921df5d6963e737
0260: 33 39 63 66 34 64 32 30 32 31 31 65 32 64 38 38  39cf4d20211e2d88
0270: 37 37 63 31 39 63 66 66 30 38 37 61 64 65 39 64  77c19cff087ade9d
0280: 30 65 33 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74  0e3a..tcltest::t
0290: 65 73 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d  est Hash_SHA224-
02a0: 32 2e 33 20 7b 53 48 41 32 32 34 53 68 6f 72 74  2.3 {SHA224Short
02b0: 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61  Msg} \..-constra
02c0: 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d  ints SHA224 \..-
02d0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20  setup {set data 
02e0: 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68  [binary decode h
02f0: 65 78 20 35 63 37 62 5d 7d 20 5c 0a 09 2d 62 6f  ex 5c7b]} \..-bo
0300: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20  dy {tls::digest 
0310: 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20 2d  -digest SHA224 -
0320: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d  data $data} \..-
0330: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73  match exact -res
0340: 75 6c 74 20 64 61 66 66 39 62 63 65 36 38 35 65  ult daff9bce685e
0350: 62 38 33 31 66 39 37 66 63 31 32 32 35 62 30 33  b831f97fc1225b03
0360: 63 32 37 35 61 36 63 31 31 32 65 32 64 36 65 37  c275a6c112e2d6e7
0370: 36 66 35 66 61 66 37 61 33 36 65 36 0a 0a 74 63  6f5faf7a36e6..tc
0380: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68  ltest::test Hash
0390: 5f 53 48 41 32 32 34 2d 32 2e 34 20 7b 53 48 41  _SHA224-2.4 {SHA
03a0: 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c 0a 09  224ShortMsg} \..
03b0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41  -constraints SHA
03c0: 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73  224 \..-setup {s
03d0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20  et data [binary 
03e0: 64 65 63 6f 64 65 20 68 65 78 20 35 31 63 61 33  decode hex 51ca3
03f0: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
0400: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0410: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
0420: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0430: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 63  exact -result 2c
0440: 38 39 35 39 30 32 33 35 31 35 34 37 36 65 33 38  8959023515476e38
0450: 33 38 38 61 62 62 34 33 35 39 39 61 32 39 38 37  388abb43599a2987
0460: 36 62 34 62 33 33 64 35 36 61 64 63 30 36 30 33  6b4b33d56adc0603
0470: 32 64 65 33 61 32 0a 0a 74 63 6c 74 65 73 74 3a  2de3a2..tcltest:
0480: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
0490: 34 2d 32 2e 35 20 7b 53 48 41 32 32 34 53 68 6f  4-2.5 {SHA224Sho
04a0: 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74  rtMsg} \..-const
04b0: 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c 0a  raints SHA224 \.
04c0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74  .-setup {set dat
04d0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65  a [binary decode
04e0: 20 68 65 78 20 36 30 38 34 33 34 37 65 5d 7d 20   hex 6084347e]} 
04f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0500: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0510: 41 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  A224 -data $data
0520: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0530: 74 20 2d 72 65 73 75 6c 74 20 61 65 35 37 63 30  t -result ae57c0
0540: 61 36 64 34 39 37 33 39 62 61 33 33 38 61 64 66  a6d49739ba338adf
0550: 61 35 33 62 64 61 65 30 36 33 65 35 63 30 39 31  a53bdae063e5c091
0560: 32 32 62 37 37 36 30 34 37 38 30 61 38 65 65 61  22b77604780a8eea
0570: 61 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  a3..tcltest::tes
0580: 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e  t Hash_SHA224-2.
0590: 36 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  6 {SHA224ShortMs
05a0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
05b0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
05c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
05d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
05e0: 20 34 39 33 65 31 34 36 32 33 63 5d 7d 20 5c 0a   493e14623c]} \.
05f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0600: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32  est -digest SHA2
0610: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
0620: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0630: 2d 72 65 73 75 6c 74 20 37 66 36 33 31 66 32 39  -result 7f631f29
0640: 35 65 30 32 34 65 37 34 35 35 32 30 38 33 32 34  5e024e7455208324
0650: 35 63 61 38 66 39 38 38 61 33 66 62 36 35 36 38  5ca8f988a3fb6568
0660: 30 61 65 39 37 63 33 30 34 30 64 32 65 36 35 63  0ae97c3040d2e65c
0670: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0680: 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 37 20  Hash_SHA224-2.7 
0690: 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d  {SHA224ShortMsg}
06a0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
06b0: 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75   SHA224 \..-setu
06c0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
06d0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64  ary decode hex d
06e0: 37 32 39 64 38 63 64 31 36 33 31 5d 7d 20 5c 0a  729d8cd1631]} \.
06f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67  .-body {tls::dig
0700: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32  est -digest SHA2
0710: 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20  24 -data $data} 
0720: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20  \..-match exact 
0730: 2d 72 65 73 75 6c 74 20 33 34 32 65 38 65 36 62  -result 342e8e6b
0740: 32 33 63 31 63 36 61 35 34 39 31 30 36 33 31 66  23c1c6a54910631f
0750: 30 39 38 65 30 38 65 38 33 36 32 35 39 63 35 37  098e08e836259c57
0760: 65 34 39 63 31 62 31 64 30 32 33 64 31 36 36 64  e49c1b1d023d166d
0770: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20  ..tcltest::test 
0780: 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 38 20  Hash_SHA224-2.8 
0790: 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d  {SHA224ShortMsg}
07a0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73   \..-constraints
07b0: 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75   SHA224 \..-setu
07c0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e  p {set data [bin
07d0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63  ary decode hex c
07e0: 62 66 32 30 36 31 65 31 30 66 61 61 35 5d 7d 20  bf2061e10faa5]} 
07f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64  \..-body {tls::d
0800: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48  igest -digest SH
0810: 41 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61  A224 -data $data
0820: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63  } \..-match exac
0830: 74 20 2d 72 65 73 75 6c 74 20 33 61 61 37 30 32  t -result 3aa702
0840: 62 31 62 36 36 64 63 35 37 64 37 61 65 63 33 63  b1b66dc57d7aec3c
0850: 63 64 62 64 66 62 64 38 38 35 39 32 64 37 35 32  cdbdfbd88592d752
0860: 30 66 38 34 33 62 61 35 64 30 66 61 34 38 31 31  0f843ba5d0fa4811
0870: 36 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73  68..tcltest::tes
0880: 74 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e  t Hash_SHA224-2.
0890: 39 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  9 {SHA224ShortMs
08a0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
08b0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
08c0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
08d0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
08e0: 20 35 66 37 37 62 33 36 36 34 38 32 33 63 33 33   5f77b3664823c33
08f0: 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  e]} \..-body {tl
0900: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0910: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
0920: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0930: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 64  exact -result bd
0940: 66 32 31 66 66 33 32 35 66 37 35 34 31 35 37 63  f21ff325f754157c
0950: 63 66 34 31 37 66 34 38 35 35 33 36 30 61 37 32  cf417f4855360a72
0960: 65 38 66 64 31 31 37 64 32 38 63 38 66 65 37 64  e8fd117d28c8fe7d
0970: 61 33 65 61 33 38 0a 0a 74 63 6c 74 65 73 74 3a  a3ea38..tcltest:
0980: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
0990: 34 2d 32 2e 31 30 20 7b 53 48 41 32 32 34 53 68  4-2.10 {SHA224Sh
09a0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
09b0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
09c0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
09d0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
09e0: 65 20 68 65 78 20 31 30 37 31 33 62 38 39 34 64  e hex 10713b894d
09f0: 65 34 61 37 33 34 63 30 5d 7d 20 5c 0a 09 2d 62  e4a734c0]} \..-b
0a00: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0a10: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
0a20: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0a30: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0a40: 73 75 6c 74 20 30 33 38 34 32 36 30 30 63 38 36  sult 03842600c86
0a50: 66 35 63 64 36 30 63 33 61 32 31 34 37 61 30 36  f5cd60c3a2147a06
0a60: 37 63 62 39 36 32 61 30 35 33 30 33 63 33 34 38  7cb962a05303c348
0a70: 38 62 30 35 63 62 34 35 33 32 37 62 64 0a 0a 74  8b05cb45327bd..t
0a80: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0a90: 68 5f 53 48 41 32 32 34 2d 32 2e 31 31 20 7b 53  h_SHA224-2.11 {S
0aa0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
0ab0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0ac0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
0ad0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0ae0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 30 36  y decode hex 006
0af0: 34 37 30 64 35 37 64 61 64 39 38 39 33 64 63 30  470d57dad9893dc0
0b00: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
0b10: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
0b20: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
0b30: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
0b40: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 39  exact -result c9
0b50: 30 30 32 36 63 64 61 35 61 64 32 34 31 31 35 30  0026cda5ad241150
0b60: 35 39 63 36 32 61 65 39 61 64 64 35 37 37 39 33  59c62ae9add57793
0b70: 61 64 65 34 34 35 64 34 37 34 32 32 37 33 32 38  ade445d474227328
0b80: 38 62 62 63 65 37 0a 0a 74 63 6c 74 65 73 74 3a  8bbce7..tcltest:
0b90: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
0ba0: 34 2d 32 2e 31 32 20 7b 53 48 41 32 32 34 53 68  4-2.12 {SHA224Sh
0bb0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
0bc0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
0bd0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
0be0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
0bf0: 65 20 68 65 78 20 36 66 32 39 63 61 32 37 34 31  e hex 6f29ca2741
0c00: 39 30 34 30 30 37 32 30 62 62 61 32 5d 7d 20 5c  90400720bba2]} \
0c10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
0c20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
0c30: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
0c40: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
0c50: 20 2d 72 65 73 75 6c 74 20 61 63 35 33 31 35 37   -result ac53157
0c60: 39 34 37 61 61 34 62 32 61 31 39 30 38 39 31 38  947aa4b2a1908918
0c70: 32 33 38 32 61 34 33 36 33 64 31 38 32 64 64 38  2382a4363d182dd8
0c80: 65 34 63 61 37 39 63 64 38 35 37 31 33 39 30 62  e4ca79cd8571390b
0c90: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
0ca0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 31   Hash_SHA224-2.1
0cb0: 33 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  3 {SHA224ShortMs
0cc0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
0cd0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
0ce0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
0cf0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
0d00: 20 31 37 65 38 35 35 36 31 37 36 66 63 63 61 32   17e8556176fcca2
0d10: 61 64 64 62 64 64 65 32 39 5d 7d 20 5c 0a 09 2d  addbdde29]} \..-
0d20: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0d30: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
0d40: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0d50: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0d60: 65 73 75 6c 74 20 63 63 36 61 64 30 34 38 38 64  esult cc6ad0488d
0d70: 62 30 32 32 32 30 36 36 66 37 34 30 35 35 37 62  b0222066f740557b
0d80: 35 37 35 38 61 31 39 62 33 30 33 37 32 62 33 30  5758a19b30372b30
0d90: 32 33 33 32 32 39 35 64 38 63 33 61 66 66 0a 0a  2332295d8c3aff..
0da0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0db0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 31 34 20 7b  sh_SHA224-2.14 {
0dc0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
0dd0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
0de0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
0df0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
0e00: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 62  ry decode hex db
0e10: 66 31 36 33 36 30 31 64 62 39 61 31 32 32 61 34  f163601db9a122a4
0e20: 30 32 36 38 32 34 64 65 5d 7d 20 5c 0a 09 2d 62  026824de]} \..-b
0e30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
0e40: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
0e50: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
0e60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
0e70: 73 75 6c 74 20 39 38 34 39 38 34 35 66 34 65 34  sult 9849845f4e4
0e80: 37 65 31 65 63 65 39 61 31 63 31 65 30 31 61 30  7e1ece9a1c1e01a0
0e90: 64 38 39 36 66 66 65 61 36 31 63 36 63 38 38 39  d896ffea61c6c889
0ea0: 34 61 37 35 61 31 31 63 65 35 66 34 39 0a 0a 74  4a75a11ce5f49..t
0eb0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
0ec0: 68 5f 53 48 41 32 32 34 2d 32 2e 31 35 20 7b 53  h_SHA224-2.15 {S
0ed0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
0ee0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
0ef0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
0f00: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
0f10: 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 65 31  y decode hex 5e1
0f20: 65 66 32 61 64 38 36 63 65 61 66 35 34 33 39 66  ef2ad86ceaf5439f
0f30: 65 38 37 64 32 65 63 39 62 5d 7d 20 5c 0a 09 2d  e87d2ec9b]} \..-
0f40: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
0f50: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
0f60: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
0f70: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
0f80: 65 73 75 6c 74 20 32 32 33 63 35 64 35 64 34 61  esult 223c5d5d4a
0f90: 30 31 31 36 62 33 32 63 65 61 30 34 34 66 39 61  0116b32cea044f9a
0fa0: 66 30 66 65 34 34 62 61 62 65 61 31 63 35 61 62  f0fe44babea1c5ab
0fb0: 32 30 31 35 30 32 35 39 31 62 63 64 35 66 0a 0a  201502591bcd5f..
0fc0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
0fd0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 31 36 20 7b  sh_SHA224-2.16 {
0fe0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
0ff0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1000: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
1010: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1020: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 35  ry decode hex 65
1030: 66 33 62 39 38 36 36 66 62 38 30 30 32 62 35 33  f3b9866fb8002b53
1040: 63 66 61 66 38 30 36 66 37 30 32 66 5d 7d 20 5c  cfaf806f702f]} \
1050: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1060: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1070: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1080: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1090: 20 2d 72 65 73 75 6c 74 20 62 31 65 30 38 30 36   -result b1e0806
10a0: 61 32 31 38 64 35 39 33 38 32 31 66 64 65 38 65  a218d593821fde8e
10b0: 39 65 61 63 63 34 34 61 62 35 32 38 37 63 33 32  9eacc44ab5287c32
10c0: 32 30 39 61 39 34 66 30 31 31 61 62 36 36 62 37  209a94f011ab66b7
10d0: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
10e0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 31   Hash_SHA224-2.1
10f0: 37 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  7 {SHA224ShortMs
1100: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1110: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1120: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1130: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1140: 20 62 37 37 36 37 30 38 66 66 62 39 31 62 33 35   b776708ffb91b35
1150: 31 35 61 63 34 36 35 39 38 61 62 39 66 61 37 39  15ac46598ab9fa79
1160: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
1170: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1180: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
1190: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
11a0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 32  exact -result 42
11b0: 37 33 31 31 62 31 64 37 61 62 32 34 38 38 37 39  7311b1d7ab248879
11c0: 31 63 34 64 65 65 62 34 32 35 31 64 37 38 33 66  1c4deeb4251d783f
11d0: 65 35 66 39 38 30 36 62 66 64 66 62 35 31 38 38  e5f9806bfdfb5188
11e0: 63 35 34 34 33 64 0a 0a 74 63 6c 74 65 73 74 3a  c5443d..tcltest:
11f0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
1200: 34 2d 32 2e 31 38 20 7b 53 48 41 32 32 34 53 68  4-2.18 {SHA224Sh
1210: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1220: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
1230: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1240: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1250: 65 20 68 65 78 20 61 34 62 63 31 30 62 31 61 36  e hex a4bc10b1a6
1260: 32 63 39 36 64 34 35 39 66 62 61 66 33 61 35 61  2c96d459fbaf3a5a
1270: 61 33 66 61 63 65 37 33 5d 7d 20 5c 0a 09 2d 62  a3face73]} \..-b
1280: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1290: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
12a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
12b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
12c0: 73 75 6c 74 20 64 37 65 36 36 33 34 37 32 33 61  sult d7e6634723a
12d0: 63 32 35 63 62 31 38 37 39 62 64 62 31 35 30 38  c25cb1879bdb1508
12e0: 64 61 30 35 33 31 33 35 33 30 34 31 39 30 31 33  da05313530419013
12f0: 66 65 32 35 35 39 36 37 61 33 39 65 31 0a 0a 74  fe255967a39e1..t
1300: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1310: 68 5f 53 48 41 32 32 34 2d 32 2e 31 39 20 7b 53  h_SHA224-2.19 {S
1320: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
1330: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1340: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
1350: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1360: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 65 38  y decode hex 9e8
1370: 66 33 63 36 36 34 35 63 31 37 34 39 62 35 35 63  f3c6645c1749b55c
1380: 35 30 64 32 30 31 38 63 65 34 30 64 63 32 34 32  50d2018ce40dc242
1390: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
13a0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
13b0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
13c0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
13d0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 66  exact -result 2f
13e0: 35 61 35 38 33 62 66 35 38 38 63 38 39 38 38 61  5a583bf588c8988a
13f0: 35 37 32 64 31 32 38 61 39 35 62 65 61 35 65 66  572d128a95bea5ef
1400: 31 62 36 36 37 38 30 61 37 64 34 62 65 39 63 32  1b66780a7d4be9c2
1410: 39 65 66 63 33 31 0a 0a 74 63 6c 74 65 73 74 3a  9efc31..tcltest:
1420: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
1430: 34 2d 32 2e 32 30 20 7b 53 48 41 32 32 34 53 68  4-2.20 {SHA224Sh
1440: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1450: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
1460: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1470: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1480: 65 20 68 65 78 20 32 64 62 36 64 32 30 37 63 30  e hex 2db6d207c0
1490: 62 37 64 39 31 31 37 66 32 34 64 37 38 65 65 35  b7d9117f24d78ee5
14a0: 39 61 62 66 32 66 33 31 36 39 37 38 5d 7d 20 5c  9abf2f316978]} \
14b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
14c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
14d0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
14e0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
14f0: 20 2d 72 65 73 75 6c 74 20 33 35 36 38 31 66 63   -result 35681fc
1500: 65 32 38 33 30 37 63 61 65 31 39 35 32 32 63 32  e28307cae19522c2
1510: 33 63 62 64 34 61 37 37 39 36 39 33 34 37 66 37  3cbd4a77969347f7
1520: 64 38 65 65 34 61 33 30 38 38 62 61 39 30 61 64  d8ee4a3088ba90ad
1530: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
1540: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
1550: 31 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  1 {SHA224ShortMs
1560: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1570: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1580: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1590: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
15a0: 20 33 64 66 35 65 37 66 33 39 39 66 36 64 64 36   3df5e7f399f6dd6
15b0: 31 61 31 32 61 39 64 34 65 39 34 36 34 66 63 34  1a12a9d4e9464fc4
15c0: 39 39 37 63 31 66 33 37 62 5d 7d 20 5c 0a 09 2d  997c1f37b]} \..-
15d0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
15e0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
15f0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1600: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1610: 65 73 75 6c 74 20 61 33 65 36 38 30 37 36 65 33  esult a3e68076e3
1620: 30 37 35 31 30 38 35 61 38 34 33 61 36 63 62 66  0751085a843a6cbf
1630: 62 66 30 66 33 64 65 65 36 33 64 39 63 34 32 31  bf0f3dee63d9c421
1640: 39 63 39 31 34 33 37 32 65 35 30 62 32 38 0a 0a  9c914372e50b28..
1650: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1660: 73 68 5f 53 48 41 32 32 34 2d 32 2e 32 32 20 7b  sh_SHA224-2.22 {
1670: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
1680: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1690: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
16a0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
16b0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 36 35  ry decode hex 65
16c0: 37 38 31 64 30 31 38 66 32 37 63 61 30 63 37 32  781d018f27ca0c72
16d0: 61 39 66 61 39 61 62 34 36 34 38 65 64 33 36 39  a9fa9ab4648ed369
16e0: 36 34 36 64 64 33 63 65 5d 7d 20 5c 0a 09 2d 62  646dd3ce]} \..-b
16f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1700: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
1710: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1720: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1730: 73 75 6c 74 20 64 31 35 65 66 30 64 38 37 32 64  sult d15ef0d872d
1740: 30 32 64 61 36 34 32 37 62 38 64 30 33 34 39 64  02da6427b8d0349d
1750: 65 61 32 66 32 30 34 65 36 37 31 33 33 62 37 33  ea2f204e67133b73
1760: 36 35 62 34 62 31 35 30 65 66 63 33 63 0a 0a 74  65b4b150efc3c..t
1770: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1780: 68 5f 53 48 41 32 32 34 2d 32 2e 32 33 20 7b 53  h_SHA224-2.23 {S
1790: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
17a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
17b0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
17c0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
17d0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 66 34  y decode hex af4
17e0: 38 65 65 64 64 64 39 33 66 65 65 36 39 64 31 62  8eeddd93fee69d1b
17f0: 64 37 64 65 34 32 38 61 36 33 39 38 36 30 31 31  d7de428a63986011
1800: 64 31 30 39 34 35 65 61 66 5d 7d 20 5c 0a 09 2d  d10945eaf]} \..-
1810: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1820: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
1830: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1840: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1850: 65 73 75 6c 74 20 62 38 39 64 34 32 38 65 65 34  esult b89d428ee4
1860: 32 65 33 39 37 63 66 31 31 30 32 39 65 63 62 62  2e397cf11029ecbb
1870: 32 37 62 61 64 64 64 30 33 36 63 38 39 33 38 66  27baddd036c8938f
1880: 35 31 63 38 61 62 35 36 62 38 37 35 61 63 0a 0a  51c8ab56b875ac..
1890: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
18a0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 32 34 20 7b  sh_SHA224-2.24 {
18b0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
18c0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
18d0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
18e0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
18f0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 64 66  ry decode hex df
1900: 32 62 66 30 64 35 66 39 63 39 39 34 61 63 36 39  2bf0d5f9c994ac69
1910: 64 37 38 62 61 61 30 64 35 31 32 65 63 65 62 37  d78baa0d512eceb7
1920: 34 64 38 61 30 34 37 35 33 31 63 31 5d 7d 20 5c  4d8a047531c1]} \
1930: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1940: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1950: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1960: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1970: 20 2d 72 65 73 75 6c 74 20 64 62 38 65 31 63 65   -result db8e1ce
1980: 36 38 63 38 63 36 62 38 34 64 36 64 62 37 35 35  68c8c6b84d6db755
1990: 63 32 62 38 62 66 35 34 66 33 63 34 62 30 38 31  c2b8bf54f3c4b081
19a0: 61 38 38 31 65 66 63 64 64 61 66 33 30 33 32 39  a881efcddaf30329
19b0: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
19c0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
19d0: 35 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  5 {SHA224ShortMs
19e0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
19f0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1a00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1a10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1a20: 20 34 38 64 32 66 32 30 39 35 35 65 61 32 64 31   48d2f20955ea2d1
1a30: 33 34 33 33 63 32 30 62 63 30 34 30 34 65 62 32  3433c20bc0404eb2
1a40: 65 36 61 64 37 39 65 64 32 38 66 37 63 62 34 63  e6ad79ed28f7cb4c
1a50: 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  0]} \..-body {tl
1a60: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1a70: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
1a80: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1a90: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 36  exact -result 36
1aa0: 31 37 63 63 33 31 37 39 66 38 62 35 39 61 64 63  17cc3179f8b59adc
1ab0: 65 31 38 31 65 65 62 65 65 64 35 65 32 37 36 33  e181eebeed5e2763
1ac0: 66 36 32 36 35 30 39 34 39 32 32 34 61 36 37 65  f62650949224a67e
1ad0: 35 33 36 39 34 62 0a 0a 74 63 6c 74 65 73 74 3a  53694b..tcltest:
1ae0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
1af0: 34 2d 32 2e 32 36 20 7b 53 48 41 32 32 34 53 68  4-2.26 {SHA224Sh
1b00: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1b10: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
1b20: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1b30: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1b40: 65 20 68 65 78 20 32 31 38 66 37 34 61 34 32 64  e hex 218f74a42d
1b50: 33 61 34 37 65 66 33 62 38 30 36 36 30 31 66 62  3a47ef3b806601fb
1b60: 61 30 32 34 62 30 37 38 63 62 66 66 34 65 34 62  a024b078cbff4e4b
1b70: 38 35 37 37 32 65 30 65 5d 7d 20 5c 0a 09 2d 62  85772e0e]} \..-b
1b80: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
1b90: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
1ba0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
1bb0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
1bc0: 73 75 6c 74 20 62 35 66 34 30 62 39 35 64 63 63  sult b5f40b95dcc
1bd0: 33 36 33 62 39 37 65 39 64 30 30 62 36 37 63 35  363b97e9d00b67c5
1be0: 64 37 63 33 37 66 31 37 61 62 35 36 33 32 39 37  d7c37f17ab563297
1bf0: 64 32 64 36 37 61 34 64 66 32 30 63 39 0a 0a 74  d2d67a4df20c9..t
1c00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
1c10: 68 5f 53 48 41 32 32 34 2d 32 2e 32 37 20 7b 53  h_SHA224-2.27 {S
1c20: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
1c30: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
1c40: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
1c50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
1c60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 66 35  y decode hex ef5
1c70: 35 62 31 65 37 39 37 30 30 30 62 30 34 66 63 64  5b1e797000b04fcd
1c80: 62 39 62 33 30 32 31 62 30 39 33 32 37 65 33 62  b9b3021b09327e3b
1c90: 34 65 32 36 39 64 32 30 63 61 62 64 66 34 31 38  4e269d20cabdf418
1ca0: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
1cb0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
1cc0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
1cd0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
1ce0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 38 32  exact -result 82
1cf0: 37 62 32 32 33 64 35 31 32 34 30 63 32 65 33 32  7b223d51240c2e32
1d00: 37 31 63 35 33 34 63 31 39 63 35 36 33 37 62 36  71c534c19c5637b6
1d10: 66 65 31 30 30 38 33 65 38 35 62 63 66 30 36 37  fe10083e85bcf067
1d20: 36 31 65 66 32 31 0a 0a 74 63 6c 74 65 73 74 3a  61ef21..tcltest:
1d30: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
1d40: 34 2d 32 2e 32 38 20 7b 53 48 41 32 32 34 53 68  4-2.28 {SHA224Sh
1d50: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
1d60: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
1d70: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
1d80: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
1d90: 65 20 68 65 78 20 39 36 64 66 34 33 38 37 64 63  e hex 96df4387dc
1da0: 32 63 34 30 32 39 37 30 34 33 62 65 61 33 36 34  2c40297043bea364
1db0: 38 33 66 36 35 65 34 65 62 31 65 30 37 65 39 33  83f65e4eb1e07e93
1dc0: 33 35 39 63 62 37 65 36 38 36 31 30 5d 7d 20 5c  359cb7e68610]} \
1dd0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
1de0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
1df0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
1e00: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
1e10: 20 2d 72 65 73 75 6c 74 20 39 38 65 34 33 30 61   -result 98e430a
1e20: 36 33 66 63 64 65 64 61 66 63 39 34 31 39 30 31  63fcdedafc941901
1e30: 30 66 37 66 35 39 61 34 64 38 31 36 61 34 35 62  0f7f59a4d816a45b
1e40: 34 66 39 37 33 62 65 62 36 32 35 33 30 66 66 38  4f973beb62530ff8
1e50: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
1e60: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 32   Hash_SHA224-2.2
1e70: 39 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  9 {SHA224ShortMs
1e80: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
1e90: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
1ea0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
1eb0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
1ec0: 20 33 65 63 30 61 61 38 64 33 30 64 35 65 64 38   3ec0aa8d30d5ed8
1ed0: 32 35 62 37 37 64 63 37 30 39 35 66 34 32 31 62  25b77dc7095f421b
1ee0: 31 65 36 30 38 31 35 38 37 39 37 61 33 37 37 66  1e608158797a377f
1ef0: 66 38 62 65 64 36 34 31 62 5d 7d 20 5c 0a 09 2d  f8bed641b]} \..-
1f00: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
1f10: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
1f20: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
1f30: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
1f40: 65 73 75 6c 74 20 33 31 30 38 33 32 31 65 62 37  esult 3108321eb7
1f50: 66 66 38 35 37 66 36 61 61 65 36 39 31 30 31 62  ff857f6aae69101b
1f60: 39 33 37 66 33 32 61 35 31 65 61 32 37 39 61 36  937f32a51ea279a6
1f70: 63 31 34 62 61 35 32 33 32 61 63 38 63 31 0a 0a  c14ba5232ac8c1..
1f80: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
1f90: 73 68 5f 53 48 41 32 32 34 2d 32 2e 33 30 20 7b  sh_SHA224-2.30 {
1fa0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
1fb0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
1fc0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
1fd0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
1fe0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 38 62  ry decode hex 8b
1ff0: 30 32 33 39 37 31 32 30 33 39 66 30 37 37 63 65  0239712039f077ce
2000: 33 32 33 62 33 35 66 34 65 33 30 36 37 38 37 62  323b35f4e306787b
2010: 39 62 33 35 32 37 30 30 39 36 65 35 37 37 33 35  9b35270096e57735
2020: 63 66 66 34 35 64 38 34 5d 7d 20 5c 0a 09 2d 62  cff45d84]} \..-b
2030: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2040: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
2050: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2060: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2070: 73 75 6c 74 20 61 35 63 37 34 30 64 33 63 65 34  sult a5c740d3ce4
2080: 36 62 62 32 65 30 61 30 34 38 34 38 38 66 32 62  6bb2e0a048488f2b
2090: 30 36 30 35 63 36 64 30 63 61 30 65 61 32 66 33  0605c6d0ca0ea2f3
20a0: 38 32 64 30 34 33 64 31 33 64 62 39 37 0a 0a 74  82d043d13db97..t
20b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
20c0: 68 5f 53 48 41 32 32 34 2d 32 2e 33 31 20 7b 53  h_SHA224-2.31 {S
20d0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
20e0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
20f0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
2100: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2110: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 34 34  y decode hex 044
2120: 62 65 33 30 31 36 37 61 39 37 35 38 63 34 36 63  be30167a9758c46c
2130: 37 32 37 39 32 31 64 63 34 65 62 34 65 30 64 63  727921dc4eb4e0dc
2140: 62 39 36 35 36 32 33 34 32 33 65 36 66 64 64 34  b965623423e6fdd4
2150: 34 65 37 61 34 65 61 35 32 5d 7d 20 5c 0a 09 2d  4e7a4ea52]} \..-
2160: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2170: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
2180: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2190: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
21a0: 65 73 75 6c 74 20 36 65 62 37 38 33 31 33 63 37  esult 6eb78313c7
21b0: 34 33 65 61 38 37 36 39 64 38 33 34 30 66 32 38  43ea8769d8340f28
21c0: 34 64 64 61 36 64 65 64 36 34 61 31 64 62 36 34  4dda6ded64a1db64
21d0: 33 39 32 66 32 31 61 62 62 38 32 63 35 63 0a 0a  392f21abb82c5c..
21e0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
21f0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 33 32 20 7b  sh_SHA224-2.32 {
2200: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
2210: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2220: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
2230: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2240: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 35 37  ry decode hex 57
2250: 66 36 31 31 38 62 61 63 63 65 34 37 65 63 63 33  f6118bacce47ecc3
2260: 31 63 65 38 62 30 63 30 38 33 64 33 63 39 32 31  1ce8b0c083d3c921
2270: 39 65 30 64 62 65 39 65 34 66 62 65 61 31 35 34  9e0dbe9e4fbea154
2280: 35 33 37 63 34 31 32 33 31 61 63 63 5d 7d 20 5c  537c41231acc]} \
2290: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
22a0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
22b0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
22c0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
22d0: 20 2d 72 65 73 75 6c 74 20 30 64 62 62 35 33 63   -result 0dbb53c
22e0: 38 36 36 64 36 33 61 66 34 34 63 32 32 32 63 37  866d63af44c222c7
22f0: 36 63 38 32 35 64 66 30 65 33 37 39 64 63 65 64  6c825df0e379dced
2300: 66 62 39 35 38 64 62 30 33 62 36 66 64 32 39 61  fb958db03b6fd29a
2310: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  5..tcltest::test
2320: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 33   Hash_SHA224-2.3
2330: 33 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  3 {SHA224ShortMs
2340: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2350: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2360: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2370: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2380: 20 66 65 31 66 30 66 62 30 32 63 39 30 31 31 66   fe1f0fb02c9011f
2390: 34 63 38 63 35 39 30 35 39 33 34 65 64 31 35 31  4c8c5905934ed151
23a0: 33 36 37 37 31 37 33 37 63 65 33 31 63 35 38 35  36771737ce31c585
23b0: 39 65 36 37 66 32 33 35 66 65 35 39 34 66 35 66  9e67f235fe594f5f
23c0: 36 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  6]} \..-body {tl
23d0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
23e0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
23f0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2400: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 62  exact -result bb
2410: 65 61 61 63 63 36 33 32 63 32 61 33 64 62 32 61  eaacc632c2a3db2a
2420: 39 62 34 37 66 31 35 37 61 62 35 34 61 61 32 37  9b47f157ab54aa27
2430: 37 37 36 63 36 65 37 34 63 66 30 62 63 61 61 39  776c6e74cf0bcaa9
2440: 31 62 30 36 64 35 0a 0a 74 63 6c 74 65 73 74 3a  1b06d5..tcltest:
2450: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
2460: 34 2d 32 2e 33 34 20 7b 53 48 41 32 32 34 53 68  4-2.34 {SHA224Sh
2470: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2480: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
2490: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
24a0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
24b0: 65 20 68 65 78 20 31 34 66 62 30 31 61 65 39 64  e hex 14fb01ae9d
24c0: 36 30 31 35 65 63 62 33 65 35 36 64 36 65 63 64  6015ecb3e56d6ecd
24d0: 66 61 34 62 63 30 35 33 33 31 38 36 61 64 66 38  fa4bc0533186adf8
24e0: 34 35 37 66 35 65 34 61 35 63 35 37 63 36 38 37  457f5e4a5c57c687
24f0: 38 39 35 66 33 64 62 33 5d 7d 20 5c 0a 09 2d 62  895f3db3]} \..-b
2500: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2510: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
2520: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2530: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2540: 73 75 6c 74 20 31 37 38 32 37 32 63 37 64 37 63  sult 178272c7d7c
2550: 63 37 31 62 31 35 30 37 34 63 32 37 65 33 62 37  c71b15074c27e3b7
2560: 39 39 37 64 34 61 33 62 61 39 39 36 32 36 39 38  997d4a3ba9962698
2570: 36 61 31 61 31 36 63 66 33 30 30 33 30 0a 0a 74  6a1a16cf30030..t
2580: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2590: 68 5f 53 48 41 32 32 34 2d 32 2e 33 35 20 7b 53  h_SHA224-2.35 {S
25a0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
25b0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
25c0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
25d0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
25e0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 66 36  y decode hex ff6
25f0: 63 34 39 37 31 32 66 30 34 34 66 34 30 36 33 63  c49712f044f4063c
2600: 31 34 31 32 35 63 30 63 64 66 62 61 31 38 65 64  14125c0cdfba18ed
2610: 38 62 37 31 33 38 34 35 33 37 36 38 61 34 35 64  8b7138453768a45d
2620: 66 61 32 64 38 32 61 30 35 66 31 65 38 34 32 32  fa2d82a05f1e8422
2630: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
2640: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2650: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
2660: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2670: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 30  exact -result 40
2680: 33 32 38 34 63 38 38 38 61 37 32 38 30 62 63 38  3284c888a7280bc8
2690: 62 66 63 32 35 66 30 63 33 34 31 38 32 63 64 33  bfc25f0c34182cd3
26a0: 37 38 33 30 36 61 32 31 61 31 34 30 34 64 34 65  78306a21a1404d4e
26b0: 31 63 34 30 63 66 0a 0a 74 63 6c 74 65 73 74 3a  1c40cf..tcltest:
26c0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
26d0: 34 2d 32 2e 33 36 20 7b 53 48 41 32 32 34 53 68  4-2.36 {SHA224Sh
26e0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
26f0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
2700: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2710: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2720: 65 20 68 65 78 20 66 39 30 30 62 64 37 65 30 31  e hex f900bd7e01
2730: 31 37 32 34 37 66 39 37 63 38 66 63 37 61 36 36  17247f97c8fc7a66
2740: 35 63 37 36 61 33 35 66 35 37 31 63 33 33 36 36  5c76a35f571c3366
2750: 35 37 31 64 36 63 34 61 33 65 65 35 64 37 66 62  571d6c4a3ee5d7fb
2760: 39 33 66 31 64 31 66 37 32 36 65 32 5d 7d 20 5c  93f1d1f726e2]} \
2770: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2780: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2790: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
27a0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
27b0: 20 2d 72 65 73 75 6c 74 20 34 38 32 33 35 62 39   -result 48235b9
27c0: 38 32 30 64 36 36 64 38 38 38 35 66 61 61 62 66  820d66d8885faabf
27d0: 36 61 39 65 64 65 36 33 62 61 32 61 32 31 62 36  6a9ede63ba2a21b6
27e0: 31 37 37 65 39 38 37 61 33 33 32 34 32 33 37 33  177e987a33242373
27f0: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  e..tcltest::test
2800: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 33   Hash_SHA224-2.3
2810: 37 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  7 {SHA224ShortMs
2820: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2830: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2840: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2850: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2860: 20 34 32 64 33 38 31 38 38 61 63 34 39 34 34 30   42d38188ac49440
2870: 63 66 65 66 62 37 37 64 62 39 37 35 65 30 38 33  cfefb77db975e083
2880: 65 36 62 32 32 33 34 38 63 34 63 36 37 66 30 66  e6b22348c4c67f0f
2890: 38 36 39 32 65 38 38 61 64 31 34 30 64 38 36 31  8692e88ad140d861
28a0: 64 63 38 32 38 64 35 39 35 5d 7d 20 5c 0a 09 2d  dc828d595]} \..-
28b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
28c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
28d0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
28e0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
28f0: 65 73 75 6c 74 20 36 31 35 33 34 34 66 38 39 30  esult 615344f890
2900: 65 35 62 63 66 37 31 62 35 65 66 65 33 39 64 65  e5bcf71b5efe39de
2910: 31 66 63 39 34 32 62 61 31 66 65 33 30 64 64 39  1fc942ba1fe30dd9
2920: 65 39 31 34 36 61 64 62 36 61 34 31 62 66 0a 0a  e9146adb6a41bf..
2930: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2940: 73 68 5f 53 48 41 32 32 34 2d 32 2e 33 38 20 7b  sh_SHA224-2.38 {
2950: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
2960: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2970: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
2980: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2990: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 34  ry decode hex 74
29a0: 66 64 64 37 64 39 35 38 62 38 61 65 37 63 32 63  fdd7d958b8ae7c2c
29b0: 33 63 35 63 66 66 34 32 36 36 64 66 62 32 62 33  3c5cff4266dfb2b3
29c0: 62 38 34 32 63 39 66 35 39 65 63 62 62 63 61 66  b842c9f59ecbbcaf
29d0: 66 35 37 35 65 64 63 62 63 64 61 30 38 63 63 64  f575edcbcda08ccd
29e0: 36 65 30 38 62 37 36 34 5d 7d 20 5c 0a 09 2d 62  6e08b764]} \..-b
29f0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2a00: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
2a10: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2a20: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2a30: 73 75 6c 74 20 36 36 64 37 64 36 63 35 34 66 63  sult 66d7d6c54fc
2a40: 37 37 37 35 61 30 62 61 38 34 35 62 61 33 65 31  7775a0ba845ba3e1
2a50: 31 37 31 39 66 61 35 33 35 62 39 32 38 39 66 32  1719fa535b9289f2
2a60: 30 62 30 39 38 63 35 66 37 61 33 34 32 0a 0a 74  0b098c5f7a342..t
2a70: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2a80: 68 5f 53 48 41 32 32 34 2d 32 2e 33 39 20 7b 53  h_SHA224-2.39 {S
2a90: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
2aa0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2ab0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
2ac0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2ad0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 33 34  y decode hex 934
2ae0: 34 31 36 64 64 30 35 38 31 65 32 32 66 32 62 66  416dd0581e22f2bf
2af0: 62 65 63 65 37 62 62 36 34 61 66 65 38 32 30 34  bece7bb64afe8204
2b00: 35 31 66 61 32 31 33 34 32 64 66 37 65 36 66 39  51fa21342df7e6f9
2b10: 66 62 33 37 63 34 31 30 33 33 38 31 61 31 66 37  fb37c4103381a1f7
2b20: 63 64 33 37 39 62 63 63 34 5d 7d 20 5c 0a 09 2d  cd379bcc4]} \..-
2b30: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
2b40: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
2b50: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
2b60: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
2b70: 65 73 75 6c 74 20 66 61 65 38 66 31 61 61 32 32  esult fae8f1aa22
2b80: 64 65 66 34 64 62 61 61 38 31 34 63 35 62 30 62  def4dbaa814c5b0b
2b90: 61 62 64 65 63 34 33 33 39 34 39 35 31 37 39 32  abdec43394951792
2ba0: 63 39 33 37 30 35 30 64 32 39 36 33 61 36 0a 0a  c937050d2963a6..
2bb0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
2bc0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 34 30 20 7b  sh_SHA224-2.40 {
2bd0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
2be0: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
2bf0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
2c00: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
2c10: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 30  ry decode hex 10
2c20: 32 34 30 31 63 38 34 61 37 31 36 61 65 37 32 35  2401c84a716ae725
2c30: 37 39 63 36 61 65 37 39 63 33 35 39 65 61 33 30  79c6ae79c359ea30
2c40: 39 66 66 64 39 35 61 62 66 66 61 65 34 63 36 31  9ffd95abffae4c61
2c50: 38 38 34 63 30 33 63 39 65 39 39 64 66 37 37 62  884c03c9e99df77b
2c60: 36 63 39 32 65 34 39 32 63 61 63 62 5d 7d 20 5c  6c92e492cacb]} \
2c70: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
2c80: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
2c90: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
2ca0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
2cb0: 20 2d 72 65 73 75 6c 74 20 38 66 33 34 38 31 32   -result 8f34812
2cc0: 64 35 37 61 31 36 65 66 38 61 35 31 61 64 39 38  d57a16ef8a51ad98
2cd0: 37 36 36 30 63 35 66 38 36 32 33 65 30 66 61 39  7660c5f8623e0fa9
2ce0: 64 38 39 38 34 36 65 32 38 64 34 36 64 31 34 64  d89846e28d46d14d
2cf0: 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  9..tcltest::test
2d00: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 34   Hash_SHA224-2.4
2d10: 31 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  1 {SHA224ShortMs
2d20: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
2d30: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
2d40: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
2d50: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
2d60: 20 37 39 62 63 38 66 62 36 30 66 38 35 64 31 35   79bc8fb60f85d15
2d70: 61 32 33 38 36 35 36 36 65 33 65 37 33 31 34 64  a2386566e3e7314d
2d80: 66 32 38 34 35 33 33 30 38 35 61 64 64 31 63 37  f284533085add1c7
2d90: 62 62 36 65 61 64 33 66 66 37 36 30 63 38 36 64  bb6ead3ff760c86d
2da0: 35 36 33 33 61 36 36 34 30 34 37 36 31 62 35 34  5633a66404761b54
2db0: 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  4]} \..-body {tl
2dc0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
2dd0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
2de0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
2df0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 35  exact -result 65
2e00: 63 35 34 30 31 34 63 66 61 33 30 66 30 62 63 32  c54014cfa30f0bc2
2e10: 37 64 31 63 36 65 66 61 39 36 61 65 38 34 38 31  7d1c6efa96ae8481
2e20: 66 34 63 32 35 30 35 62 66 66 32 37 32 39 35 36  f4c2505bff272956
2e30: 65 61 62 30 64 66 0a 0a 74 63 6c 74 65 73 74 3a  eab0df..tcltest:
2e40: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
2e50: 34 2d 32 2e 34 32 20 7b 53 48 41 32 32 34 53 68  4-2.42 {SHA224Sh
2e60: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
2e70: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
2e80: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
2e90: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
2ea0: 65 20 68 65 78 20 64 62 33 31 32 31 65 61 37 31  e hex db3121ea71
2eb0: 32 39 34 39 38 33 62 31 38 35 32 30 37 61 39 64  294983b185207a9d
2ec0: 38 64 65 33 65 34 38 34 61 36 36 63 30 34 33 31  8de3e484a66c0431
2ed0: 62 66 30 37 63 39 36 32 65 62 38 32 39 37 37 63  bf07c962eb82977c
2ee0: 34 66 38 33 34 62 37 63 33 66 31 65 37 39 33 31  4f834b7c3f1e7931
2ef0: 61 34 61 37 66 37 61 39 5d 7d 20 5c 0a 09 2d 62  a4a7f7a9]} \..-b
2f00: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
2f10: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
2f20: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
2f30: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
2f40: 73 75 6c 74 20 39 33 31 36 64 32 66 30 32 31 63  sult 9316d2f021c
2f50: 32 39 31 33 64 36 33 61 37 65 36 36 39 32 34 63  2913d63a7e66924c
2f60: 38 37 63 31 36 31 63 33 63 66 64 65 30 65 61 37  87c161c3cfde0ea7
2f70: 62 61 30 37 66 35 34 37 37 32 38 36 32 0a 0a 74  ba07f54772862..t
2f80: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
2f90: 68 5f 53 48 41 32 32 34 2d 32 2e 34 33 20 7b 53  h_SHA224-2.43 {S
2fa0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
2fb0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
2fc0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
2fd0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
2fe0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 64 64  y decode hex 0dd
2ff0: 35 31 61 61 36 36 30 63 35 63 62 34 62 37 66 37  51aa660c5cb4b7f7
3000: 38 63 34 36 38 35 32 63 31 64 62 38 37 30 37 61  8c46852c1db8707a
3010: 62 34 35 31 63 31 33 36 37 62 36 31 38 37 33 38  b451c1367b618738
3020: 38 63 38 62 62 33 38 37 33 61 31 61 61 34 32 31  8c8bb3873a1aa421
3030: 30 64 30 34 31 34 63 63 36 37 39 32 61 32 39 61  0d0414cc6792a29a
3040: 37 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  7]} \..-body {tl
3050: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3060: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
3070: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3080: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 31  exact -result 31
3090: 39 38 39 65 37 61 36 32 61 35 31 33 32 61 35 30  989e7a62a5132a50
30a0: 37 30 64 37 37 32 35 30 64 38 39 30 34 62 62 38  70d77250d8904bb8
30b0: 32 64 34 35 37 64 63 36 33 34 36 39 64 30 36 62  2d457dc63469d06b
30c0: 35 30 31 38 35 65 0a 0a 74 63 6c 74 65 73 74 3a  50185e..tcltest:
30d0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
30e0: 34 2d 32 2e 34 34 20 7b 53 48 41 32 32 34 53 68  4-2.44 {SHA224Sh
30f0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3100: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
3110: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3120: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3130: 65 20 68 65 78 20 34 38 37 66 64 32 65 35 62 36  e hex 487fd2e5b6
3140: 39 34 62 37 30 37 31 64 33 37 38 39 61 32 35 38  94b7071d3789a258
3150: 61 35 31 65 38 36 30 34 64 63 30 64 33 65 38 66  a51e8604dc0d3e8f
3160: 35 64 36 32 66 33 39 31 33 31 39 36 38 65 36 30  5d62f39131968e60
3170: 32 61 62 65 31 64 64 66 36 62 30 32 37 38 39 36  2abe1ddf6b027896
3180: 32 61 35 31 32 34 30 38 62 35 35 33 5d 7d 20 5c  2a512408b553]} \
3190: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
31a0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
31b0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
31c0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
31d0: 20 2d 72 65 73 75 6c 74 20 65 37 39 38 36 38 33   -result e798683
31e0: 34 33 38 32 38 34 36 32 36 64 37 31 30 38 37 37  438284626d710877
31f0: 64 39 65 65 61 33 61 30 65 30 32 66 33 34 39 66  d9eea3a0e02f349f
3200: 63 34 33 61 63 62 37 66 39 66 38 66 39 65 38 31  c43acb7f9f8f9e81
3210: 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  c..tcltest::test
3220: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 34   Hash_SHA224-2.4
3230: 35 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  5 {SHA224ShortMs
3240: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3250: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
3260: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3270: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3280: 20 31 31 31 38 33 62 64 65 62 66 65 66 35 38 65   11183bdebfef58e
3290: 34 64 61 35 62 31 63 62 37 33 62 65 30 64 33 30  4da5b1cb73be0d30
32a0: 62 32 30 64 61 33 30 34 64 38 36 35 39 64 39 32  b20da304d8659d92
32b0: 31 64 61 32 65 32 37 30 66 64 31 34 36 32 36 37  1da2e270fd146267
32c0: 39 39 35 33 37 65 34 64 31 32 31 31 39 65 38 30  99537e4d12119e80
32d0: 39 65 65 39 37 30 30 34 61 5d 7d 20 5c 0a 09 2d  9ee97004a]} \..-
32e0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
32f0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
3300: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3310: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3320: 65 73 75 6c 74 20 39 36 38 37 30 36 35 37 64 36  esult 96870657d6
3330: 63 62 36 36 38 62 65 33 39 39 35 61 61 38 62 64  cb668be3995aa8bd
3340: 33 31 64 66 37 37 38 34 30 64 31 64 31 39 31 35  31df77840d1d1915
3350: 64 37 32 34 38 32 65 38 33 62 36 62 32 63 0a 0a  d72482e83b6b2c..
3360: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3370: 73 68 5f 53 48 41 32 32 34 2d 32 2e 34 36 20 7b  sh_SHA224-2.46 {
3380: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
3390: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
33a0: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
33b0: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
33c0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 32  ry decode hex a2
33d0: 33 39 64 65 35 63 38 65 32 36 34 34 65 38 66 30  39de5c8e2644e8f0
33e0: 33 30 64 39 34 64 39 38 66 31 61 33 30 36 36 34  30d94d98f1a30664
33f0: 65 36 66 64 39 36 31 64 63 32 39 37 37 61 39 63  e6fd961dc2977a9c
3400: 30 38 62 65 35 63 33 31 64 38 64 65 38 39 34 35  08be5c31d8de8945
3410: 30 39 34 35 61 35 33 64 37 39 32 39 39 65 61 32  0945a53d79299ea2
3420: 61 31 65 64 64 65 37 66 5d 7d 20 5c 0a 09 2d 62  a1edde7f]} \..-b
3430: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3440: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
3450: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3460: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3470: 73 75 6c 74 20 65 39 39 37 34 33 64 34 66 64 32  sult e99743d4fd2
3480: 36 63 38 38 30 30 63 33 36 61 36 37 62 36 37 36  6c8800c36a67b676
3490: 32 32 34 37 63 32 39 64 61 36 62 36 32 37 39 34  2247c29da6b62794
34a0: 31 32 33 63 35 39 64 65 30 36 64 63 30 0a 0a 74  123c59de06dc0..t
34b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
34c0: 68 5f 53 48 41 32 32 34 2d 32 2e 34 37 20 7b 53  h_SHA224-2.47 {S
34d0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
34e0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
34f0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
3500: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3510: 79 20 64 65 63 6f 64 65 20 68 65 78 20 39 31 37  y decode hex 917
3520: 63 34 35 37 37 61 61 36 62 30 66 39 64 66 34 39  c4577aa6b0f9df49
3530: 39 39 39 66 63 31 63 39 35 38 63 62 30 39 62 37  999fc1c958cb09b7
3540: 66 64 35 66 63 38 30 62 65 39 34 39 36 37 30 66  fd5fc80be949670f
3550: 30 33 35 34 35 65 62 32 37 64 63 61 65 64 30 35  03545eb27dcaed05
3560: 32 30 37 36 62 32 34 66 39 36 66 35 65 30 66 32  2076b24f96f5e0f2
3570: 65 32 66 34 35 32 37 63 30 5d 7d 20 5c 0a 09 2d  e2f4527c0]} \..-
3580: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3590: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
35a0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
35b0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
35c0: 65 73 75 6c 74 20 37 65 63 64 36 39 33 64 34 64  esult 7ecd693d4d
35d0: 39 63 66 34 33 39 32 39 34 36 34 36 39 38 65 66  9cf43929464698ef
35e0: 61 30 62 61 63 33 33 63 32 65 31 34 32 34 66 38  a0bac33c2e1424f8
35f0: 31 36 65 64 63 37 36 39 32 36 30 39 37 38 0a 0a  16edc769260978..
3600: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3610: 73 68 5f 53 48 41 32 32 34 2d 32 2e 34 38 20 7b  sh_SHA224-2.48 {
3620: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
3630: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3640: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
3650: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3660: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 63 33  ry decode hex c3
3670: 66 31 65 37 33 35 61 36 37 34 31 61 61 34 38 31  f1e735a6741aa481
3680: 61 64 35 37 37 61 39 38 64 62 61 63 31 66 30 33  ad577a98dbac1f03
3690: 63 63 38 30 65 61 30 64 61 65 31 62 39 34 64 62  cc80ea0dae1b94db
36a0: 32 33 36 39 65 64 34 65 39 33 66 61 63 64 32 39  2369ed4e93facd29
36b0: 63 36 34 65 34 65 37 37 62 32 35 30 33 38 32 37  c64e4e77b2503827
36c0: 39 31 32 30 62 64 66 61 33 37 31 35 5d 7d 20 5c  9120bdfa3715]} \
36d0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
36e0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
36f0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
3700: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
3710: 20 2d 72 65 73 75 6c 74 20 38 36 66 30 64 38 39   -result 86f0d89
3720: 64 38 65 31 34 66 64 38 62 36 36 30 36 34 31 32  d8e14fd8b6606412
3730: 64 37 31 61 37 61 35 34 61 33 34 37 62 33 30 34  d71a7a54a347b304
3740: 65 61 35 64 34 39 63 32 30 38 66 32 32 36 36 61  ea5d49c208f2266a
3750: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  b..tcltest::test
3760: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 34   Hash_SHA224-2.4
3770: 39 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  9 {SHA224ShortMs
3780: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3790: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
37a0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
37b0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
37c0: 20 64 65 34 66 62 66 64 35 35 33 63 64 66 33 37   de4fbfd553cdf37
37d0: 30 31 39 66 32 35 61 66 61 38 32 64 63 36 62 39  019f25afa82dc6b9
37e0: 39 37 30 66 34 62 62 31 65 62 62 63 33 37 66 38  970f4bb1ebbc37f8
37f0: 30 64 33 30 38 34 63 38 38 61 37 30 37 32 32 63  0d3084c88a70722c
3800: 64 63 35 32 33 61 39 65 33 63 32 61 66 62 61 64  dc523a9e3c2afbad
3810: 30 64 63 30 32 32 31 62 66 64 65 63 39 61 32 66  0dc0221bfdec9a2f
3820: 39 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  9]} \..-body {tl
3830: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3840: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
3850: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3860: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 63  exact -result 4c
3870: 35 32 36 32 61 63 62 34 61 32 61 34 34 65 61 61  5262acb4a2a44eaa
3880: 39 62 63 36 37 35 37 30 32 34 66 62 32 30 32 65  9bc6757024fb202e
3890: 66 34 64 35 61 37 61 31 36 66 61 33 37 32 35 32  f4d5a7a16fa37252
38a0: 61 34 32 32 62 35 0a 0a 74 63 6c 74 65 73 74 3a  a422b5..tcltest:
38b0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
38c0: 34 2d 32 2e 35 30 20 7b 53 48 41 32 32 34 53 68  4-2.50 {SHA224Sh
38d0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
38e0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
38f0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3900: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3910: 65 20 68 65 78 20 64 62 32 65 32 65 62 36 33 36  e hex db2e2eb636
3920: 36 31 30 63 66 34 32 65 39 62 33 33 34 33 33 61  610cf42e9b33433a
3930: 63 63 65 31 62 33 62 39 32 35 39 34 39 66 32 39  cce1b3b925949f29
3940: 37 64 64 38 33 31 39 39 66 34 35 64 32 38 36 31  7dd83199f45d2861
3950: 64 36 34 63 64 39 31 30 63 32 64 62 37 34 61 36  d64cd910c2db74a6
3960: 30 62 32 30 38 39 30 34 35 65 32 32 63 62 61 30  0b2089045e22cba0
3970: 61 35 33 36 31 33 37 64 5d 7d 20 5c 0a 09 2d 62  a536137d]} \..-b
3980: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3990: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
39a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
39b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
39c0: 73 75 6c 74 20 31 36 62 66 34 65 34 35 62 63 64  sult 16bf4e45bcd
39d0: 63 36 30 34 34 37 63 36 38 64 63 62 33 30 65 36  c60447c68dcb30e6
39e0: 62 30 38 66 35 35 63 65 39 66 34 31 32 34 61 32  b08f55ce9f4124a2
39f0: 39 63 66 31 66 39 61 39 64 30 36 35 64 0a 0a 74  9cf1f9a9d065d..t
3a00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3a10: 68 5f 53 48 41 32 32 34 2d 32 2e 35 31 20 7b 53  h_SHA224-2.51 {S
3a20: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
3a30: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3a40: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
3a50: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3a60: 79 20 64 65 63 6f 64 65 20 68 65 78 20 61 38 65  y decode hex a8e
3a70: 37 32 39 64 33 33 36 64 35 64 36 61 63 35 30 65  729d336d5d6ac50e
3a80: 31 65 32 32 66 30 62 31 39 33 62 36 36 65 32 36  1e22f0b193b66e26
3a90: 30 34 32 66 63 36 34 35 39 32 31 34 31 32 39 38  042fc64592141298
3aa0: 37 35 65 37 34 30 61 62 32 62 31 34 32 39 31 38  75e740ab2b142918
3ab0: 63 31 33 38 61 61 66 39 34 31 38 36 33 61 64 33  c138aaf941863ad3
3ac0: 62 37 65 36 30 36 35 34 35 30 36 31 33 62 32 37  b7e6065450613b27
3ad0: 33 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  3]} \..-body {tl
3ae0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
3af0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
3b00: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
3b10: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 35  exact -result 45
3b20: 32 62 66 32 65 35 65 62 66 63 34 65 34 35 31 63  2bf2e5ebfc4e451c
3b30: 63 34 33 34 62 63 30 39 65 32 61 31 30 30 33 32  c434bc09e2a10032
3b40: 65 65 64 30 62 37 36 32 37 63 66 35 35 65 37 65  eed0b7627cf55e7e
3b50: 35 65 64 30 65 32 0a 0a 74 63 6c 74 65 73 74 3a  5ed0e2..tcltest:
3b60: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
3b70: 34 2d 32 2e 35 32 20 7b 53 48 41 32 32 34 53 68  4-2.52 {SHA224Sh
3b80: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
3b90: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
3ba0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
3bb0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
3bc0: 65 20 68 65 78 20 64 30 35 33 31 37 64 34 62 35  e hex d05317d4b5
3bd0: 33 35 66 39 64 31 30 66 37 33 39 64 30 63 32 64  35f9d10f739d0c2d
3be0: 65 64 66 33 66 66 62 30 39 30 63 31 61 64 39 64  edf3ffb090c1ad9d
3bf0: 32 30 35 30 38 39 62 31 33 34 36 36 39 33 66 35  205089b1346693f5
3c00: 38 32 37 33 63 34 39 32 35 63 30 66 61 63 65 35  8273c4925c0face5
3c10: 37 62 61 34 35 61 64 36 66 63 36 38 37 63 36 36  7ba45ad6fc687c66
3c20: 61 38 38 66 63 37 38 38 37 38 62 65 5d 7d 20 5c  a88fc78878be]} \
3c30: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
3c40: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
3c50: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
3c60: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
3c70: 20 2d 72 65 73 75 6c 74 20 34 66 30 33 63 34 33   -result 4f03c43
3c80: 39 65 30 39 37 62 35 31 62 30 30 65 33 31 34 66  9e097b51b00e314f
3c90: 36 37 35 39 33 37 63 34 64 39 31 31 35 30 35 38  675937c4d9115058
3ca0: 35 39 66 62 37 61 62 31 36 61 64 63 36 35 65 34  59fb7ab16adc65e4
3cb0: 34 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  4..tcltest::test
3cc0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
3cd0: 33 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  3 {SHA224ShortMs
3ce0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
3cf0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
3d00: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
3d10: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
3d20: 20 32 36 62 62 34 65 64 34 66 30 34 32 34 63 36   26bb4ed4f0424c6
3d30: 30 66 65 34 32 31 32 66 66 38 63 39 35 35 65 38  0fe4212ff8c955e8
3d40: 39 65 32 66 35 35 33 61 37 64 37 37 30 31 62 65  9e2f553a7d7701be
3d50: 35 39 34 31 36 64 32 30 38 39 61 66 35 39 66 61  59416d2089af59fa
3d60: 31 30 37 34 37 32 34 65 32 31 34 65 39 31 39 62  1074724e214e919b
3d70: 31 65 33 30 66 33 33 66 62 37 38 33 37 34 62 34  1e30f33fb78374b4
3d80: 62 30 35 35 62 62 63 39 62 5d 7d 20 5c 0a 09 2d  b055bbc9b]} \..-
3d90: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
3da0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
3db0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
3dc0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
3dd0: 65 73 75 6c 74 20 65 37 63 38 39 39 65 32 37 30  esult e7c899e270
3de0: 30 39 64 34 64 63 37 37 63 32 64 33 30 30 66 31  09d4dc77c2d300f1
3df0: 39 31 62 37 35 37 65 35 32 63 39 65 37 65 61 63  91b757e52c9e7eac
3e00: 34 62 30 32 33 62 66 61 62 32 62 35 32 61 0a 0a  4b023bfab2b52a..
3e10: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
3e20: 73 68 5f 53 48 41 32 32 34 2d 32 2e 35 34 20 7b  sh_SHA224-2.54 {
3e30: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
3e40: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
3e50: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
3e60: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
3e70: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 30  ry decode hex f0
3e80: 31 35 65 63 38 33 39 34 34 66 30 33 32 39 32 34  15ec83944f032924
3e90: 36 33 63 34 33 34 35 66 64 62 31 63 32 36 64 31  63c4345fdb1c26d1
3ea0: 65 61 30 37 36 34 35 66 61 63 62 63 39 35 32 30  ea07645facbc9520
3eb0: 61 65 32 34 34 62 36 65 62 31 39 31 65 35 33 64  ae244b6eb191e53d
3ec0: 61 62 61 64 62 34 61 63 30 66 62 31 35 63 64 61  abadb4ac0fb15cda
3ed0: 34 65 64 37 37 64 66 62 39 65 31 31 39 33 61 62  4ed77dfb9e1193ab
3ee0: 66 61 66 62 31 62 38 31 5d 7d 20 5c 0a 09 2d 62  fafb1b81]} \..-b
3ef0: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
3f00: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
3f10: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
3f20: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
3f30: 73 75 6c 74 20 34 35 39 65 34 30 62 33 66 62 64  sult 459e40b3fbd
3f40: 36 31 32 39 31 32 66 30 32 31 37 63 36 30 30 39  612912f0217c6009
3f50: 39 33 37 39 63 65 30 37 37 63 64 30 32 35 30 35  9379ce077cd02505
3f60: 38 37 31 62 30 63 39 63 31 34 65 37 61 0a 0a 74  871b0c9c14e7a..t
3f70: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
3f80: 68 5f 53 48 41 32 32 34 2d 32 2e 35 35 20 7b 53  h_SHA224-2.55 {S
3f90: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
3fa0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
3fb0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
3fc0: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
3fd0: 79 20 64 65 63 6f 64 65 20 68 65 78 20 30 37 38  y decode hex 078
3fe0: 36 37 30 36 66 36 38 30 63 32 37 62 37 39 32 64  6706f680c27b792d
3ff0: 30 35 34 66 61 61 36 33 66 34 39 39 61 38 65 36  054faa63f499a8e6
4000: 62 35 64 64 62 39 30 35 30 32 39 34 36 32 33 35  b5ddb90502946235
4010: 62 66 37 34 63 30 32 32 64 37 37 32 63 38 30 39  bf74c022d772c809
4020: 63 62 34 31 37 31 62 66 61 34 37 39 31 35 33 39  cb4171bfa4791539
4030: 61 63 61 31 61 62 64 39 31 39 30 30 65 35 33 62  aca1abd91900e53b
4040: 61 39 33 63 61 30 65 66 64 5d 7d 20 5c 0a 09 2d  a93ca0efd]} \..-
4050: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
4060: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
4070: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
4080: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4090: 65 73 75 6c 74 20 66 61 64 65 62 61 62 37 63 33  esult fadebab7c3
40a0: 64 30 66 62 38 65 39 37 65 34 32 39 62 37 39 30  d0fb8e97e429b790
40b0: 38 33 30 38 37 37 33 35 65 34 61 62 33 38 35 61  83087735e4ab385a
40c0: 37 38 39 35 32 31 32 36 30 65 66 33 61 64 0a 0a  789521260ef3ad..
40d0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
40e0: 73 68 5f 53 48 41 32 32 34 2d 32 2e 35 36 20 7b  sh_SHA224-2.56 {
40f0: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
4100: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4110: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
4120: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
4130: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 34 34  ry decode hex 44
4140: 35 65 38 36 39 38 65 65 62 38 61 63 63 62 61 61  5e8698eeb8accbaa
4150: 63 34 66 66 61 37 64 39 33 34 66 66 66 64 31 36  c4ffa7d934fffd16
4160: 30 31 34 61 34 33 30 65 66 37 30 66 33 61 39 31  014a430ef70f3a91
4170: 37 34 63 36 63 66 65 39 36 64 31 65 33 66 36 61  74c6cfe96d1e3f6a
4180: 62 31 33 37 37 66 34 61 37 32 31 32 64 62 62 33  b1377f4a7212dbb3
4190: 30 31 34 36 64 64 31 37 64 39 66 34 37 30 63 34  0146dd17d9f470c4
41a0: 64 66 66 63 34 35 62 38 65 38 37 31 5d 7d 20 5c  dffc45b8e871]} \
41b0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
41c0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
41d0: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
41e0: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
41f0: 20 2d 72 65 73 75 6c 74 20 34 63 37 61 65 30 32   -result 4c7ae02
4200: 38 63 30 66 65 36 31 66 32 61 39 63 61 64 61 36  8c0fe61f2a9cada6
4210: 31 66 61 65 33 30 36 38 35 62 37 37 66 30 34 63  1fae30685b77f04c
4220: 36 34 34 32 35 37 36 65 39 31 32 61 66 39 66 61  6442576e912af9fa
4230: 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  6..tcltest::test
4240: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 35   Hash_SHA224-2.5
4250: 37 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  7 {SHA224ShortMs
4260: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4270: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
4280: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4290: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
42a0: 20 35 32 38 33 39 66 32 66 30 38 35 33 61 33 30   52839f2f0853a30
42b0: 64 66 31 34 65 63 38 39 37 61 31 39 31 34 63 36  df14ec897a1914c6
42c0: 38 35 63 31 61 63 32 31 34 37 30 64 30 30 36 35  85c1ac21470d0065
42d0: 34 63 38 63 33 37 36 36 33 62 66 62 36 35 66 61  4c8c37663bfb65fa
42e0: 37 33 32 64 62 62 36 39 34 64 39 64 64 30 39 63  732dbb694d9dd09c
42f0: 65 64 37 32 33 62 34 38 64 38 66 35 34 35 38 34  ed723b48d8f54584
4300: 36 62 61 31 36 38 39 38 38 62 36 31 63 63 37 32  6ba168988b61cc72
4310: 34 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  4]} \..-body {tl
4320: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4330: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
4340: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4350: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 66  exact -result 2f
4360: 37 35 35 61 35 37 36 37 34 62 34 39 64 35 63 32  755a57674b49d5c2
4370: 35 63 62 33 37 33 34 38 66 33 35 62 36 66 64 32  5cb37348f35b6fd2
4380: 64 65 32 35 35 32 63 37 34 39 66 32 36 34 35 62  de2552c749f2645b
4390: 61 36 33 64 32 30 0a 0a 74 63 6c 74 65 73 74 3a  a63d20..tcltest:
43a0: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
43b0: 34 2d 32 2e 35 38 20 7b 53 48 41 32 32 34 53 68  4-2.58 {SHA224Sh
43c0: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
43d0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
43e0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
43f0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
4400: 65 20 68 65 78 20 35 66 65 38 63 32 30 37 32 64  e hex 5fe8c2072d
4410: 38 39 30 30 32 38 37 63 63 61 66 30 37 66 33 66  8900287ccaf07f3f
4420: 36 36 62 30 63 32 32 61 63 64 33 65 30 62 62 39  66b0c22acd3e0bb9
4430: 31 64 39 35 37 33 37 35 34 65 31 39 65 33 37 33  1d9573754e19e373
4440: 61 63 33 35 32 37 31 64 38 62 34 33 34 34 33 34  ac35271d8b434434
4450: 33 36 61 63 30 63 31 36 32 38 35 30 65 66 33 64  36ac0c162850ef3d
4460: 37 66 32 38 31 34 30 39 61 64 32 39 61 39 62 66  7f281409ad29a9bf
4470: 37 31 36 63 37 37 64 31 5d 7d 20 5c 0a 09 2d 62  716c77d1]} \..-b
4480: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4490: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
44a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
44b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
44c0: 73 75 6c 74 20 34 32 39 30 39 37 35 37 66 36 65  sult 42909757f6e
44d0: 32 32 39 66 36 39 66 30 34 63 63 37 61 38 36 33  229f69f04cc7a863
44e0: 63 34 65 37 30 65 34 38 63 37 63 33 35 37 35 30  c4e70e48c7c35750
44f0: 35 37 62 34 35 35 63 39 35 39 37 37 35 0a 0a 74  57b455c959775..t
4500: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4510: 68 5f 53 48 41 32 32 34 2d 32 2e 35 39 20 7b 53  h_SHA224-2.59 {S
4520: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
4530: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4540: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
4550: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4560: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 38 30  y decode hex e80
4570: 36 34 64 38 33 66 33 64 36 34 33 61 66 38 37 31  64d83f3d643af871
4580: 38 63 38 37 65 33 63 63 64 36 61 39 37 33 33 36  8c87e3ccd6a97336
4590: 38 35 65 61 63 36 31 64 35 37 32 61 32 32 61 62  85eac61d572a22ab
45a0: 39 34 33 66 32 33 32 66 63 62 30 34 66 37 30 38  943f232fcb04f708
45b0: 35 38 65 38 39 38 34 34 34 39 64 62 31 34 61 37  58e8984449db14a7
45c0: 36 62 62 37 65 61 66 32 34 35 38 65 66 63 33 65  6bb7eaf2458efc3e
45d0: 64 32 61 33 32 31 30 30 36 32 32 63 35 32 62 37  d2a32100622c52b7
45e0: 66 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  f]} \..-body {tl
45f0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4600: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
4610: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4620: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 31 61  exact -result 1a
4630: 31 64 38 65 64 35 34 63 62 34 35 63 39 37 62 63  1d8ed54cb45c97bc
4640: 39 37 30 37 35 34 62 34 33 65 62 39 33 64 39 65  970754b43eb93d9e
4650: 61 62 64 65 34 63 37 62 30 37 66 37 36 61 64 38  abde4c7b07f76ad8
4660: 32 64 38 65 64 65 0a 0a 74 63 6c 74 65 73 74 3a  2d8ede..tcltest:
4670: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 32  :test Hash_SHA22
4680: 34 2d 32 2e 36 30 20 7b 53 48 41 32 32 34 53 68  4-2.60 {SHA224Sh
4690: 6f 72 74 4d 73 67 7d 20 5c 0a 09 2d 63 6f 6e 73  ortMsg} \..-cons
46a0: 74 72 61 69 6e 74 73 20 53 48 41 32 32 34 20 5c  traints SHA224 \
46b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61  ..-setup {set da
46c0: 74 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64  ta [binary decod
46d0: 65 20 68 65 78 20 38 37 63 39 61 35 31 37 65 32  e hex 87c9a517e2
46e0: 38 64 31 62 62 35 34 61 64 32 30 66 63 61 37 36  8d1bb54ad20fca76
46f0: 34 36 30 65 66 64 38 39 34 64 37 37 38 36 65 36  460efd894d7786e6
4700: 38 65 65 38 64 37 34 36 62 32 66 36 38 32 30 38  8ee8d746b2f68208
4710: 36 38 32 31 35 37 63 38 61 64 30 36 63 63 33 32  682157c8ad06cc32
4720: 34 61 64 37 61 33 31 38 39 65 30 39 63 36 63 33  4ad7a3189e09c6c3
4730: 39 64 34 63 37 36 38 37 31 39 63 30 61 34 39 61  9d4c768719c0a49a
4740: 34 31 36 36 39 66 32 37 36 37 64 35 5d 7d 20 5c  41669f2767d5]} \
4750: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4760: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4770: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
4780: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4790: 20 2d 72 65 73 75 6c 74 20 36 30 35 39 37 37 63   -result 605977c
47a0: 66 38 37 62 39 62 33 30 39 62 62 64 64 61 61 61  f87b9b309bbddaaa
47b0: 36 34 65 35 32 38 61 63 65 36 36 62 30 34 64 66  64e528ace66b04df
47c0: 39 66 37 32 63 30 65 37 65 63 38 38 62 65 31 64  9f72c0e7ec88be1d
47d0: 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  a..tcltest::test
47e0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 36   Hash_SHA224-2.6
47f0: 31 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  1 {SHA224ShortMs
4800: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4810: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
4820: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4830: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4840: 20 35 39 66 64 61 63 33 62 36 62 33 32 30 33 39   59fdac3b6b32039
4850: 32 39 31 38 30 31 63 37 64 36 66 34 36 65 64 65  291801c7d6f46ede
4860: 38 64 32 36 64 63 35 62 37 61 31 39 32 65 30 30  8d26dc5b7a192e00
4870: 37 31 31 36 37 33 39 62 36 31 37 35 36 39 66 32  7116739b617569f2
4880: 35 32 33 36 38 30 62 33 63 30 62 36 36 33 31 61  523680b3c0b6631a
4890: 66 34 35 33 65 35 35 38 30 35 61 61 37 36 30 63  f453e55805aa760c
48a0: 36 39 37 30 38 33 33 61 63 30 36 39 36 33 62 62  6970833ac06963bb
48b0: 63 39 64 62 64 34 35 35 65 5d 7d 20 5c 0a 09 2d  c9dbd455e]} \..-
48c0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
48d0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
48e0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
48f0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4900: 65 73 75 6c 74 20 65 39 66 30 63 62 31 64 63 38  esult e9f0cb1dc8
4910: 33 33 37 65 39 30 36 33 38 35 38 39 32 66 32 33  337e906385892f23
4920: 34 38 61 38 62 61 34 34 31 32 33 31 38 65 63 61  48a8ba4412318eca
4930: 64 39 62 39 36 65 33 37 31 31 35 33 31 66 0a 0a  d9b96e3711531f..
4940: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4950: 73 68 5f 53 48 41 32 32 34 2d 32 2e 36 32 20 7b  sh_SHA224-2.62 {
4960: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
4970: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4980: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
4990: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
49a0: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 33 30  ry decode hex 30
49b0: 33 35 30 61 34 64 66 30 62 35 38 66 66 34 39 63  350a4df0b58ff49c
49c0: 30 66 61 30 39 65 34 32 36 66 63 64 37 30 30 37  0fa09e426fcd7007
49d0: 62 32 39 30 63 37 36 30 63 38 32 35 63 31 38 35  b290c760c825c185
49e0: 35 64 39 62 30 30 32 33 62 38 32 63 61 61 35 31  5d9b0023b82caa51
49f0: 65 33 63 61 62 34 63 36 30 63 66 61 36 31 34 39  e3cab4c60cfa6149
4a00: 32 62 65 35 30 35 36 38 65 35 61 63 30 66 36 64  2be50568e5ac0f6d
4a10: 62 30 66 64 34 36 38 65 33 39 65 34 35 33 36 34  b0fd468e39e45364
4a20: 30 33 65 33 38 30 39 66 5d 7d 20 5c 0a 09 2d 62  03e3809f]} \..-b
4a30: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74  ody {tls::digest
4a40: 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34 20   -digest SHA224 
4a50: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09  -data $data} \..
4a60: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65  -match exact -re
4a70: 73 75 6c 74 20 37 37 36 63 63 36 36 33 36 63 30  sult 776cc6636c0
4a80: 32 34 30 38 66 62 66 36 35 61 63 65 37 33 61 65  2408fbf65ace73ae
4a90: 38 30 30 31 37 31 30 38 62 39 31 37 63 31 36 63  80017108b917c16c
4aa0: 35 61 39 31 32 66 64 38 36 30 32 34 31 0a 0a 74  5a912fd860241..t
4ab0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73  cltest::test Has
4ac0: 68 5f 53 48 41 32 32 34 2d 32 2e 36 33 20 7b 53  h_SHA224-2.63 {S
4ad0: 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20 5c  HA224ShortMsg} \
4ae0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53  ..-constraints S
4af0: 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20  HA224 \..-setup 
4b00: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72  {set data [binar
4b10: 79 20 64 65 63 6f 64 65 20 68 65 78 20 65 66 37  y decode hex ef7
4b20: 39 37 61 30 64 34 33 63 33 30 62 34 66 65 31 30  97a0d43c30b4fe10
4b30: 31 34 62 64 62 39 34 32 30 38 37 39 63 32 66 66  14bdb9420879c2ff
4b40: 38 34 35 64 32 37 65 37 33 64 35 35 61 37 64 66  845d27e73d55a7df
4b50: 32 32 39 33 30 63 38 65 63 65 37 33 32 35 33 64  22930c8ece73253d
4b60: 38 62 62 32 36 35 62 34 65 66 32 66 66 39 63 36  8bb265b4ef2ff9c6
4b70: 39 34 35 35 63 63 35 36 66 66 32 35 32 32 39 62  9455cc56ff25229b
4b80: 34 31 32 36 62 62 37 62 62 32 36 65 65 32 63 39  4126bb7bb26ee2c9
4b90: 66 66 33 36 31 38 37 62 31 5d 7d 20 5c 0a 09 2d  ff36187b1]} \..-
4ba0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73  body {tls::diges
4bb0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 32 34  t -digest SHA224
4bc0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a   -data $data} \.
4bd0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72  .-match exact -r
4be0: 65 73 75 6c 74 20 66 35 62 39 66 66 62 31 30 32  esult f5b9ffb102
4bf0: 61 66 66 61 63 33 35 32 61 34 61 35 33 35 61 30  affac352a4a535a0
4c00: 30 66 38 39 62 30 36 63 32 36 38 63 66 34 38 38  0f89b06c268cf488
4c10: 31 64 37 31 32 36 36 38 39 30 36 30 32 35 0a 0a  1d712668906025..
4c20: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61  tcltest::test Ha
4c30: 73 68 5f 53 48 41 32 32 34 2d 32 2e 36 34 20 7b  sh_SHA224-2.64 {
4c40: 53 48 41 32 32 34 53 68 6f 72 74 4d 73 67 7d 20  SHA224ShortMsg} 
4c50: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20  \..-constraints 
4c60: 53 48 41 32 32 34 20 5c 0a 09 2d 73 65 74 75 70  SHA224 \..-setup
4c70: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61   {set data [bina
4c80: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 37 31  ry decode hex 71
4c90: 36 39 34 34 64 65 34 31 37 31 30 63 32 39 62 36  6944de41710c29b6
4ca0: 35 39 62 65 31 30 34 38 30 62 62 32 35 61 33 35  59be10480bb25a35
4cb0: 31 61 33 39 65 35 37 37 65 65 33 30 65 38 66 34  1a39e577ee30e8f4
4cc0: 32 32 64 35 37 63 66 36 32 61 64 39 35 62 64 61  22d57cf62ad95bda
4cd0: 33 39 62 36 65 37 30 63 36 31 34 32 36 65 33 33  39b6e70c61426e33
4ce0: 66 64 38 34 61 63 61 38 34 63 63 37 39 31 32 64  fd84aca84cc7912d
4cf0: 35 65 65 65 34 35 64 63 33 34 30 37 36 61 35 64  5eee45dc34076a5d
4d00: 32 33 32 33 61 31 35 63 37 39 36 34 5d 7d 20 5c  2323a15c7964]} \
4d10: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69  ..-body {tls::di
4d20: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41  gest -digest SHA
4d30: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d  224 -data $data}
4d40: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74   \..-match exact
4d50: 20 2d 72 65 73 75 6c 74 20 36 31 36 34 35 61 63   -result 61645ac
4d60: 37 34 38 64 62 35 36 37 61 63 38 36 32 37 39 36  748db567ac862796
4d70: 62 38 64 30 36 61 34 37 61 66 65 62 66 61 32 65  b8d06a47afebfa2e
4d80: 31 37 38 33 64 35 63 35 66 33 62 63 64 38 31 65  1783d5c5f3bcd81e
4d90: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74  2..tcltest::test
4da0: 20 48 61 73 68 5f 53 48 41 32 32 34 2d 32 2e 36   Hash_SHA224-2.6
4db0: 35 20 7b 53 48 41 32 32 34 53 68 6f 72 74 4d 73  5 {SHA224ShortMs
4dc0: 67 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e  g} \..-constrain
4dd0: 74 73 20 53 48 41 32 32 34 20 5c 0a 09 2d 73 65  ts SHA224 \..-se
4de0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62  tup {set data [b
4df0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78  inary decode hex
4e00: 20 61 33 33 31 30 62 61 30 36 34 62 65 32 65 31   a3310ba064be2e1
4e10: 34 61 64 33 32 32 37 36 65 31 38 63 64 30 33 31  4ad32276e18cd031
4e20: 30 63 39 33 33 61 36 65 36 35 30 63 33 63 37 35  0c933a6e650c3c75
4e30: 34 64 30 32 34 33 63 36 63 36 31 32 30 37 38 36  4d0243c6c6120786
4e40: 35 62 34 62 36 35 32 34 38 66 36 36 61 30 38 65  5b4b65248f66a08e
4e50: 64 66 36 65 30 38 33 32 36 38 39 61 39 64 63 33  df6e0832689a9dc3
4e60: 61 32 65 35 64 32 30 39 35 65 65 65 61 35 30 62  a2e5d2095eeea50b
4e70: 64 38 36 32 62 61 63 38 38 63 38 62 64 33 31 38  d862bac88c8bd318
4e80: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c  d]} \..-body {tl
4e90: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73  s::digest -diges
4ea0: 74 20 53 48 41 32 32 34 20 2d 64 61 74 61 20 24  t SHA224 -data $
4eb0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20  data} \..-match 
4ec0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 32  exact -result b2
4ed0: 61 35 35 38 36 64 39 63 62 66 30 62 61 61 39 39  a5586d9cbf0baa99
4ee0: 39 31 35 37 62 34 61 66 30 36 64 38 38 61 65 30  9157b4af06d88ae0
4ef0: 38 64 37 63 39 66 61 61 62 34 62 63 31 61 39 36  8d7c9faab4bc1a96
4f00: 38 32 39 64 36 35 0a 0a 23 20 43 6c 65 61 6e 75  829d65..# Cleanu
4f10: 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65  p.::tcltest::cle
4f20: 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 6e  anupTests.return
4f30: 0a                                               .