Artifact
b788694073e68f1d51735070a81cf66fdc0582de76bf9780165ad870ac1211db:
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 31 2e 74 78 74 22 from "SHA1.txt"
0020: 0a 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 .lappend auto_pa
0030: 74 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 th [file dirname
0040: 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b [file dirname [
0050: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
0060: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 le dirname [file
0070: 20 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 join [pwd] [inf
0080: 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 o script]]]]]].p
0090: 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 ackage require t
00a0: 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 ls.package requi
00b0: 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 re tcltest..tclt
00c0: 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 est::testConstra
00d0: 69 6e 74 20 53 48 41 31 20 5b 65 78 70 72 20 7b int SHA1 [expr {
00e0: 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 [lsearch -nocase
00f0: 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 [tls::digests]
0100: 53 48 41 31 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 SHA1] > -1}].cat
0110: 63 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 ch {tls::provide
0120: 72 20 6c 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 r legacy}..tclte
0130: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 st::test Hash_SH
0140: 41 31 2d 31 2e 31 20 7b 53 48 41 31 7d 20 5c 0a A1-1.1 {SHA1} \.
0150: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 .-constraints SH
0160: 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 A1 \..-setup {se
0170: 74 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 t data ""} \..-b
0180: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0190: 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 -digest SHA1 -d
01a0: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
01b0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
01c0: 6c 74 20 64 61 33 39 61 33 65 65 35 65 36 62 34 lt da39a3ee5e6b4
01d0: 62 30 64 33 32 35 35 62 66 65 66 39 35 36 30 31 b0d3255bfef95601
01e0: 38 39 30 61 66 64 38 30 37 30 39 0a 0a 74 63 6c 890afd80709..tcl
01f0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0200: 53 48 41 31 2d 31 2e 32 20 7b 53 48 41 31 7d 20 SHA1-1.2 {SHA1}
0210: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0220: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b SHA1 \..-setup {
0230: 73 65 74 20 64 61 74 61 20 22 61 62 63 22 7d 20 set data "abc"}
0240: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0250: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0260: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 A1 -data $data}
0270: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0280: 2d 72 65 73 75 6c 74 20 61 39 39 39 33 65 33 36 -result a9993e36
0290: 34 37 30 36 38 31 36 61 62 61 33 65 32 35 37 31 4706816aba3e2571
02a0: 37 38 35 30 63 32 36 63 39 63 64 30 64 38 39 64 7850c26c9cd0d89d
02b0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
02c0: 48 61 73 68 5f 53 48 41 31 2d 31 2e 33 20 7b 53 Hash_SHA1-1.3 {S
02d0: 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 HA1} \..-constra
02e0: 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 ints SHA1 \..-se
02f0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
0300: 62 63 64 62 63 64 65 63 64 65 66 64 65 66 67 65 bcdbcdecdefdefge
0310: 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 fghfghighijhijki
0320: 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d jkljklmklmnlmnom
0330: 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f nopnopq"} \..-bo
0340: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0350: 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 -digest SHA1 -da
0360: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0370: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0380: 74 20 38 34 39 38 33 65 34 34 31 63 33 62 64 32 t 84983e441c3bd2
0390: 36 65 62 61 61 65 34 61 61 31 66 39 35 31 32 39 6ebaae4aa1f95129
03a0: 65 35 65 35 34 36 37 30 66 31 0a 0a 74 63 6c 74 e5e54670f1..tclt
03b0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
03c0: 48 41 31 2d 31 2e 34 20 7b 53 48 41 31 7d 20 5c HA1-1.4 {SHA1} \
03d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
03e0: 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 HA1 \..-setup {s
03f0: 65 74 20 64 61 74 61 20 22 61 62 63 64 65 66 67 et data "abcdefg
0400: 68 62 63 64 65 66 67 68 69 63 64 65 66 67 68 69 hbcdefghicdefghi
0410: 6a 64 65 66 67 68 69 6a 6b 65 66 67 68 69 6a 6b jdefghijkefghijk
0420: 6c 66 67 68 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d lfghijklmghijklm
0430: 6e 68 69 6a 6b 6c 6d 6e 6f 69 6a 6b 6c 6d 6e 6f nhijklmnoijklmno
0440: 70 6a 6b 6c 6d 6e 6f 70 71 6b 6c 6d 6e 6f 70 71 pjklmnopqklmnopq
0450: 72 6c 6d 6e 6f 70 71 72 73 6d 6e 6f 70 71 72 73 rlmnopqrsmnopqrs
0460: 74 6e 6f 70 71 72 73 74 75 22 7d 20 5c 0a 09 2d tnopqrstu"} \..-
0470: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0480: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d t -digest SHA1 -
0490: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
04a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
04b0: 75 6c 74 20 61 34 39 62 32 34 34 36 61 30 32 63 ult a49b2446a02c
04c0: 36 34 35 62 66 34 31 39 66 39 39 35 62 36 37 30 645bf419f995b670
04d0: 39 31 32 35 33 61 30 34 61 32 35 39 0a 0a 74 63 91253a04a259..tc
04e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
04f0: 5f 53 48 41 31 2d 31 2e 35 20 7b 53 48 41 31 7d _SHA1-1.5 {SHA1}
0500: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0510: 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 SHA1 \..-setup
0520: 7b 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e {set data [strin
0530: 67 20 72 65 70 65 61 74 20 22 61 22 20 31 30 30 g repeat "a" 100
0540: 30 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 0000]} \..-body
0550: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0560: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 gest SHA1 -data
0570: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0580: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 33 exact -result 3
0590: 34 61 61 39 37 33 63 64 34 63 34 64 61 61 34 66 4aa973cd4c4daa4f
05a0: 36 31 65 65 62 32 62 64 62 61 64 32 37 33 31 36 61eeb2bdbad27316
05b0: 35 33 34 30 31 36 66 0a 0a 74 63 6c 74 65 73 74 534016f..tcltest
05c0: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 ::test Hash_SHA1
05d0: 2d 31 2e 36 20 7b 53 48 41 31 7d 20 5c 0a 09 2d -1.6 {SHA1} \..-
05e0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 31 constraints SHA1
05f0: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0600: 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 data [string rep
0610: 65 61 74 20 22 61 62 63 64 65 66 67 68 62 63 64 eat "abcdefghbcd
0620: 65 66 67 68 69 63 64 65 66 67 68 69 6a 64 65 66 efghicdefghijdef
0630: 67 68 69 6a 6b 65 66 67 68 69 6a 6b 6c 66 67 68 ghijkefghijklfgh
0640: 69 6a 6b 6c 6d 67 68 69 6a 6b 6c 6d 6e 68 69 6a ijklmghijklmnhij
0650: 6b 6c 6d 6e 6f 22 20 31 36 37 37 37 32 31 36 5d klmno" 16777216]
0660: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0670: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0680: 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 SHA1 -data $data
0690: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
06a0: 74 20 2d 72 65 73 75 6c 74 20 37 37 38 39 66 30 t -result 7789f0
06b0: 63 39 65 66 37 62 66 63 34 30 64 39 33 33 31 31 c9ef7bfc40d93311
06c0: 31 34 33 64 66 62 65 36 39 65 32 30 31 37 66 35 143dfbe69e2017f5
06d0: 39 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 92..tcltest::tes
06e0: 74 20 48 61 73 68 5f 53 48 41 31 2d 31 2e 37 20 t Hash_SHA1-1.7
06f0: 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 {SHA1} \..-const
0700: 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d raints SHA1 \..-
0710: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0720: 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f 77 6e "The quick brown
0730: 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 72 20 fox jumps over
0740: 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d 20 5c the lazy dog"} \
0750: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0760: 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 gest -digest SHA
0770: 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 1 -data $data} \
0780: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0790: 72 65 73 75 6c 74 20 32 66 64 34 65 31 63 36 37 result 2fd4e1c67
07a0: 61 32 64 32 38 66 63 65 64 38 34 39 65 65 31 62 a2d28fced849ee1b
07b0: 62 37 36 65 37 33 39 31 62 39 33 65 62 31 32 0a b76e7391b93eb12.
07c0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
07d0: 61 73 68 5f 53 48 41 31 2d 31 2e 38 20 7b 53 48 ash_SHA1-1.8 {SH
07e0: 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 A1} \..-constrai
07f0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 nts SHA1 \..-set
0800: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
0810: 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c c"} \..-body {tl
0820: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0830: 74 20 53 48 41 31 20 2d 64 61 74 61 20 24 64 61 t SHA1 -data $da
0840: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0850: 61 63 74 20 2d 72 65 73 75 6c 74 20 61 39 39 39 act -result a999
0860: 33 65 33 36 34 37 30 36 38 31 36 61 62 61 33 65 3e364706816aba3e
0870: 32 35 37 31 37 38 35 30 63 32 36 63 39 63 64 30 25717850c26c9cd0
0880: 64 38 39 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 d89d..tcltest::t
0890: 65 73 74 20 48 61 73 68 5f 53 48 41 31 2d 31 2e est Hash_SHA1-1.
08a0: 39 20 7b 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 9 {SHA1} \..-con
08b0: 73 74 72 61 69 6e 74 73 20 53 48 41 31 20 5c 0a straints SHA1 \.
08c0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
08d0: 61 20 22 61 62 63 64 62 63 64 65 63 64 65 66 64 a "abcdbcdecdefd
08e0: 65 66 67 65 66 67 68 66 67 68 69 67 68 69 6a 68 efgefghfghighijh
08f0: 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c ijkijkljklmklmnl
0900: 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a mnomnopnopq"} \.
0910: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0920: 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 est -digest SHA1
0930: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0940: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0950: 65 73 75 6c 74 20 38 34 39 38 33 65 34 34 31 63 esult 84983e441c
0960: 33 62 64 32 36 65 62 61 61 65 34 61 61 31 66 39 3bd26ebaae4aa1f9
0970: 35 31 32 39 65 35 65 35 34 36 37 30 66 31 0a 0a 5129e5e54670f1..
0980: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0990: 73 68 5f 53 48 41 31 2d 31 2e 31 30 20 7b 53 48 sh_SHA1-1.10 {SH
09a0: 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 A1} \..-constrai
09b0: 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 nts SHA1 \..-set
09c0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 74 up {set data [st
09d0: 72 69 6e 67 20 72 65 70 65 61 74 20 22 61 22 20 ring repeat "a"
09e0: 31 30 30 30 30 30 30 5d 7d 20 5c 0a 09 2d 62 6f 1000000]} \..-bo
09f0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0a00: 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d 64 61 -digest SHA1 -da
0a10: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0a20: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0a30: 74 20 33 34 61 61 39 37 33 63 64 34 63 34 64 61 t 34aa973cd4c4da
0a40: 61 34 66 36 31 65 65 62 32 62 64 62 61 64 32 37 a4f61eeb2bdbad27
0a50: 33 31 36 35 33 34 30 31 36 66 0a 0a 74 63 6c 74 316534016f..tclt
0a60: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 est::test Hash_S
0a70: 48 41 31 2d 31 2e 31 31 20 7b 53 48 41 31 7d 20 HA1-1.11 {SHA1}
0a80: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0a90: 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b SHA1 \..-setup {
0aa0: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
0ab0: 20 72 65 70 65 61 74 20 22 30 31 32 33 34 35 36 repeat "0123456
0ac0: 37 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 7012345670123456
0ad0: 37 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 7012345670123456
0ae0: 37 30 31 32 33 34 35 36 37 30 31 32 33 34 35 36 7012345670123456
0af0: 37 30 31 32 33 34 35 36 37 22 20 31 30 5d 7d 20 701234567" 10]}
0b00: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0b10: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 48 igest -digest SH
0b20: 41 31 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 A1 -data $data}
0b30: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0b40: 2d 72 65 73 75 6c 74 20 64 65 61 33 35 36 61 32 -result dea356a2
0b50: 63 64 64 64 39 30 63 37 61 37 65 63 65 64 63 35 cddd90c7a7ecedc5
0b60: 65 62 62 35 36 33 39 33 34 66 34 36 30 34 35 32 ebb563934f460452
0b70: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0b80: 48 61 73 68 5f 53 48 41 31 2d 31 2e 31 32 20 7b Hash_SHA1-1.12 {
0b90: 53 48 41 31 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 SHA1} \..-constr
0ba0: 61 69 6e 74 73 20 53 48 41 31 20 5c 0a 09 2d 73 aints SHA1 \..-s
0bb0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b etup {set data [
0bc0: 62 69 6e 61 72 79 20 64 65 63 6f 64 65 20 68 65 binary decode he
0bd0: 78 20 35 65 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 x 5e]} \..-body
0be0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0bf0: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 gest SHA1 -data
0c00: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0c10: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 exact -result 5
0c20: 65 36 66 38 30 61 33 34 61 39 37 39 38 63 61 66 e6f80a34a9798caf
0c30: 63 36 61 35 64 62 39 36 63 63 35 37 62 61 34 63 c6a5db96cc57ba4c
0c40: 34 64 62 35 39 63 32 0a 0a 74 63 6c 74 65 73 74 4db59c2..tcltest
0c50: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 48 41 31 ::test Hash_SHA1
0c60: 2d 31 2e 31 33 20 7b 53 48 41 31 7d 20 5c 0a 09 -1.13 {SHA1} \..
0c70: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 48 41 -constraints SHA
0c80: 31 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 1 \..-setup {set
0c90: 20 64 61 74 61 20 5b 62 69 6e 61 72 79 20 64 65 data [binary de
0ca0: 63 6f 64 65 20 68 65 78 20 39 61 37 64 66 64 66 code hex 9a7dfdf
0cb0: 31 65 63 65 61 64 30 36 65 64 36 34 36 61 61 35 1ecead06ed646aa5
0cc0: 35 66 65 37 35 37 31 34 36 5d 7d 20 5c 0a 09 2d 5fe757146]} \..-
0cd0: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0ce0: 74 20 2d 64 69 67 65 73 74 20 53 48 41 31 20 2d t -digest SHA1 -
0cf0: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
0d00: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
0d10: 75 6c 74 20 38 32 61 62 66 66 36 36 30 35 64 62 ult 82abff6605db
0d20: 65 31 63 31 37 64 65 66 31 32 61 33 39 34 66 61 e1c17def12a394fa
0d30: 32 32 61 38 32 62 35 34 34 61 33 35 0a 0a 74 63 22a82b544a35..tc
0d40: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0d50: 5f 53 48 41 31 2d 31 2e 31 34 20 7b 53 48 41 31 _SHA1-1.14 {SHA1
0d60: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0d70: 73 20 53 48 41 31 20 5c 0a 09 2d 73 65 74 75 70 s SHA1 \..-setup
0d80: 20 7b 73 65 74 20 64 61 74 61 20 5b 62 69 6e 61 {set data [bina
0d90: 72 79 20 64 65 63 6f 64 65 20 68 65 78 20 66 37 ry decode hex f7
0da0: 38 66 39 32 31 34 31 62 63 64 31 37 30 61 65 38 8f92141bcd170ae8
0db0: 39 62 34 66 62 61 31 35 61 31 64 35 39 66 33 66 9b4fba15a1d59f3f
0dc0: 64 38 34 64 32 32 33 63 39 32 35 31 62 64 61 63 d84d223c9251bdac
0dd0: 62 62 61 65 36 31 64 30 35 65 64 31 31 35 61 30 bbae61d05ed115a0
0de0: 36 61 37 63 65 31 31 37 62 37 62 65 65 61 64 32 6a7ce117b7beead2
0df0: 34 34 32 31 64 65 64 39 63 33 32 35 39 32 62 64 4421ded9c32592bd
0e00: 35 37 65 64 65 61 65 33 39 63 33 39 66 61 31 66 57edeae39c39fa1f
0e10: 65 38 39 34 36 61 38 34 64 30 63 66 31 66 37 62 e8946a84d0cf1f7b
0e20: 65 65 61 64 31 37 31 33 65 32 65 30 39 35 39 38 eead1713e2e09598
0e30: 39 37 33 34 37 66 36 37 63 38 30 62 30 34 30 30 97347f67c80b0400
0e40: 63 32 30 39 38 31 35 64 36 62 31 30 61 36 38 33 c209815d6b10a683
0e50: 38 33 36 66 64 35 35 36 32 61 35 36 63 61 62 31 836fd5562a56cab1
0e60: 61 32 38 65 38 31 62 36 35 37 36 36 35 34 36 33 a28e81b657665463
0e70: 31 63 66 31 36 35 36 36 62 38 36 65 33 62 33 33 1cf16566b86e3b33
0e80: 61 31 30 38 62 30 35 33 30 37 63 30 30 61 66 66 a108b05307c00aff
0e90: 31 34 61 37 36 38 65 64 37 33 35 30 36 30 36 61 14a768ed7350606a
0ea0: 30 66 38 35 65 36 61 39 31 64 33 39 36 66 35 62 0f85e6a91d396f5b
0eb0: 35 63 62 65 35 37 37 66 39 62 33 38 38 30 37 63 5cbe577f9b38807c
0ec0: 37 64 35 32 33 64 36 64 37 39 32 66 36 65 62 63 7d523d6d792f6ebc
0ed0: 32 34 61 34 65 63 66 32 62 33 61 34 32 37 63 64 24a4ecf2b3a427cd
0ee0: 62 62 66 62 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 bbfb]} \..-body
0ef0: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0f00: 67 65 73 74 20 53 48 41 31 20 2d 64 61 74 61 20 gest SHA1 -data
0f10: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0f20: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 63 exact -result c
0f30: 62 30 30 38 32 63 38 66 31 39 37 64 32 36 30 39 b0082c8f197d2609
0f40: 39 31 62 61 36 61 34 36 30 65 37 36 65 32 30 32 91ba6a460e76e202
0f50: 62 61 64 32 37 62 33 0a 0a 23 20 43 6c 65 61 6e bad27b3..# Clean
0f60: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
0f70: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
0f80: 6e 0a n.