Artifact
7e03aeea77d8927e54cb852d8287b709774fad52922f188419923c47dca2d023:
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: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0030: 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 tls.package requ
0040: 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c ire tcltest..tcl
0050: 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 test::testConstr
0060: 61 69 6e 74 20 4d 44 35 20 5b 65 78 70 72 20 7b aint MD5 [expr {
0070: 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 [lsearch -nocase
0080: 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 [tls::digests]
0090: 4d 44 35 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c MD5] > -1}]..tcl
00a0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
00b0: 4d 44 35 2d 31 2e 31 20 7b 4d 44 35 7d 20 5c 0a MD5-1.1 {MD5} \.
00c0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 .-constraints MD
00d0: 35 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 5 \..-setup {set
00e0: 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f data ""} \..-bo
00f0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0100: 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 -digest MD5 -dat
0110: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0120: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0130: 20 64 34 31 64 38 63 64 39 38 66 30 30 62 32 30 d41d8cd98f00b20
0140: 34 65 39 38 30 30 39 39 38 65 63 66 38 34 32 37 4e9800998ecf8427
0150: 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 e..tcltest::test
0160: 20 48 61 73 68 5f 4d 44 35 2d 31 2e 32 20 7b 4d Hash_MD5-1.2 {M
0170: 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 D5} \..-constrai
0180: 6e 74 73 20 4d 44 35 20 5c 0a 09 2d 73 65 74 75 nts MD5 \..-setu
0190: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 22 7d p {set data "a"}
01a0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
01b0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 4d digest -digest M
01c0: 44 35 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 D5 -data $data}
01d0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
01e0: 2d 72 65 73 75 6c 74 20 30 63 63 31 37 35 62 39 -result 0cc175b9
01f0: 63 30 66 31 62 36 61 38 33 31 63 33 39 39 65 32 c0f1b6a831c399e2
0200: 36 39 37 37 32 36 36 31 0a 0a 74 63 6c 74 65 73 69772661..tcltes
0210: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 4d 44 35 t::test Hash_MD5
0220: 2d 31 2e 33 20 7b 4d 44 35 7d 20 5c 0a 09 2d 63 -1.3 {MD5} \..-c
0230: 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 35 20 5c onstraints MD5 \
0240: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0250: 74 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f ta "abc"} \..-bo
0260: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0270: 2d 64 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 -digest MD5 -dat
0280: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0290: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
02a0: 20 39 30 30 31 35 30 39 38 33 63 64 32 34 66 62 900150983cd24fb
02b0: 30 64 36 39 36 33 66 37 64 32 38 65 31 37 66 37 0d6963f7d28e17f7
02c0: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 2..tcltest::test
02d0: 20 48 61 73 68 5f 4d 44 35 2d 31 2e 34 20 7b 4d Hash_MD5-1.4 {M
02e0: 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 D5} \..-constrai
02f0: 6e 74 73 20 4d 44 35 20 5c 0a 09 2d 73 65 74 75 nts MD5 \..-setu
0300: 70 20 7b 73 65 74 20 64 61 74 61 20 22 6d 65 73 p {set data "mes
0310: 73 61 67 65 20 64 69 67 65 73 74 22 7d 20 5c 0a sage digest"} \.
0320: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0330: 65 73 74 20 2d 64 69 67 65 73 74 20 4d 44 35 20 est -digest MD5
0340: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0350: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0360: 73 75 6c 74 20 66 39 36 62 36 39 37 64 37 63 62 sult f96b697d7cb
0370: 37 39 33 38 64 35 32 35 61 32 66 33 31 61 61 66 7938d525a2f31aaf
0380: 31 36 31 64 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 161d0..tcltest::
0390: 74 65 73 74 20 48 61 73 68 5f 4d 44 35 2d 31 2e test Hash_MD5-1.
03a0: 35 20 7b 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 5 {MD5} \..-cons
03b0: 74 72 61 69 6e 74 73 20 4d 44 35 20 5c 0a 09 2d traints MD5 \..-
03c0: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
03d0: 22 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f "abcdefghijklmno
03e0: 70 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a pqrstuvwxyz"} \.
03f0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0400: 65 73 74 20 2d 64 69 67 65 73 74 20 4d 44 35 20 est -digest MD5
0410: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0420: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0430: 73 75 6c 74 20 63 33 66 63 64 33 64 37 36 31 39 sult c3fcd3d7619
0440: 32 65 34 30 30 37 64 66 62 34 39 36 63 63 61 36 2e4007dfb496cca6
0450: 37 65 31 33 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 7e13b..tcltest::
0460: 74 65 73 74 20 48 61 73 68 5f 4d 44 35 2d 31 2e test Hash_MD5-1.
0470: 36 20 7b 4d 44 35 7d 20 5c 0a 09 2d 63 6f 6e 73 6 {MD5} \..-cons
0480: 74 72 61 69 6e 74 73 20 4d 44 35 20 5c 0a 09 2d traints MD5 \..-
0490: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
04a0: 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f "ABCDEFGHIJKLMNO
04b0: 50 51 52 53 54 55 56 57 58 59 5a 61 62 63 64 65 PQRSTUVWXYZabcde
04c0: 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 fghijklmnopqrstu
04d0: 76 77 78 79 7a 30 31 32 33 34 35 36 37 38 39 22 vwxyz0123456789"
04e0: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
04f0: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0500: 4d 44 35 20 2d 64 61 74 61 20 24 64 61 74 61 7d MD5 -data $data}
0510: 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 \..-match exact
0520: 20 2d 72 65 73 75 6c 74 20 64 31 37 34 61 62 39 -result d174ab9
0530: 38 64 32 37 37 64 39 66 35 61 35 36 31 31 63 32 8d277d9f5a5611c2
0540: 63 39 66 34 31 39 64 39 66 0a 0a 74 63 6c 74 65 c9f419d9f..tclte
0550: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 4d 44 st::test Hash_MD
0560: 35 2d 31 2e 37 20 7b 4d 44 35 7d 20 5c 0a 09 2d 5-1.7 {MD5} \..-
0570: 63 6f 6e 73 74 72 61 69 6e 74 73 20 4d 44 35 20 constraints MD5
0580: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0590: 61 74 61 20 22 31 32 33 34 35 36 37 38 39 30 31 ata "12345678901
05a0: 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 2345678901234567
05b0: 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 8901234567890123
05c0: 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 4567890123456789
05d0: 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 0123456789012345
05e0: 36 37 38 39 30 22 7d 20 5c 0a 09 2d 62 6f 64 79 67890"} \..-body
05f0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0600: 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 61 20 igest MD5 -data
0610: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
0620: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 35 exact -result 5
0630: 37 65 64 66 34 61 32 32 62 65 33 63 39 35 35 61 7edf4a22be3c955a
0640: 63 34 39 64 61 32 65 32 31 30 37 62 36 37 61 0a c49da2e2107b67a.
0650: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
0660: 61 73 68 5f 4d 44 35 2d 31 2e 38 20 7b 4d 44 35 ash_MD5-1.8 {MD5
0670: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0680: 73 20 4d 44 35 20 5c 0a 09 2d 73 65 74 75 70 20 s MD5 \..-setup
0690: 7b 73 65 74 20 64 61 74 61 20 22 54 68 65 20 71 {set data "The q
06a0: 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 6a uick brown fox j
06b0: 75 6d 70 73 20 6f 76 65 72 20 74 68 65 20 6c 61 umps over the la
06c0: 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 zy dog"} \..-bod
06d0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
06e0: 64 69 67 65 73 74 20 4d 44 35 20 2d 64 61 74 61 digest MD5 -data
06f0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0700: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0710: 39 65 31 30 37 64 39 64 33 37 32 62 62 36 38 32 9e107d9d372bb682
0720: 36 62 64 38 31 64 33 35 34 32 61 34 31 39 64 36 6bd81d3542a419d6
0730: 0a 0a ..