Artifact
02d5c9878c3ddacf3ddf00ebb5516fa8de3c40c82c4f8b8b6bb1b404c267b278:
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 35 2e 74 78 74 22 0a from "MD5.txt".
0020: 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 74 lappend auto_pat
0030: 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 h [file dirname
0040: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0050: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c ile dirname [fil
0060: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
0070: 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f join [pwd] [info
0080: 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 script]]]]]].pa
0090: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c ckage require tl
00a0: 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 s.package requir
00b0: 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 e tcltest..tclte
00c0: 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 st::testConstrai
00d0: 6e 74 20 4d 44 35 20 5b 65 78 70 72 20 7b 5b 6c nt MD5 [expr {[l
00e0: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b search -nocase [
00f0: 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 4d 44 tls::digests] MD
0100: 35 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 68 20 5] > -1}].catch
0110: 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 6c {tls::provider l
0120: 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 74 3a egacy}..tcltest:
0130: 3a 74 65 73 74 20 48 61 73 68 5f 4d 44 35 2d 31 :test Hash_MD5-1
0140: 2e 31 20 7b 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e .1 {MD5} \..-con
0150: 73 74 72 61 69 6e 74 73 20 4d 44 35 20 5c 0a 09 straints MD5 \..
0160: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0170: 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 ""} \..-body {t
0180: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0190: 73 74 20 4d 44 35 20 2d 64 61 74 61 20 24 64 61 st MD5 -data $da
01a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
01b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 34 31 64 act -result d41d
01c0: 38 63 64 39 38 66 30 30 62 32 30 34 65 39 38 30 8cd98f00b204e980
01d0: 30 39 39 38 65 63 66 38 34 32 37 65 0a 0a 74 63 0998ecf8427e..tc
01e0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
01f0: 5f 4d 44 35 2d 31 2e 32 20 7b 4d 44 35 7d 20 5c _MD5-1.2 {MD5} \
0200: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d ..-constraints M
0210: 44 35 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 D5 \..-setup {se
0220: 74 20 64 61 74 61 20 22 61 22 7d 20 5c 0a 09 2d t data "a"} \..-
0230: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0240: 74 20 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 64 t -digest MD5 -d
0250: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0260: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0270: 6c 74 20 30 63 63 31 37 35 62 39 63 30 66 31 62 lt 0cc175b9c0f1b
0280: 36 61 38 33 31 63 33 39 39 65 32 36 39 37 37 32 6a831c399e269772
0290: 36 36 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 661..tcltest::te
02a0: 73 74 20 48 61 73 68 5f 4d 44 35 2d 31 2e 33 20 st Hash_MD5-1.3
02b0: 7b 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 {MD5} \..-constr
02c0: 61 69 6e 74 73 20 4d 44 35 20 5c 0a 09 2d 73 65 aints MD5 \..-se
02d0: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
02e0: 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 bc"} \..-body {t
02f0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0300: 73 74 20 4d 44 35 20 2d 64 61 74 61 20 24 64 61 st MD5 -data $da
0310: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0320: 61 63 74 20 2d 72 65 73 75 6c 74 20 39 30 30 31 act -result 9001
0330: 35 30 39 38 33 63 64 32 34 66 62 30 64 36 39 36 50983cd24fb0d696
0340: 33 66 37 64 32 38 65 31 37 66 37 32 0a 0a 74 63 3f7d28e17f72..tc
0350: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0360: 5f 4d 44 35 2d 31 2e 34 20 7b 4d 44 35 7d 20 5c _MD5-1.4 {MD5} \
0370: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d ..-constraints M
0380: 44 35 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 D5 \..-setup {se
0390: 74 20 64 61 74 61 20 22 6d 65 73 73 61 67 65 20 t data "message
03a0: 64 69 67 65 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 digest"} \..-bod
03b0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
03c0: 64 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 61 digest MD5 -data
03d0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
03e0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
03f0: 66 39 36 62 36 39 37 64 37 63 62 37 39 33 38 64 f96b697d7cb7938d
0400: 35 32 35 61 32 66 33 31 61 61 66 31 36 31 64 30 525a2f31aaf161d0
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 4d 44 35 2d 31 2e 35 20 7b 4d 44 Hash_MD5-1.5 {MD
0430: 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 5} \..-constrain
0440: 74 73 20 4d 44 35 20 5c 0a 09 2d 73 65 74 75 70 ts MD5 \..-setup
0450: 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 64 {set data "abcd
0460: 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 efghijklmnopqrst
0470: 75 76 77 78 79 7a 22 7d 20 5c 0a 09 2d 62 6f 64 uvwxyz"} \..-bod
0480: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0490: 64 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 61 digest MD5 -data
04a0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
04b0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
04c0: 63 33 66 63 64 33 64 37 36 31 39 32 65 34 30 30 c3fcd3d76192e400
04d0: 37 64 66 62 34 39 36 63 63 61 36 37 65 31 33 62 7dfb496cca67e13b
04e0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
04f0: 48 61 73 68 5f 4d 44 35 2d 31 2e 36 20 7b 4d 44 Hash_MD5-1.6 {MD
0500: 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 5} \..-constrain
0510: 74 73 20 4d 44 35 20 5c 0a 09 2d 73 65 74 75 70 ts MD5 \..-setup
0520: 20 7b 73 65 74 20 64 61 74 61 20 22 41 42 43 44 {set data "ABCD
0530: 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 EFGHIJKLMNOPQRST
0540: 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 69 6a UVWXYZabcdefghij
0550: 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a klmnopqrstuvwxyz
0560: 30 31 32 33 34 35 36 37 38 39 22 7d 20 5c 0a 09 0123456789"} \..
0570: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0580: 73 74 20 2d 64 69 67 65 73 74 20 4d 44 35 20 2d st -digest MD5 -
0590: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
05a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
05b0: 75 6c 74 20 64 31 37 34 61 62 39 38 64 32 37 37 ult d174ab98d277
05c0: 64 39 66 35 61 35 36 31 31 63 32 63 39 66 34 31 d9f5a5611c2c9f41
05d0: 39 64 39 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 9d9f..tcltest::t
05e0: 65 73 74 20 48 61 73 68 5f 4d 44 35 2d 31 2e 37 est Hash_MD5-1.7
05f0: 20 7b 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 {MD5} \..-const
0600: 72 61 69 6e 74 73 20 4d 44 35 20 5c 0a 09 2d 73 raints MD5 \..-s
0610: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0620: 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
0630: 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 7890123456789012
0640: 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 3456789012345678
0650: 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 9012345678901234
0660: 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 5678901234567890
0670: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0680: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0690: 20 4d 44 35 20 2d 64 61 74 61 20 24 64 61 74 61 MD5 -data $data
06a0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
06b0: 74 20 2d 72 65 73 75 6c 74 20 35 37 65 64 66 34 t -result 57edf4
06c0: 61 32 32 62 65 33 63 39 35 35 61 63 34 39 64 61 a22be3c955ac49da
06d0: 32 65 32 31 30 37 62 36 37 61 0a 0a 74 63 6c 74 2e2107b67a..tclt
06e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 4d est::test Hash_M
06f0: 44 35 2d 31 2e 38 20 7b 4d 44 35 7d 20 5c 0a 09 D5-1.8 {MD5} \..
0700: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 35 -constraints MD5
0710: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0720: 64 61 74 61 20 22 54 68 65 20 71 75 69 63 6b 20 data "The quick
0730: 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 73 20 brown fox jumps
0740: 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 20 64 6f over the lazy do
0750: 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c g"} \..-body {tl
0760: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0770: 74 20 4d 44 35 20 2d 64 61 74 61 20 24 64 61 74 t MD5 -data $dat
0780: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
0790: 63 74 20 2d 72 65 73 75 6c 74 20 39 65 31 30 37 ct -result 9e107
07a0: 64 39 64 33 37 32 62 62 36 38 32 36 62 64 38 31 d9d372bb6826bd81
07b0: 64 33 35 34 32 61 34 31 39 64 36 0a 0a 23 20 43 d3542a419d6..# C
07c0: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
07d0: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
07e0: 65 74 75 72 6e 0a eturn.