Artifact
2b09e83d6099352e5c702125b11d2c998d1c3f09779735fc4dd7861568c3a2da:
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 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 .package require
0030: 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 tls.package req
0040: 75 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 uire tcltest..tc
0050: 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 ltest::testConst
0060: 72 61 69 6e 74 20 4d 44 43 32 20 5b 65 78 70 72 raint MDC2 [expr
0070: 20 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 {[lsearch -noca
0080: 73 65 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 se [tls::digests
0090: 5d 20 4d 44 43 32 5d 20 3e 20 2d 31 7d 5d 0a 0a ] MDC2] > -1}]..
00a0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
00b0: 73 68 5f 4d 44 43 32 2d 31 2e 31 20 7b 4d 44 43 sh_MDC2-1.1 {MDC
00c0: 32 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 2} \..-constrain
00d0: 74 73 20 4d 44 43 32 20 5c 0a 09 2d 73 65 74 75 ts MDC2 \..-setu
00e0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 p {set data ""}
00f0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0100: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 4d 44 igest -digest MD
0110: 43 32 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 C2 -data $data}
0120: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0130: 2d 72 65 73 75 6c 74 20 35 32 35 32 35 32 35 32 -result 52525252
0140: 35 32 35 32 35 32 35 32 32 35 32 35 32 35 32 35 5252525225252525
0150: 32 35 32 35 32 35 32 35 0a 0a 74 63 6c 74 65 73 25252525..tcltes
0160: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 4d 44 43 t::test Hash_MDC
0170: 32 2d 31 2e 32 20 7b 4d 44 43 32 7d 20 5c 0a 09 2-1.2 {MDC2} \..
0180: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 43 -constraints MDC
0190: 32 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 2 \..-setup {set
01a0: 20 64 61 74 61 20 22 54 68 65 20 71 75 69 63 6b data "The quick
01b0: 20 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 brown fox jumps
01c0: 20 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 20 64 over the lazy d
01d0: 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 og"} \..-body {t
01e0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
01f0: 73 74 20 4d 44 43 32 20 2d 64 61 74 61 20 24 64 st MDC2 -data $d
0200: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0210: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 30 30 xact -result 000
0220: 65 64 35 34 65 30 39 33 64 36 31 36 37 39 61 65 ed54e093d61679ae
0230: 66 62 65 61 65 30 35 62 66 65 33 33 61 0a 0a fbeae05bfe33a..