Artifact
d7315ba5f48d03375c565c44d4d5fa9894a2faa90c255b7fa20078898fafee89:
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 52 49 50 45 4d 44 31 32 38 from "RIPEMD128
0020: 2e 74 78 74 22 0a 70 61 63 6b 61 67 65 20 72 65 .txt".package re
0030: 71 75 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 quire tls.packag
0040: 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 e require tcltes
0050: 74 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 t..tcltest::test
0060: 43 6f 6e 73 74 72 61 69 6e 74 20 52 49 50 45 4d Constraint RIPEM
0070: 44 31 32 38 20 5b 65 78 70 72 20 7b 5b 6c 73 65 D128 [expr {[lse
0080: 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c arch -nocase [tl
0090: 73 3a 3a 64 69 67 65 73 74 73 5d 20 52 49 50 45 s::digests] RIPE
00a0: 4d 44 31 32 38 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 MD128] > -1}]..t
00b0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
00c0: 68 5f 52 49 50 45 4d 44 31 32 38 2d 31 2e 31 20 h_RIPEMD128-1.1
00d0: 7b 52 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d {RIPEMD128} \..-
00e0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 constraints RIPE
00f0: 4d 44 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 MD128 \..-setup
0100: 7b 73 65 74 20 64 61 74 61 20 22 22 7d 20 5c 0a {set data ""} \.
0110: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0120: 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 est -digest RIPE
0130: 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 74 MD128 -data $dat
0140: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
0150: 63 74 20 2d 72 65 73 75 6c 74 20 63 64 66 32 36 ct -result cdf26
0160: 32 31 33 61 31 35 30 64 63 33 65 63 62 36 31 30 213a150dc3ecb610
0170: 66 31 38 66 36 62 33 38 62 34 36 0a 0a 74 63 6c f18f6b38b46..tcl
0180: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0190: 52 49 50 45 4d 44 31 32 38 2d 31 2e 32 20 7b 52 RIPEMD128-1.2 {R
01a0: 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f IPEMD128} \..-co
01b0: 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 nstraints RIPEMD
01c0: 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 128 \..-setup {s
01d0: 65 74 20 64 61 74 61 20 22 61 22 7d 20 5c 0a 09 et data "a"} \..
01e0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
01f0: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
0200: 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 74 61 D128 -data $data
0210: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0220: 74 20 2d 72 65 73 75 6c 74 20 38 36 62 65 37 61 t -result 86be7a
0230: 66 61 33 33 39 64 30 66 63 37 63 66 63 37 38 35 fa339d0fc7cfc785
0240: 65 37 32 66 35 37 38 64 33 33 0a 0a 74 63 6c 74 e72f578d33..tclt
0250: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 est::test Hash_R
0260: 49 50 45 4d 44 31 32 38 2d 31 2e 33 20 7b 52 49 IPEMD128-1.3 {RI
0270: 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e PEMD128} \..-con
0280: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 straints RIPEMD1
0290: 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 28 \..-setup {se
02a0: 74 20 64 61 74 61 20 22 61 62 63 22 7d 20 5c 0a t data "abc"} \.
02b0: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
02c0: 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 est -digest RIPE
02d0: 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 74 MD128 -data $dat
02e0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
02f0: 63 74 20 2d 72 65 73 75 6c 74 20 63 31 34 61 31 ct -result c14a1
0300: 32 31 39 39 63 36 36 65 34 62 61 38 34 36 33 36 2199c66e4ba84636
0310: 62 30 66 36 39 31 34 34 63 37 37 0a 0a 74 63 6c b0f69144c77..tcl
0320: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
0330: 52 49 50 45 4d 44 31 32 38 2d 31 2e 34 20 7b 52 RIPEMD128-1.4 {R
0340: 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f IPEMD128} \..-co
0350: 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 nstraints RIPEMD
0360: 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 128 \..-setup {s
0370: 65 74 20 64 61 74 61 20 22 6d 65 73 73 61 67 65 et data "message
0380: 20 64 69 67 65 73 74 22 7d 20 5c 0a 09 2d 62 6f digest"} \..-bo
0390: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
03a0: 2d 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 -digest RIPEMD12
03b0: 38 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 8 -data $data} \
03c0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
03d0: 72 65 73 75 6c 74 20 39 65 33 32 37 62 33 64 36 result 9e327b3d6
03e0: 65 35 32 33 30 36 32 61 66 63 31 31 33 32 64 37 e523062afc1132d7
03f0: 64 66 39 64 31 62 38 0a 0a 74 63 6c 74 65 73 74 df9d1b8..tcltest
0400: 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 ::test Hash_RIPE
0410: 4d 44 31 32 38 2d 31 2e 35 20 7b 52 49 50 45 4d MD128-1.5 {RIPEM
0420: 44 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 D128} \..-constr
0430: 61 69 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 aints RIPEMD128
0440: 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 \..-setup {set d
0450: 61 74 61 20 22 61 62 63 64 65 66 67 68 69 6a 6b ata "abcdefghijk
0460: 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 79 7a 22 lmnopqrstuvwxyz"
0470: 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a } \..-body {tls:
0480: 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 :digest -digest
0490: 52 49 50 45 4d 44 31 32 38 20 2d 64 61 74 61 20 RIPEMD128 -data
04a0: 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 $data} \..-match
04b0: 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 66 exact -result f
04c0: 64 32 61 61 36 30 37 66 37 31 64 63 38 66 35 31 d2aa607f71dc8f51
04d0: 30 37 31 34 39 32 32 62 33 37 31 38 33 34 65 0a 0714922b371834e.
04e0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 .tcltest::test H
04f0: 61 73 68 5f 52 49 50 45 4d 44 31 32 38 2d 31 2e ash_RIPEMD128-1.
0500: 36 20 7b 52 49 50 45 4d 44 31 32 38 7d 20 5c 0a 6 {RIPEMD128} \.
0510: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 .-constraints RI
0520: 50 45 4d 44 31 32 38 20 5c 0a 09 2d 73 65 74 75 PEMD128 \..-setu
0530: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 p {set data "abc
0540: 64 62 63 64 65 63 64 65 66 64 65 66 67 65 66 67 dbcdecdefdefgefg
0550: 68 66 67 68 69 67 68 69 6a 68 69 6a 6b 69 6a 6b hfghighijhijkijk
0560: 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f ljklmklmnlmnomno
0570: 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 6f 64 79 pnopq"} \..-body
0580: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0590: 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 38 20 igest RIPEMD128
05a0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
05b0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
05c0: 73 75 6c 74 20 61 31 61 61 30 36 38 39 64 30 66 sult a1aa0689d0f
05d0: 61 66 61 32 64 64 63 32 32 65 38 38 62 34 39 31 afa2ddc22e88b491
05e0: 33 33 61 30 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 33a06..tcltest::
05f0: 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 test Hash_RIPEMD
0600: 31 32 38 2d 31 2e 37 20 7b 52 49 50 45 4d 44 31 128-1.7 {RIPEMD1
0610: 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 28} \..-constrai
0620: 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 5c 0a nts RIPEMD128 \.
0630: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0640: 61 20 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d a "ABCDEFGHIJKLM
0650: 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 61 62 63 NOPQRSTUVWXYZabc
0660: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 defghijklmnopqrs
0670: 74 75 76 77 78 79 7a 30 31 32 33 34 35 36 37 38 tuvwxyz012345678
0680: 39 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 9"} \..-body {tl
0690: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
06a0: 74 20 52 49 50 45 4d 44 31 32 38 20 2d 64 61 74 t RIPEMD128 -dat
06b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
06c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
06d0: 20 64 31 65 39 35 39 65 62 31 37 39 63 39 31 31 d1e959eb179c911
06e0: 66 61 65 61 34 36 32 34 63 36 30 63 35 63 37 30 faea4624c60c5c70
06f0: 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 2..tcltest::test
0700: 20 48 61 73 68 5f 52 49 50 45 4d 44 31 32 38 2d Hash_RIPEMD128-
0710: 31 2e 38 20 7b 52 49 50 45 4d 44 31 32 38 7d 20 1.8 {RIPEMD128}
0720: 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 \..-constraints
0730: 52 49 50 45 4d 44 31 32 38 20 5c 0a 09 2d 73 65 RIPEMD128 \..-se
0740: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b 73 tup {set data [s
0750: 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 31 32 tring repeat "12
0760: 33 34 35 36 37 38 39 30 22 20 38 5d 7d 20 5c 0a 34567890" 8]} \.
0770: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0780: 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 est -digest RIPE
0790: 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 74 MD128 -data $dat
07a0: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
07b0: 63 74 20 2d 72 65 73 75 6c 74 20 33 66 34 35 65 ct -result 3f45e
07c0: 66 31 39 34 37 33 32 63 32 64 62 62 32 63 34 61 f194732c2dbb2c4a
07d0: 32 63 37 36 39 37 39 35 66 61 33 0a 0a 74 63 6c 2c769795fa3..tcl
07e0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
07f0: 52 49 50 45 4d 44 31 32 38 2d 31 2e 39 20 7b 52 RIPEMD128-1.9 {R
0800: 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f IPEMD128} \..-co
0810: 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 nstraints RIPEMD
0820: 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 128 \..-setup {s
0830: 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 et data [string
0840: 72 65 70 65 61 74 20 22 61 22 20 31 30 30 30 30 repeat "a" 10000
0850: 30 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 00]} \..-body {t
0860: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0870: 73 74 20 52 49 50 45 4d 44 31 32 38 20 2d 64 61 st RIPEMD128 -da
0880: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0890: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
08a0: 74 20 34 61 37 66 35 37 32 33 66 39 35 34 65 62 t 4a7f5723f954eb
08b0: 61 31 32 31 36 63 39 64 38 66 36 33 32 30 34 33 a1216c9d8f632043
08c0: 31 66 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 1f..tcltest::tes
08d0: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 31 32 38 t Hash_RIPEMD128
08e0: 2d 31 2e 31 30 20 7b 52 49 50 45 4d 44 31 32 38 -1.10 {RIPEMD128
08f0: 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 } \..-constraint
0900: 73 20 52 49 50 45 4d 44 31 32 38 20 5c 0a 09 2d s RIPEMD128 \..-
0910: 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 setup {set data
0920: 22 54 68 65 20 71 75 69 63 6b 20 62 72 6f 77 6e "The quick brown
0930: 20 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 72 20 fox jumps over
0940: 74 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d 20 5c the lazy dog"} \
0950: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0960: 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 gest -digest RIP
0970: 45 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 EMD128 -data $da
0980: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0990: 61 63 74 20 2d 72 65 73 75 6c 74 20 33 66 61 39 act -result 3fa9
09a0: 62 35 37 66 30 35 33 63 30 35 33 66 62 65 32 37 b57f053c053fbe27
09b0: 33 35 62 32 33 38 30 64 62 35 39 36 0a 0a 23 20 35b2380db596..#
09c0: 43 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 Cleanup.::tcltes
09d0: 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a t::cleanupTests.
09e0: 72 65 74 75 72 6e 0a return.