Artifact
8ff47a0a0e49b6dc2b1d8a27a138ada0e999d63ba85717d40fcbe33f4d220bb9:
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 6c 61 70 70 65 6e 64 20 61 4.txt".lappend a
0030: 75 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 uto_path [file d
0040: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 irname [file dir
0050: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0060: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0070: 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 [file join [pwd
0080: 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d ] [info script]]
0090: 5d 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 ]]]].package req
00a0: 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 uire tls.package
00b0: 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 require tcltest
00c0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 ..tcltest::testC
00d0: 6f 6e 73 74 72 61 69 6e 74 20 53 48 41 35 31 32 onstraint SHA512
00e0: 5f 32 32 34 20 5b 65 78 70 72 20 7b 5b 6c 73 65 _224 [expr {[lse
00f0: 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c arch -nocase [tl
0100: 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 48 41 35 s::digests] SHA5
0110: 31 32 2d 32 32 34 5d 20 3e 20 2d 31 7d 5d 0a 63 12-224] > -1}].c
0120: 61 74 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 atch {tls::provi
0130: 64 65 72 20 6c 65 67 61 63 79 7d 0a 0a 74 63 6c der legacy}..tcl
0140: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0150: 53 48 41 35 31 32 2d 32 32 34 2d 31 2e 31 20 7b SHA512-224-1.1 {
0160: 53 48 41 35 31 32 2d 32 32 34 7d 20 5c 0a 09 2d SHA512-224} \..-
0170: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 constraints SHA5
0180: 31 32 5f 32 32 34 20 5c 0a 09 2d 73 65 74 75 70 12_224 \..-setup
0190: 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 5c {set data ""} \
01a0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
01b0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
01c0: 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 24 64 512-224 -data $d
01d0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
01e0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 65 64 xact -result 6ed
01f0: 30 64 64 30 32 38 30 36 66 61 38 39 65 32 35 64 0dd02806fa89e25d
0200: 65 30 36 30 63 31 39 64 33 61 63 38 36 63 61 62 e060c19d3ac86cab
0210: 62 38 37 64 36 61 30 64 64 64 30 35 63 33 33 33 b87d6a0ddd05c333
0220: 62 38 34 66 34 0a 0a 74 63 6c 74 65 73 74 3a 3a b84f4..tcltest::
0230: 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 31 32 test Hash_SHA512
0240: 2d 32 32 34 2d 31 2e 32 20 7b 53 48 41 35 31 32 -224-1.2 {SHA512
0250: 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 -224} \..-constr
0260: 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 32 34 aints SHA512_224
0270: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0280: 64 61 74 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d data "abc"} \..-
0290: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
02a0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 t -digest SHA512
02b0: 2d 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 -224 -data $data
02c0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
02d0: 74 20 2d 72 65 73 75 6c 74 20 34 36 33 34 32 37 t -result 463427
02e0: 30 66 37 30 37 62 36 61 35 34 64 61 61 65 37 35 0f707b6a54daae75
02f0: 33 30 34 36 30 38 34 32 65 32 30 65 33 37 65 64 30460842e20e37ed
0300: 32 36 35 63 65 65 65 39 61 34 33 65 38 39 32 34 265ceee9a43e8924
0310: 61 61 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 aa..tcltest::tes
0320: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 32 t Hash_SHA512-22
0330: 34 2d 31 2e 33 20 7b 53 48 41 35 31 32 2d 32 32 4-1.3 {SHA512-22
0340: 34 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 4} \..-constrain
0350: 74 73 20 53 48 41 35 31 32 5f 32 32 34 20 5c 0a ts SHA512_224 \.
0360: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0370: 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f a "The quick bro
0380: 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 wn fox jumps ove
0390: 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d r the lazy dog"}
03a0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
03b0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
03c0: 48 41 35 31 32 2d 32 32 34 20 2d 64 61 74 61 20 HA512-224 -data
03d0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
03e0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 exact -result 9
03f0: 34 34 63 64 32 38 34 37 66 62 35 34 35 35 38 64 44cd2847fb54558d
0400: 34 37 37 35 64 62 30 34 38 35 61 35 30 30 30 33 4775db0485a50003
0410: 31 31 31 63 38 65 35 64 61 61 36 33 66 65 37 32 111c8e5daa63fe72
0420: 32 63 36 61 61 33 37 0a 0a 74 63 6c 74 65 73 74 2c6aa37..tcltest
0430: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 35 ::test Hash_SHA5
0440: 31 32 2d 32 32 34 2d 31 2e 34 20 7b 53 48 41 35 12-224-1.4 {SHA5
0450: 31 32 2d 32 32 34 7d 20 5c 0a 09 2d 63 6f 6e 73 12-224} \..-cons
0460: 74 72 61 69 6e 74 73 20 53 48 41 35 31 32 5f 32 traints SHA512_2
0470: 32 34 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 24 \..-setup {se
0480: 74 20 64 61 74 61 20 22 61 62 63 64 65 66 67 68 t data "abcdefgh
0490: 62 63 64 65 66 67 68 69 63 64 65 66 67 68 69 6a bcdefghicdefghij
04a0: 64 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c defghijkefghijkl
04b0: 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e fghijklmghijklmn
04c0: 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e 6f 70 hijklmnoijklmnop
04d0: 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 71 72 jklmnopqklmnopqr
04e0: 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 72 73 74 lmnopqrsmnopqrst
04f0: 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a 09 2d 62 nopqrstu"} \..-b
0500: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0510: 20 2d 64 69 67 65 73 74 20 53 48 41 35 31 32 2d -digest SHA512-
0520: 32 32 34 20 2d 64 61 74 61 20 24 64 61 74 61 7d 224 -data $data}
0530: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0540: 20 2d 72 65 73 75 6c 74 20 32 33 66 65 63 35 62 -result 23fec5b
0550: 62 39 34 64 36 30 62 32 33 33 30 38 31 39 32 36 b94d60b233081926
0560: 34 30 62 30 63 34 35 33 33 33 35 64 36 36 34 37 40b0c453335d6647
0570: 33 34 66 65 34 30 65 37 32 36 38 36 37 34 61 66 34fe40e7268674af
0580: 39 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 9..# Cleanup.::t
0590: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
05a0: 65 73 74 73 0a 72 65 74 75 72 6e 0a ests.return.