Artifact
87ec5e51fc136e5e84237f26b7246682777aa8ac6d1fdad62e15a689731b5a97:
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 35 from "SHA512-25
0020: 36 2e 74 78 74 22 0a 6c 61 70 70 65 6e 64 20 61 6.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 35 36 20 5b 65 78 70 72 20 7b 5b 6c 73 65 _256 [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 35 36 5d 20 3e 20 2d 31 7d 5d 0a 63 12-256] > -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 35 36 2d 31 2e 31 20 7b SHA512-256-1.1 {
0160: 53 48 41 35 31 32 2d 32 35 36 7d 20 5c 0a 09 2d SHA512-256} \..-
0170: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 35 constraints SHA5
0180: 31 32 5f 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 12_256 \..-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 35 36 20 2d 64 61 74 61 20 24 64 512-256 -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 63 36 37 xact -result c67
01f0: 32 62 38 64 31 65 66 35 36 65 64 32 38 61 62 38 2b8d1ef56ed28ab8
0200: 37 63 33 36 32 32 63 35 31 31 34 30 36 39 62 64 7c3622c5114069bd
0210: 64 33 61 64 37 62 38 66 39 37 33 37 34 39 38 64 d3ad7b8f9737498d
0220: 30 63 30 31 65 63 65 66 30 39 36 37 61 0a 0a 74 0c01ecef0967a..t
0230: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0240: 68 5f 53 48 41 35 31 32 2d 32 35 36 2d 31 2e 32 h_SHA512-256-1.2
0250: 20 7b 53 48 41 35 31 32 2d 32 35 36 7d 20 5c 0a {SHA512-256} \.
0260: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0270: 41 35 31 32 5f 32 35 36 20 5c 0a 09 2d 73 65 74 A512_256 \..-set
0280: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
0290: 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c c"} \..-body {tl
02a0: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
02b0: 74 20 53 48 41 35 31 32 2d 32 35 36 20 2d 64 61 t SHA512-256 -da
02c0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
02d0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
02e0: 74 20 35 33 30 34 38 65 32 36 38 31 39 34 31 65 t 53048e2681941e
02f0: 66 39 39 62 32 65 32 39 62 37 36 62 34 63 37 64 f99b2e29b76b4c7d
0300: 61 62 65 34 63 32 64 30 63 36 33 34 66 63 36 64 abe4c2d0c634fc6d
0310: 34 36 65 30 65 32 66 31 33 31 30 37 65 37 61 66 46e0e2f13107e7af
0320: 32 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 23..tcltest::tes
0330: 74 20 48 61 73 68 5f 53 48 41 35 31 32 2d 32 35 t Hash_SHA512-25
0340: 36 2d 31 2e 33 20 7b 53 48 41 35 31 32 2d 32 35 6-1.3 {SHA512-25
0350: 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 6} \..-constrain
0360: 74 73 20 53 48 41 35 31 32 5f 32 35 36 20 5c 0a ts SHA512_256 \.
0370: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0380: 61 20 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f a "The quick bro
0390: 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 wn fox jumps ove
03a0: 72 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d r the lazy dog"}
03b0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
03c0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
03d0: 48 41 35 31 32 2d 32 35 36 20 2d 64 61 74 61 20 HA512-256 -data
03e0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
03f0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 64 exact -result d
0400: 64 39 64 36 37 62 33 37 31 35 31 39 63 33 33 39 d9d67b371519c339
0410: 65 64 38 64 62 64 32 35 61 66 39 30 65 39 37 36 ed8dbd25af90e976
0420: 61 31 65 65 65 66 64 34 61 64 33 64 38 38 39 30 a1eeefd4ad3d8890
0430: 30 35 65 35 33 32 66 63 35 62 65 66 30 34 64 0a 05e532fc5bef04d.
0440: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0450: 61 73 68 5f 53 48 41 35 31 32 2d 32 35 36 2d 31 ash_SHA512-256-1
0460: 2e 34 20 7b 53 48 41 35 31 32 2d 32 35 36 7d 20 .4 {SHA512-256}
0470: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0480: 53 48 41 35 31 32 5f 32 35 36 20 5c 0a 09 2d 73 SHA512_256 \..-s
0490: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
04a0: 61 62 63 64 65 66 67 68 62 63 64 65 66 67 68 69 abcdefghbcdefghi
04b0: 63 64 65 66 67 68 69 6a 64 65 66 67 68 69 6a 6b cdefghijdefghijk
04c0: 65 66 67 68 69 6a 6b 6c 66 67 68 69 6a 6b 6c 6d efghijklfghijklm
04d0: 67 68 69 6a 6b 6c 6d 6e 68 69 6a 6b 6c 6d 6e 6f ghijklmnhijklmno
04e0: 69 6a 6b 6c 6d 6e 6f 70 6a 6b 6c 6d 6e 6f 70 71 ijklmnopjklmnopq
04f0: 6b 6c 6d 6e 6f 70 71 72 6c 6d 6e 6f 70 71 72 73 klmnopqrlmnopqrs
0500: 6d 6e 6f 70 71 72 73 74 6e 6f 70 71 72 73 74 75 mnopqrstnopqrstu
0510: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0520: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0530: 20 53 48 41 35 31 32 2d 32 35 36 20 2d 64 61 74 SHA512-256 -dat
0540: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0550: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0560: 20 33 39 32 38 65 31 38 34 66 62 38 36 39 30 66 3928e184fb8690f
0570: 38 34 30 64 61 33 39 38 38 31 32 31 64 33 31 62 840da3988121d31b
0580: 65 36 35 63 62 39 64 33 65 66 38 33 65 65 36 31 e65cb9d3ef83ee61
0590: 34 36 66 65 61 63 38 36 31 65 31 39 62 35 36 33 46feac861e19b563
05a0: 61 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 74 a..# Cleanup.::t
05b0: 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 54 cltest::cleanupT
05c0: 65 73 74 73 0a 72 65 74 75 72 6e 0a ests.return.