Artifact
ebd0ad0c961fdb23834c79704c7600daccd092f13dd63adafe210a27d4cd3b5f:
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 35 36 2e 74 78 from "SHA256.tx
0020: 74 22 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f t".lappend auto_
0030: 70 61 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 path [file dirna
0040: 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 me [file dirname
0050: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0060: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
0070: 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 le join [pwd] [i
0080: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d nfo script]]]]]]
0090: 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
00a0: 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 tls.package req
00b0: 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 uire tcltest..tc
00c0: 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 ltest::testConst
00d0: 72 61 69 6e 74 20 53 48 41 32 35 36 20 5b 65 78 raint SHA256 [ex
00e0: 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f pr {[lsearch -no
00f0: 63 61 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 case [tls::diges
0100: 74 73 5d 20 53 48 41 32 35 36 5d 20 3e 20 2d 31 ts] SHA256] > -1
0110: 7d 5d 0a 63 61 74 63 68 20 7b 74 6c 73 3a 3a 70 }].catch {tls::p
0120: 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 7d 0a rovider legacy}.
0130: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0140: 61 73 68 5f 53 48 41 32 35 36 2d 31 2e 31 20 7b ash_SHA256-1.1 {
0150: 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 SHA256} \..-cons
0160: 74 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c traints SHA256 \
0170: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0180: 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 ta ""} \..-body
0190: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
01a0: 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 74 gest SHA256 -dat
01b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
01c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
01d0: 20 65 33 62 30 63 34 34 32 39 38 66 63 31 63 31 e3b0c44298fc1c1
01e0: 34 39 61 66 62 66 34 63 38 39 39 36 66 62 39 32 49afbf4c8996fb92
01f0: 34 32 37 61 65 34 31 65 34 36 34 39 62 39 33 34 427ae41e4649b934
0200: 63 61 34 39 35 39 39 31 62 37 38 35 32 62 38 35 ca495991b7852b85
0210: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 5..tcltest::test
0220: 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e 32 Hash_SHA256-1.2
0230: 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f {SHA256} \..-co
0240: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 35 36 nstraints SHA256
0250: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0260: 64 61 74 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d data "abc"} \..-
0270: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0280: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 t -digest SHA256
0290: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
02a0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
02b0: 65 73 75 6c 74 20 62 61 37 38 31 36 62 66 38 66 esult ba7816bf8f
02c0: 30 31 63 66 65 61 34 31 34 31 34 30 64 65 35 64 01cfea414140de5d
02d0: 61 65 32 32 32 33 62 30 30 33 36 31 61 33 39 36 ae2223b00361a396
02e0: 31 37 37 61 39 63 62 34 31 30 66 66 36 31 66 32 177a9cb410ff61f2
02f0: 30 30 31 35 61 64 0a 0a 74 63 6c 74 65 73 74 3a 0015ad..tcltest:
0300: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 :test Hash_SHA25
0310: 36 2d 31 2e 33 20 7b 53 48 41 32 35 36 7d 20 5c 6-1.3 {SHA256} \
0320: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0330: 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 HA256 \..-setup
0340: 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 62 {set data "abcdb
0350: 63 64 65 63 64 65 66 64 65 66 67 65 66 67 68 66 cdecdefdefgefghf
0360: 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a ghighijhijkijklj
0370: 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e klmklmnlmnomnopn
0380: 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b opq"} \..-body {
0390: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
03a0: 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 74 61 est SHA256 -data
03b0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
03c0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
03d0: 32 34 38 64 36 61 36 31 64 32 30 36 33 38 62 38 248d6a61d20638b8
03e0: 65 35 63 30 32 36 39 33 30 63 33 65 36 30 33 39 e5c026930c3e6039
03f0: 61 33 33 63 65 34 35 39 36 34 66 66 32 31 36 37 a33ce45964ff2167
0400: 66 36 65 63 65 64 64 34 31 39 64 62 30 36 63 31 f6ecedd419db06c1
0410: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0420: 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e 34 20 Hash_SHA256-1.4
0430: 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e {SHA256} \..-con
0440: 73 74 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 straints SHA256
0450: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0460: 61 74 61 20 22 61 62 63 64 65 66 67 68 62 63 64 ata "abcdefghbcd
0470: 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 65 66 efghicdefghijdef
0480: 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 68 ghijkefghijklfgh
0490: 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a ijklmghijklmnhij
04a0: 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c klmnoijklmnopjkl
04b0: 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e mnopqklmnopqrlmn
04c0: 6f 70 71 72 73 6d 6e 6f 70 71 72 73 74 6e 6f 70 opqrsmnopqrstnop
04d0: 71 72 73 74 75 22 7d 20 5c 0a 09 2d 62 6f 64 79 qrstu"} \..-body
04e0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
04f0: 69 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 igest SHA256 -da
0500: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0510: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0520: 74 20 63 66 35 62 31 36 61 37 37 38 61 66 38 33 t cf5b16a778af83
0530: 38 30 30 33 36 63 65 35 39 65 37 62 30 34 39 32 80036ce59e7b0492
0540: 33 37 30 62 32 34 39 62 31 31 65 38 66 30 37 61 370b249b11e8f07a
0550: 35 31 61 66 61 63 34 35 30 33 37 61 66 65 65 39 51afac45037afee9
0560: 64 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 d1..tcltest::tes
0570: 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e t Hash_SHA256-1.
0580: 35 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 5 {SHA256} \..-c
0590: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 35 onstraints SHA25
05a0: 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 6 \..-setup {set
05b0: 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 data [string re
05c0: 70 65 61 74 20 22 61 22 20 31 30 30 30 30 30 30 peat "a" 1000000
05d0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
05e0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
05f0: 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 64 SHA256 -data $d
0600: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0610: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 64 63 xact -result cdc
0620: 37 36 65 35 63 39 39 31 34 66 62 39 32 38 31 61 76e5c9914fb9281a
0630: 31 63 37 65 32 38 34 64 37 33 65 36 37 66 31 38 1c7e284d73e67f18
0640: 30 39 61 34 38 61 34 39 37 32 30 30 65 30 34 36 09a48a497200e046
0650: 64 33 39 63 63 63 37 31 31 32 63 64 30 0a 0a 74 d39ccc7112cd0..t
0660: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0670: 68 5f 53 48 41 32 35 36 2d 31 2e 36 20 7b 53 48 h_SHA256-1.6 {SH
0680: 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 A256} \..-constr
0690: 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c 0a 09 aints SHA256 \..
06a0: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
06b0: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
06c0: 22 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 "abcdefghbcdefgh
06d0: 69 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a icdefghijdefghij
06e0: 6b 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c kefghijklfghijkl
06f0: 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e mghijklmnhijklmn
0700: 6f 22 20 31 36 37 37 37 32 31 36 5d 7d 20 5c 0a o" 16777216]} \.
0710: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0720: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 est -digest SHA2
0730: 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 56 -data $data}
0740: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0750: 2d 72 65 73 75 6c 74 20 35 30 65 37 32 61 30 65 -result 50e72a0e
0760: 32 36 34 34 32 66 65 32 35 35 32 64 63 33 39 33 26442fe2552dc393
0770: 38 61 63 35 38 36 35 38 32 32 38 63 30 63 62 66 8ac58658228c0cbf
0780: 62 31 64 32 63 61 38 37 32 61 65 34 33 35 32 36 b1d2ca872ae43526
0790: 36 66 63 64 30 35 35 65 0a 0a 74 63 6c 74 65 73 6fcd055e..tcltes
07a0: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 t::test Hash_SHA
07b0: 32 35 36 2d 31 2e 37 20 7b 53 48 41 32 35 36 7d 256-1.7 {SHA256}
07c0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
07d0: 20 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 SHA256 \..-setu
07e0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e p {set data [bin
07f0: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 62 ary decode hex b
0800: 64 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c d]} \..-body {tl
0810: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0820: 74 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 t SHA256 -data $
0830: 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 data} \..-match
0840: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 38 exact -result 68
0850: 33 32 35 37 32 30 61 61 62 64 37 63 38 32 66 33 325720aabd7c82f3
0860: 30 66 35 35 34 62 33 31 33 64 30 35 37 30 63 39 0f554b313d0570c9
0870: 35 61 63 63 62 62 37 64 63 34 62 35 61 61 65 31 5accbb7dc4b5aae1
0880: 31 32 30 34 63 30 38 66 66 65 37 33 32 62 0a 0a 1204c08ffe732b..
0890: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
08a0: 73 68 5f 53 48 41 32 35 36 2d 31 2e 38 20 7b 53 sh_SHA256-1.8 {S
08b0: 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA256} \..-const
08c0: 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c 0a raints SHA256 \.
08d0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
08e0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
08f0: 20 68 65 78 20 63 39 38 63 38 65 35 35 5d 7d 20 hex c98c8e55]}
0900: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0910: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0920: 41 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 A256 -data $data
0930: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0940: 74 20 2d 72 65 73 75 6c 74 20 37 61 62 63 32 32 t -result 7abc22
0950: 63 30 61 65 35 61 66 32 36 63 65 39 33 64 62 62 c0ae5af26ce93dbb
0960: 39 34 34 33 33 61 30 65 30 62 32 65 31 31 39 64 94433a0e0b2e119d
0970: 30 31 34 66 38 65 37 66 36 35 62 64 35 36 63 36 014f8e7f65bd56c6
0980: 31 63 63 63 63 64 39 35 30 34 0a 0a 74 63 6c 74 1ccccd9504..tclt
0990: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
09a0: 48 41 32 35 36 2d 31 2e 39 20 7b 53 48 41 32 35 HA256-1.9 {SHA25
09b0: 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 6} \..-constrain
09c0: 74 73 20 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 ts SHA256 \..-se
09d0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
09e0: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
09f0: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
0a00: 30 30 20 35 35 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 00 55]]} \..-bod
0a10: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0a20: 64 69 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 digest SHA256 -d
0a30: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0a40: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0a50: 6c 74 20 30 32 37 37 39 34 36 36 63 64 65 63 31 lt 02779466cdec1
0a60: 36 33 38 31 31 64 30 37 38 38 31 35 63 36 33 33 63811d078815c633
0a70: 66 32 31 39 30 31 34 31 33 30 38 31 34 34 39 30 f219014130814490
0a80: 30 32 66 32 34 61 61 33 65 38 30 66 30 62 38 38 02f24aa3e80f0b88
0a90: 65 66 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 ef7..tcltest::te
0aa0: 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 st Hash_SHA256-1
0ab0: 2e 31 30 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 .10 {SHA256} \..
0ac0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0ad0: 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 256 \..-setup {s
0ae0: 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 et data [binary
0af0: 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 decode hex [stri
0b00: 6e 67 20 72 65 70 65 61 74 20 30 30 20 35 36 5d ng repeat 00 56]
0b10: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
0b20: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0b30: 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 64 SHA256 -data $d
0b40: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0b50: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 34 38 xact -result d48
0b60: 31 37 61 61 35 34 39 37 36 32 38 65 37 63 37 37 17aa5497628e7c77
0b70: 65 36 62 36 30 36 31 30 37 30 34 32 62 62 62 61 e6b606107042bbba
0b80: 33 31 33 30 38 38 38 63 35 66 34 37 61 33 37 35 3130888c5f47a375
0b90: 65 36 31 37 39 62 65 37 38 39 66 62 62 0a 0a 74 e6179be789fbb..t
0ba0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0bb0: 68 5f 53 48 41 32 35 36 2d 31 2e 31 31 20 7b 53 h_SHA256-1.11 {S
0bc0: 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA256} \..-const
0bd0: 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c 0a raints SHA256 \.
0be0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0bf0: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0c00: 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 hex [string rep
0c10: 65 61 74 20 30 30 20 35 37 5d 5d 7d 20 5c 0a 09 eat 00 57]]} \..
0c20: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0c30: 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 35 st -digest SHA25
0c40: 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 6 -data $data} \
0c50: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0c60: 72 65 73 75 6c 74 20 36 35 61 31 36 63 62 37 38 result 65a16cb78
0c70: 36 31 33 33 35 64 35 61 63 65 33 63 36 30 37 31 61335d5ace3c6071
0c80: 38 62 35 30 35 32 65 34 34 36 36 30 37 32 36 64 8b5052e44660726d
0c90: 61 34 63 64 31 33 62 62 37 34 35 33 38 31 62 32 a4cd13bb745381b2
0ca0: 33 35 61 31 37 38 35 0a 0a 74 63 6c 74 65 73 74 35a1785..tcltest
0cb0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 ::test Hash_SHA2
0cc0: 35 36 2d 31 2e 31 32 20 7b 53 48 41 32 35 36 7d 56-1.12 {SHA256}
0cd0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0ce0: 20 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 SHA256 \..-setu
0cf0: 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e p {set data [bin
0d00: 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 5b ary decode hex [
0d10: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 30 30 string repeat 00
0d20: 20 36 34 5d 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 64]]} \..-body
0d30: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0d40: 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 74 gest SHA256 -dat
0d50: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0d60: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0d70: 20 66 35 61 35 66 64 34 32 64 31 36 61 32 30 33 f5a5fd42d16a203
0d80: 30 32 37 39 38 65 66 36 65 64 33 30 39 39 37 39 02798ef6ed309979
0d90: 62 34 33 30 30 33 64 32 33 32 30 64 39 66 30 65 b43003d2320d9f0e
0da0: 38 65 61 39 38 33 31 61 39 32 37 35 39 66 62 34 8ea9831a92759fb4
0db0: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 b..tcltest::test
0dc0: 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e 31 Hash_SHA256-1.1
0dd0: 33 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 3 {SHA256} \..-c
0de0: 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 35 onstraints SHA25
0df0: 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 6 \..-setup {set
0e00: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 data [binary de
0e10: 63 6f 64 65 20 68 65 78 20 5b 73 74 72 69 6e 67 code hex [string
0e20: 20 72 65 70 65 61 74 20 30 30 20 31 30 30 30 5d repeat 00 1000]
0e30: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
0e40: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0e50: 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 64 SHA256 -data $d
0e60: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0e70: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 34 31 xact -result 541
0e80: 62 33 65 39 64 61 61 30 39 62 32 30 62 66 38 35 b3e9daa09b20bf85
0e90: 66 61 32 37 33 65 35 63 62 64 33 65 38 30 31 38 fa273e5cbd3e8018
0ea0: 35 61 61 34 65 63 32 39 38 65 37 36 35 64 62 38 5aa4ec298e765db8
0eb0: 37 37 34 32 62 37 30 31 33 38 61 35 33 0a 0a 74 7742b70138a53..t
0ec0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0ed0: 68 5f 53 48 41 32 35 36 2d 31 2e 31 34 20 7b 53 h_SHA256-1.14 {S
0ee0: 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA256} \..-const
0ef0: 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c 0a raints SHA256 \.
0f00: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0f10: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
0f20: 20 68 65 78 20 5b 73 74 72 69 6e 67 20 72 65 70 hex [string rep
0f30: 65 61 74 20 34 31 20 31 30 30 30 5d 5d 7d 20 5c eat 41 1000]]} \
0f40: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0f50: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0f60: 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 256 -data $data}
0f70: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0f80: 20 2d 72 65 73 75 6c 74 20 63 32 65 36 38 36 38 -result c2e6868
0f90: 32 33 34 38 39 63 65 64 32 30 31 37 66 36 30 35 23489ced2017f605
0fa0: 39 62 38 62 32 33 39 33 31 38 62 36 33 36 34 66 9b8b239318b6364f
0fb0: 36 64 63 64 38 33 35 64 30 61 35 31 39 31 30 35 6dcd835d0a519105
0fc0: 61 31 65 61 64 64 36 65 34 0a 0a 74 63 6c 74 65 a1eadd6e4..tclte
0fd0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0fe0: 41 32 35 36 2d 31 2e 31 35 20 7b 53 48 41 32 35 A256-1.15 {SHA25
0ff0: 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 6} \..-constrain
1000: 74 73 20 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 ts SHA256 \..-se
1010: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 62 tup {set data [b
1020: 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 78 inary decode hex
1030: 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 [string repeat
1040: 35 35 20 31 30 30 35 5d 5d 7d 20 5c 0a 09 2d 62 55 1005]]} \..-b
1050: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
1060: 20 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 20 -digest SHA256
1070: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
1080: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
1090: 73 75 6c 74 20 66 34 64 36 32 64 64 65 63 30 66 sult f4d62ddec0f
10a0: 33 64 64 39 30 65 61 31 33 38 30 66 61 31 36 61 3dd90ea1380fa16a
10b0: 35 66 66 38 64 63 34 63 35 34 62 32 31 37 34 30 5ff8dc4c54b21740
10c0: 36 35 30 66 32 34 61 66 63 34 31 32 30 39 30 33 650f24afc4120903
10d0: 35 35 32 62 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 552b0..tcltest::
10e0: 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 test Hash_SHA256
10f0: 2d 31 2e 31 36 20 7b 53 48 41 32 35 36 7d 20 5c -1.16 {SHA256} \
1100: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
1110: 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 HA256 \..-setup
1120: 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 {set data [binar
1130: 79 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 y decode hex [st
1140: 72 69 6e 67 20 72 65 70 65 61 74 20 30 30 20 31 ring repeat 00 1
1150: 30 30 30 30 30 30 5d 5d 7d 20 5c 0a 09 2d 62 6f 000000]]} \..-bo
1160: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
1170: 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 20 2d -digest SHA256 -
1180: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
1190: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
11a0: 75 6c 74 20 64 32 39 37 35 31 66 32 36 34 39 62 ult d29751f2649b
11b0: 33 32 66 66 35 37 32 62 35 65 30 61 39 66 35 34 32ff572b5e0a9f54
11c0: 31 65 61 36 36 30 61 35 30 66 39 34 66 66 30 62 1ea660a50f94ff0b
11d0: 65 65 64 66 62 30 62 36 39 32 62 39 32 34 63 63 eedfb0b692b924cc
11e0: 38 30 32 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 8025..tcltest::t
11f0: 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d est Hash_SHA256-
1200: 31 2e 31 37 20 7b 53 48 41 32 35 36 7d 20 5c 0a 1.17 {SHA256} \.
1210: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
1220: 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b A256 \..-setup {
1230: 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 set data [binary
1240: 20 64 65 63 6f 64 65 20 68 65 78 20 5b 73 74 72 decode hex [str
1250: 69 6e 67 20 72 65 70 65 61 74 20 35 61 20 35 33 ing repeat 5a 53
1260: 36 38 37 30 39 31 32 5d 5d 7d 20 5c 0a 09 2d 62 6870912]]} \..-b
1270: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
1280: 20 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 20 -digest SHA256
1290: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
12a0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
12b0: 73 75 6c 74 20 31 35 61 31 38 36 38 63 31 32 63 sult 15a1868c12c
12c0: 63 35 33 39 35 31 65 31 38 32 33 34 34 32 37 37 c53951e182344277
12d0: 34 34 37 63 64 30 39 37 39 35 33 36 62 61 64 63 447cd0979536badc
12e0: 63 35 31 32 61 64 32 34 63 36 37 65 39 62 32 64 c512ad24c67e9b2d
12f0: 34 66 33 64 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 4f3dd..tcltest::
1300: 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 test Hash_SHA256
1310: 2d 31 2e 31 38 20 7b 53 48 41 32 35 36 7d 20 5c -1.18 {SHA256} \
1320: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
1330: 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 HA256 \..-setup
1340: 7b 73 65 74 20 64 61 74 61 20 22 54 68 65 20 71 {set data "The q
1350: 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 6a uick brown fox j
1360: 75 6d 70 73 20 6f 76 65 72 20 74 68 65 20 6c 61 umps over the la
1370: 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 zy dog"} \..-bod
1380: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
1390: 64 69 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 digest SHA256 -d
13a0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
13b0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
13c0: 6c 74 20 64 37 61 38 66 62 62 33 30 37 64 37 38 lt d7a8fbb307d78
13d0: 30 39 34 36 39 63 61 39 61 62 63 62 30 30 38 32 09469ca9abcb0082
13e0: 65 34 66 38 64 35 36 35 31 65 34 36 64 33 63 64 e4f8d5651e46d3cd
13f0: 62 37 36 32 64 30 32 64 30 62 66 33 37 63 39 65 b762d02d0bf37c9e
1400: 35 39 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 592..tcltest::te
1410: 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 st Hash_SHA256-1
1420: 2e 31 39 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 .19 {SHA256} \..
1430: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
1440: 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 256 \..-setup {s
1450: 65 74 20 64 61 74 61 20 22 61 62 63 22 7d 20 5c et data "abc"} \
1460: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
1470: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
1480: 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 256 -data $data}
1490: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
14a0: 20 2d 72 65 73 75 6c 74 20 62 61 37 38 31 36 62 -result ba7816b
14b0: 66 38 66 30 31 63 66 65 61 34 31 34 31 34 30 64 f8f01cfea414140d
14c0: 65 35 64 61 65 32 32 32 33 62 30 30 33 36 31 61 e5dae2223b00361a
14d0: 33 39 36 31 37 37 61 39 63 62 34 31 30 66 66 36 396177a9cb410ff6
14e0: 31 66 32 30 30 31 35 61 64 0a 0a 74 63 6c 74 65 1f20015ad..tclte
14f0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
1500: 41 32 35 36 2d 31 2e 32 30 20 7b 53 48 41 32 35 A256-1.20 {SHA25
1510: 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 6} \..-constrain
1520: 74 73 20 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 ts SHA256 \..-se
1530: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
1540: 62 63 64 62 63 64 65 63 64 65 66 64 65 66 67 65 bcdbcdecdefdefge
1550: 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 fghfghighijhijki
1560: 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d jkljklmklmnlmnom
1570: 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f nopnopq"} \..-bo
1580: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
1590: 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 20 2d -digest SHA256 -
15a0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
15b0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
15c0: 75 6c 74 20 32 34 38 64 36 61 36 31 64 32 30 36 ult 248d6a61d206
15d0: 33 38 62 38 65 35 63 30 32 36 39 33 30 63 33 65 38b8e5c026930c3e
15e0: 36 30 33 39 61 33 33 63 65 34 35 39 36 34 66 66 6039a33ce45964ff
15f0: 32 31 36 37 66 36 65 63 65 64 64 34 31 39 64 62 2167f6ecedd419db
1600: 30 36 63 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 06c1..tcltest::t
1610: 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d est Hash_SHA256-
1620: 31 2e 32 31 20 7b 53 48 41 32 35 36 7d 20 5c 0a 1.21 {SHA256} \.
1630: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
1640: 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b A256 \..-setup {
1650: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
1660: 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 repeat "a" 1000
1670: 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 000]} \..-body {
1680: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
1690: 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 74 61 est SHA256 -data
16a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
16b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
16c0: 63 64 63 37 36 65 35 63 39 39 31 34 66 62 39 32 cdc76e5c9914fb92
16d0: 38 31 61 31 63 37 65 32 38 34 64 37 33 65 36 37 81a1c7e284d73e67
16e0: 66 31 38 30 39 61 34 38 61 34 39 37 32 30 30 65 f1809a48a497200e
16f0: 30 34 36 64 33 39 63 63 63 37 31 31 32 63 64 30 046d39ccc7112cd0
1700: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
1710: 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e 32 32 Hash_SHA256-1.22
1720: 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f {SHA256} \..-co
1730: 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 35 36 nstraints SHA256
1740: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
1750: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 data [string rep
1760: 65 61 74 20 22 30 31 32 33 34 35 36 37 30 31 32 eat "01234567012
1770: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
1780: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
1790: 33 34 35 36 37 30 31 32 33 34 35 36 37 30 31 32 3456701234567012
17a0: 33 34 35 36 37 22 20 31 30 5d 7d 20 5c 0a 09 2d 34567" 10]} \..-
17b0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
17c0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 32 35 36 t -digest SHA256
17d0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
17e0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
17f0: 65 73 75 6c 74 20 35 39 34 38 34 37 33 32 38 34 esult 5948473284
1800: 35 31 62 64 66 61 38 35 30 35 36 32 32 35 34 36 51bdfa8505622546
1810: 32 63 63 31 64 38 36 37 64 38 37 37 66 62 33 38 2cc1d867d877fb38
1820: 38 64 66 30 63 65 33 35 66 32 35 61 62 35 35 36 8df0ce35f25ab556
1830: 32 62 66 62 62 35 0a 0a 74 63 6c 74 65 73 74 3a 2bfbb5..tcltest:
1840: 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 32 35 :test Hash_SHA25
1850: 36 2d 31 2e 32 33 20 7b 53 48 41 32 35 36 7d 20 6-1.23 {SHA256}
1860: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
1870: 53 48 41 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 SHA256 \..-setup
1880: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 {set data [bina
1890: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 31 39 ry decode hex 19
18a0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
18b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
18c0: 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 64 SHA256 -data $d
18d0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
18e0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 36 38 61 xact -result 68a
18f0: 61 32 65 32 65 65 35 64 66 66 39 36 65 33 33 35 a2e2ee5dff96e335
1900: 35 65 36 63 37 65 65 33 37 33 65 33 64 36 61 34 5e6c7ee373e3d6a4
1910: 65 31 37 66 37 35 66 39 35 31 38 64 38 34 33 37 e17f75f9518d8437
1920: 30 39 63 30 63 39 62 63 33 65 33 64 34 0a 0a 74 09c0c9bc3e3d4..t
1930: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
1940: 68 5f 53 48 41 32 35 36 2d 31 2e 32 34 20 7b 53 h_SHA256-1.24 {S
1950: 48 41 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 HA256} \..-const
1960: 72 61 69 6e 74 73 20 53 48 41 32 35 36 20 5c 0a raints SHA256 \.
1970: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
1980: 61 20 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 a [binary decode
1990: 20 68 65 78 20 65 33 64 37 32 35 37 30 64 63 64 hex e3d72570dcd
19a0: 64 37 38 37 63 65 33 38 38 37 61 62 32 63 64 36 d787ce3887ab2cd6
19b0: 38 34 36 35 32 5d 7d 20 5c 0a 09 2d 62 6f 64 79 84652]} \..-body
19c0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
19d0: 69 67 65 73 74 20 53 48 41 32 35 36 20 2d 64 61 igest SHA256 -da
19e0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
19f0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
1a00: 74 20 31 37 35 65 65 36 39 62 30 32 62 61 39 62 t 175ee69b02ba9b
1a10: 35 38 65 32 62 30 61 35 66 64 31 33 38 31 39 63 58e2b0a5fd13819c
1a20: 65 61 35 37 33 66 33 39 34 30 61 39 34 66 38 32 ea573f3940a94f82
1a30: 35 31 32 38 63 66 34 32 30 39 62 65 61 62 62 34 5128cf4209beabb4
1a40: 65 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 e8..tcltest::tes
1a50: 74 20 48 61 73 68 5f 53 48 41 32 35 36 2d 31 2e t Hash_SHA256-1.
1a60: 32 35 20 7b 53 48 41 32 35 36 7d 20 5c 0a 09 2d 25 {SHA256} \..-
1a70: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 32 constraints SHA2
1a80: 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 56 \..-setup {se
1a90: 74 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 t data [binary d
1aa0: 65 63 6f 64 65 20 68 65 78 20 38 33 32 36 37 35 ecode hex 832675
1ab0: 34 65 32 32 37 37 33 37 32 66 34 66 63 31 32 62 4e2277372f4fc12b
1ac0: 32 30 35 32 37 61 66 65 66 30 34 64 38 61 30 35 20527afef04d8a05
1ad0: 36 39 37 31 62 31 31 61 64 35 37 31 32 33 61 37 6971b11ad57123a7
1ae0: 63 31 33 37 37 36 30 30 30 30 64 37 62 65 66 36 c137760000d7bef6
1af0: 66 33 63 31 66 37 61 39 30 38 33 61 61 33 39 64 f3c1f7a9083aa39d
1b00: 38 31 30 64 62 33 31 30 37 37 37 64 61 62 38 62 810db310777dab8b
1b10: 31 65 37 66 30 32 62 38 34 61 32 36 63 37 37 33 1e7f02b84a26c773
1b20: 33 32 35 66 38 62 32 33 37 34 64 65 37 61 34 62 325f8b2374de7a4b
1b30: 35 61 35 38 63 62 35 63 35 63 66 33 35 62 63 65 5a58cb5c5cf35bce
1b40: 65 36 66 62 39 34 36 65 35 62 64 36 39 34 66 61 e6fb946e5bd694fa
1b50: 35 39 33 61 38 62 65 62 33 66 39 64 36 35 39 32 593a8beb3f9d6592
1b60: 65 63 65 64 61 61 36 36 63 61 38 32 61 32 39 64 ecedaa66ca82a29d
1b70: 30 63 35 31 62 63 66 39 33 33 36 32 33 30 65 35 0c51bcf9336230e5
1b80: 64 37 38 34 65 34 63 30 61 34 33 66 38 64 37 39 d784e4c0a43f8d79
1b90: 61 33 30 61 31 36 35 63 62 61 62 65 34 35 32 62 a30a165cbabe452b
1ba0: 37 37 34 62 39 63 37 31 30 39 61 39 37 64 31 33 774b9c7109a97d13
1bb0: 38 66 31 32 39 32 32 38 39 36 36 66 36 63 30 61 8f129228966f6c0a
1bc0: 64 63 31 30 36 61 61 64 35 61 39 66 64 64 33 30 dc106aad5a9fdd30
1bd0: 38 32 35 37 36 39 62 32 63 36 37 31 61 66 36 37 825769b2c671af67
1be0: 35 39 64 66 32 38 65 62 33 39 33 64 35 34 64 36 59df28eb393d54d6
1bf0: 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 ]} \..-body {tls
1c00: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
1c10: 20 53 48 41 32 35 36 20 2d 64 61 74 61 20 24 64 SHA256 -data $d
1c20: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
1c30: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 39 37 64 xact -result 97d
1c40: 62 63 61 37 64 66 34 36 64 36 32 63 38 61 34 32 bca7df46d62c8a42
1c50: 32 63 39 34 31 64 64 37 65 38 33 35 62 38 61 64 2c941dd7e835b8ad
1c60: 33 33 36 31 37 36 33 66 37 65 39 62 32 64 39 35 3361763f7e9b2d95
1c70: 66 34 66 30 64 61 36 65 31 63 63 62 63 0a 0a 23 f4f0da6e1ccbc..#
1c80: 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 Cleanup.::tclte
1c90: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
1ca0: 0a 72 65 74 75 72 6e 0a .return.