Artifact
537f06a40fa68a081d8b128432c4231b03d2978049163219fc6983b16389d0bc:
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 6c 61 70 70 65 6e 64 20 61 75 .txt".lappend au
0030: 74 6f 5f 70 61 74 68 20 5b 66 69 6c 65 20 64 69 to_path [file di
0040: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e rname [file dirn
0050: 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d ame [file dirnam
0060: 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 e [file dirname
0070: 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 64 5d [file join [pwd]
0080: 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d [info script]]]
0090: 5d 5d 5d 0a 70 61 63 6b 61 67 65 20 72 65 71 75 ]]].package requ
00a0: 69 72 65 20 74 6c 73 0a 70 61 63 6b 61 67 65 20 ire tls.package
00b0: 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a require tcltest.
00c0: 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f .tcltest::testCo
00d0: 6e 73 74 72 61 69 6e 74 20 52 49 50 45 4d 44 31 nstraint RIPEMD1
00e0: 32 38 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 28 [expr {[lsear
00f0: 63 68 20 2d 6e 6f 63 61 73 65 20 5b 74 6c 73 3a ch -nocase [tls:
0100: 3a 64 69 67 65 73 74 73 5d 20 52 49 50 45 4d 44 :digests] RIPEMD
0110: 31 32 38 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 128] > -1}].catc
0120: 68 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 h {tls::provider
0130: 20 6c 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 legacy}..tcltes
0140: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 t::test Hash_RIP
0150: 45 4d 44 31 32 38 2d 31 2e 31 20 7b 52 49 50 45 EMD128-1.1 {RIPE
0160: 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 MD128} \..-const
0170: 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 32 38 raints RIPEMD128
0180: 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 \..-setup {set
0190: 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 data ""} \..-bod
01a0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
01b0: 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 38 digest RIPEMD128
01c0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
01d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
01e0: 65 73 75 6c 74 20 63 64 66 32 36 32 31 33 61 31 esult cdf26213a1
01f0: 35 30 64 63 33 65 63 62 36 31 30 66 31 38 66 36 50dc3ecb610f18f6
0200: 62 33 38 62 34 36 0a 0a 74 63 6c 74 65 73 74 3a b38b46..tcltest:
0210: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0220: 44 31 32 38 2d 31 2e 32 20 7b 52 49 50 45 4d 44 D128-1.2 {RIPEMD
0230: 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 128} \..-constra
0240: 69 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 5c ints RIPEMD128 \
0250: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0260: 74 61 20 22 61 22 7d 20 5c 0a 09 2d 62 6f 64 79 ta "a"} \..-body
0270: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
0280: 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 38 20 igest RIPEMD128
0290: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
02a0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
02b0: 73 75 6c 74 20 38 36 62 65 37 61 66 61 33 33 39 sult 86be7afa339
02c0: 64 30 66 63 37 63 66 63 37 38 35 65 37 32 66 35 d0fc7cfc785e72f5
02d0: 37 38 64 33 33 0a 0a 74 63 6c 74 65 73 74 3a 3a 78d33..tcltest::
02e0: 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 test Hash_RIPEMD
02f0: 31 32 38 2d 31 2e 33 20 7b 52 49 50 45 4d 44 31 128-1.3 {RIPEMD1
0300: 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 28} \..-constrai
0310: 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 5c 0a nts RIPEMD128 \.
0320: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0330: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
0340: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0350: 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 38 digest RIPEMD128
0360: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0370: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0380: 65 73 75 6c 74 20 63 31 34 61 31 32 31 39 39 63 esult c14a12199c
0390: 36 36 65 34 62 61 38 34 36 33 36 62 30 66 36 39 66e4ba84636b0f69
03a0: 31 34 34 63 37 37 0a 0a 74 63 6c 74 65 73 74 3a 144c77..tcltest:
03b0: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
03c0: 44 31 32 38 2d 31 2e 34 20 7b 52 49 50 45 4d 44 D128-1.4 {RIPEMD
03d0: 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 128} \..-constra
03e0: 69 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 5c ints RIPEMD128 \
03f0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0400: 74 61 20 22 6d 65 73 73 61 67 65 20 64 69 67 65 ta "message dige
0410: 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 st"} \..-body {t
0420: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0430: 73 74 20 52 49 50 45 4d 44 31 32 38 20 2d 64 61 st RIPEMD128 -da
0440: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0450: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0460: 74 20 39 65 33 32 37 62 33 64 36 65 35 32 33 30 t 9e327b3d6e5230
0470: 36 32 61 66 63 31 31 33 32 64 37 64 66 39 64 31 62afc1132d7df9d1
0480: 62 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 b8..tcltest::tes
0490: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 31 32 38 t Hash_RIPEMD128
04a0: 2d 31 2e 35 20 7b 52 49 50 45 4d 44 31 32 38 7d -1.5 {RIPEMD128}
04b0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
04c0: 20 52 49 50 45 4d 44 31 32 38 20 5c 0a 09 2d 73 RIPEMD128 \..-s
04d0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
04e0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
04f0: 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 qrstuvwxyz"} \..
0500: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0510: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
0520: 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 74 61 D128 -data $data
0530: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0540: 74 20 2d 72 65 73 75 6c 74 20 66 64 32 61 61 36 t -result fd2aa6
0550: 30 37 66 37 31 64 63 38 66 35 31 30 37 31 34 39 07f71dc8f5107149
0560: 32 32 62 33 37 31 38 33 34 65 0a 0a 74 63 6c 74 22b371834e..tclt
0570: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 est::test Hash_R
0580: 49 50 45 4d 44 31 32 38 2d 31 2e 36 20 7b 52 49 IPEMD128-1.6 {RI
0590: 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e PEMD128} \..-con
05a0: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 straints RIPEMD1
05b0: 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 28 \..-setup {se
05c0: 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 65 t data "abcdbcde
05d0: 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 69 cdefdefgefghfghi
05e0: 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d ghijhijkijkljklm
05f0: 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 klmnlmnomnopnopq
0600: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0610: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0620: 20 52 49 50 45 4d 44 31 32 38 20 2d 64 61 74 61 RIPEMD128 -data
0630: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0640: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0650: 61 31 61 61 30 36 38 39 64 30 66 61 66 61 32 64 a1aa0689d0fafa2d
0660: 64 63 32 32 65 38 38 62 34 39 31 33 33 61 30 36 dc22e88b49133a06
0670: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0680: 48 61 73 68 5f 52 49 50 45 4d 44 31 32 38 2d 31 Hash_RIPEMD128-1
0690: 2e 37 20 7b 52 49 50 45 4d 44 31 32 38 7d 20 5c .7 {RIPEMD128} \
06a0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 ..-constraints R
06b0: 49 50 45 4d 44 31 32 38 20 5c 0a 09 2d 73 65 74 IPEMD128 \..-set
06c0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 41 42 up {set data "AB
06d0: 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 CDEFGHIJKLMNOPQR
06e0: 53 54 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 STUVWXYZabcdefgh
06f0: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
0700: 79 7a 30 31 32 33 34 35 36 37 38 39 22 7d 20 5c yz0123456789"} \
0710: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0720: 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 gest -digest RIP
0730: 45 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 61 EMD128 -data $da
0740: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0750: 61 63 74 20 2d 72 65 73 75 6c 74 20 64 31 65 39 act -result d1e9
0760: 35 39 65 62 31 37 39 63 39 31 31 66 61 65 61 34 59eb179c911faea4
0770: 36 32 34 63 36 30 63 35 63 37 30 32 0a 0a 74 63 624c60c5c702..tc
0780: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0790: 5f 52 49 50 45 4d 44 31 32 38 2d 31 2e 38 20 7b _RIPEMD128-1.8 {
07a0: 52 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 2d 63 RIPEMD128} \..-c
07b0: 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d onstraints RIPEM
07c0: 44 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 20 7b D128 \..-setup {
07d0: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
07e0: 20 72 65 70 65 61 74 20 22 31 32 33 34 35 36 37 repeat "1234567
07f0: 38 39 30 22 20 38 5d 7d 20 5c 0a 09 2d 62 6f 64 890" 8]} \..-bod
0800: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0810: 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 38 digest RIPEMD128
0820: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0830: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0840: 65 73 75 6c 74 20 33 66 34 35 65 66 31 39 34 37 esult 3f45ef1947
0850: 33 32 63 32 64 62 62 32 63 34 61 32 63 37 36 39 32c2dbb2c4a2c769
0860: 37 39 35 66 61 33 0a 0a 74 63 6c 74 65 73 74 3a 795fa3..tcltest:
0870: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0880: 44 31 32 38 2d 31 2e 39 20 7b 52 49 50 45 4d 44 D128-1.9 {RIPEMD
0890: 31 32 38 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 128} \..-constra
08a0: 69 6e 74 73 20 52 49 50 45 4d 44 31 32 38 20 5c ints RIPEMD128 \
08b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
08c0: 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 ta [string repea
08d0: 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d 20 t "a" 1000000]}
08e0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
08f0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 igest -digest RI
0900: 50 45 4d 44 31 32 38 20 2d 64 61 74 61 20 24 64 PEMD128 -data $d
0910: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0920: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 34 61 37 xact -result 4a7
0930: 66 35 37 32 33 66 39 35 34 65 62 61 31 32 31 36 f5723f954eba1216
0940: 63 39 64 38 66 36 33 32 30 34 33 31 66 0a 0a 74 c9d8f6320431f..t
0950: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0960: 68 5f 52 49 50 45 4d 44 31 32 38 2d 31 2e 31 30 h_RIPEMD128-1.10
0970: 20 7b 52 49 50 45 4d 44 31 32 38 7d 20 5c 0a 09 {RIPEMD128} \..
0980: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 -constraints RIP
0990: 45 4d 44 31 32 38 20 5c 0a 09 2d 73 65 74 75 70 EMD128 \..-setup
09a0: 20 7b 73 65 74 20 64 61 74 61 20 22 54 68 65 20 {set data "The
09b0: 71 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 quick brown fox
09c0: 6a 75 6d 70 73 20 6f 76 65 72 20 74 68 65 20 6c jumps over the l
09d0: 61 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f azy dog"} \..-bo
09e0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
09f0: 2d 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 32 -digest RIPEMD12
0a00: 38 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 8 -data $data} \
0a10: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0a20: 72 65 73 75 6c 74 20 33 66 61 39 62 35 37 66 30 result 3fa9b57f0
0a30: 35 33 63 30 35 33 66 62 65 32 37 33 35 62 32 33 53c053fbe2735b23
0a40: 38 30 64 62 35 39 36 0a 0a 23 20 43 6c 65 61 6e 80db596..# Clean
0a50: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
0a60: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
0a70: 6e 0a n.