Artifact
4b9457071374c984181dbb1ce9b2a16423612c2eca804781b114a6de591e0af9:
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 35 31 32 2d 32 32 from "SHA512-22
0020: 34 2e 74 78 74 22 0a 70 61 63 6b 61 67 65 20 72 4.txt".package r
0030: 65 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 equire tls.packa
0040: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
0050: 73 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 st..tcltest::tes
0060: 74 43 6f 6e 73 74 72 61 69 6e 74 20 53 48 41 35 tConstraint SHA5
0070: 31 32 2d 32 32 34 20 5b 65 78 70 72 20 7b 5b 6c 12-224 [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 35 31 32 2d 32 32 34 5d 20 3e 20 2d 31 7d 5d A512-224] > -1}]
00b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
00c0: 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 34 2d Hash_SHA512-224-
00d0: 31 2e 31 20 7b 53 48 41 35 31 32 2d 32 32 34 7d 1.1 {SHA512-224}
00e0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
00f0: 20 53 48 41 35 31 32 2d 32 32 34 20 5c 0a 09 2d SHA512-224 \..-
0100: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0110: 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c ""} \..-body {tl
0120: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0130: 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d 64 61 t SHA512-224 -da
0140: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0150: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0160: 74 20 36 65 64 30 64 64 30 32 38 30 36 66 61 38 t 6ed0dd02806fa8
0170: 39 65 32 35 64 65 30 36 30 63 31 39 64 33 61 63 9e25de060c19d3ac
0180: 38 36 63 61 62 62 38 37 64 36 61 30 64 64 64 30 86cabb87d6a0ddd0
0190: 35 63 33 33 33 62 38 34 66 34 0a 0a 74 63 6c 74 5c333b84f4..tclt
01a0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
01b0: 48 41 35 31 32 2d 32 32 34 2d 31 2e 32 20 7b 53 HA512-224-1.2 {S
01c0: 48 41 35 31 32 2d 32 32 34 7d 20 5c 0a 09 2d 63 HA512-224} \..-c
01d0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 31 onstraints SHA51
01e0: 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 2-224 \..-setup
01f0: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 22 7d {set data "abc"}
0200: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0210: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0220: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 HA512-224 -data
0230: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0240: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 exact -result 4
0250: 36 33 34 32 37 30 66 37 30 37 62 36 61 35 34 64 634270f707b6a54d
0260: 61 61 65 37 35 33 30 34 36 30 38 34 32 65 32 30 aae7530460842e20
0270: 65 33 37 65 64 32 36 35 63 65 65 65 39 61 34 33 e37ed265ceee9a43
0280: 65 38 39 32 34 61 61 0a 0a 74 63 6c 74 65 73 74 e8924aa..tcltest
0290: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 ::test Hash_SHA5
02a0: 31 32 2d 32 32 34 2d 31 2e 33 20 7b 53 48 41 35 12-224-1.3 {SHA5
02b0: 31 32 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 12-224} \..-cons
02c0: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 2d 32 traints SHA512-2
02d0: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 24 \..-setup {se
02e0: 74 20 64 61 74 61 20 22 54 68 65 20 71 75 69 63 t data "The quic
02f0: 6b 20 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 k brown fox jump
0300: 73 20 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 20 s over the lazy
0310: 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b dog"} \..-body {
0320: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
0330: 65 73 74 20 53 48 41 35 31 32 2d 32 32 34 20 2d est SHA512-224 -
0340: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0350: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0360: 75 6c 74 20 39 34 34 63 64 32 38 34 37 66 62 35 ult 944cd2847fb5
0370: 34 35 35 38 64 34 37 37 35 64 62 30 34 38 35 61 4558d4775db0485a
0380: 35 30 30 30 33 31 31 31 63 38 65 35 64 61 61 36 50003111c8e5daa6
0390: 33 66 65 37 32 32 63 36 61 61 33 37 0a 0a 74 63 3fe722c6aa37..tc
03a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
03b0: 5f 53 48 41 35 31 32 2d 32 32 34 2d 31 2e 34 20 _SHA512-224-1.4
03c0: 7b 53 48 41 35 31 32 2d 32 32 34 7d 20 5c 0a 09 {SHA512-224} \..
03d0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
03e0: 35 31 32 2d 32 32 34 20 5c 0a 09 2d 73 65 74 75 512-224 \..-setu
03f0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 p {set data "abc
0400: 64 65 66 67 68 62 63 64 65 66 67 68 69 63 64 65 defghbcdefghicde
0410: 66 67 68 69 6a 64 65 66 67 68 69 6a 6b 65 66 67 fghijdefghijkefg
0420: 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 hijklfghijklmghi
0430: 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b jklmnhijklmnoijk
0440: 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d lmnopjklmnopqklm
0450: 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f nopqrlmnopqrsmno
0460: 70 71 72 73 74 6e 6f 70 71 72 73 74 75 22 7d 20 pqrstnopqrstu"}
0470: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0480: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0490: 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 A512-224 -data $
04a0: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
04b0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 32 33 exact -result 23
04c0: 66 65 63 35 62 62 39 34 64 36 30 62 32 33 33 30 fec5bb94d60b2330
04d0: 38 31 39 32 36 34 30 62 30 63 34 35 33 33 33 35 8192640b0c453335
04e0: 64 36 36 34 37 33 34 66 65 34 30 65 37 32 36 38 d664734fe40e7268
04f0: 36 37 34 61 66 39 0a 0a 674af9..