Artifact
a104d54869b74e0c4d89c09ad653463a608dfc59b631a15cd3f885685dff6d65:
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 4d 44 43 32 2e 74 78 74 22 from "MDC2.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 4d 44 43 32 20 5b 65 78 70 72 20 7b int MDC2 [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: 4d 44 43 32 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 MDC2] > -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 4d 44 st::test Hash_MD
0140: 43 32 2d 31 2e 31 20 7b 4d 44 43 32 7d 20 5c 0a C2-1.1 {MDC2} \.
0150: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 .-constraints MD
0160: 43 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 C2 \..-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 4d 44 43 32 20 2d 64 -digest MDC2 -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 35 32 35 32 35 32 35 32 35 32 35 32 35 lt 5252525252525
01d0: 32 35 32 32 35 32 35 32 35 32 35 32 35 32 35 32 2522525252525252
01e0: 35 32 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 525..tcltest::te
01f0: 73 74 20 48 61 73 68 5f 4d 44 43 32 2d 31 2e 32 st Hash_MDC2-1.2
0200: 20 7b 4d 44 43 32 7d 20 5c 0a 09 2d 63 6f 6e 73 {MDC2} \..-cons
0210: 74 72 61 69 6e 74 73 20 4d 44 43 32 20 5c 0a 09 traints MDC2 \..
0220: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0230: 20 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f 77 "The quick brow
0240: 6e 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 72 n fox jumps over
0250: 20 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d 20 the lazy dog"}
0260: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0270: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 4d 44 igest -digest MD
0280: 43 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 C2 -data $data}
0290: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
02a0: 2d 72 65 73 75 6c 74 20 30 30 30 65 64 35 34 65 -result 000ed54e
02b0: 30 39 33 64 36 31 36 37 39 61 65 66 62 65 61 65 093d61679aefbeae
02c0: 30 35 62 66 65 33 33 61 0a 0a 23 20 43 6c 65 61 05bfe33a..# Clea
02d0: 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 nup.::tcltest::c
02e0: 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 leanupTests.retu
02f0: 72 6e 0a rn.