Artifact
270ed19e2a2ec6dab7d05f2c8a7014c66ba54ffeda3cef3928a111c8d11341c5:
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 36 30 from "RIPEMD160
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: 36 30 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 60 [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 36 30 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 160] > -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 36 30 2d 31 2e 31 20 7b 52 49 50 45 EMD160-1.1 {RIPE
0160: 4d 44 31 36 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 MD160} \..-const
0170: 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 36 30 raints RIPEMD160
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 36 30 digest RIPEMD160
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 39 63 31 31 38 35 61 35 63 35 esult 9c1185a5c5
01f0: 65 39 66 63 35 34 36 31 32 38 30 38 39 37 37 65 e9fc54612808977e
0200: 65 38 66 35 34 38 62 32 32 35 38 64 33 31 0a 0a e8f548b2258d31..
0210: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
0220: 73 68 5f 52 49 50 45 4d 44 31 36 30 2d 31 2e 32 sh_RIPEMD160-1.2
0230: 20 7b 52 49 50 45 4d 44 31 36 30 7d 20 5c 0a 09 {RIPEMD160} \..
0240: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 -constraints RIP
0250: 45 4d 44 31 36 30 20 5c 0a 09 2d 73 65 74 75 70 EMD160 \..-setup
0260: 20 7b 73 65 74 20 64 61 74 61 20 22 61 22 7d 20 {set data "a"}
0270: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0280: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 igest -digest RI
0290: 50 45 4d 44 31 36 30 20 2d 64 61 74 61 20 24 64 PEMD160 -data $d
02a0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
02b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 30 62 64 xact -result 0bd
02c0: 63 39 64 32 64 32 35 36 62 33 65 65 39 64 61 61 c9d2d256b3ee9daa
02d0: 65 33 34 37 62 65 36 66 34 64 63 38 33 35 61 34 e347be6f4dc835a4
02e0: 36 37 66 66 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 67ffe..tcltest::
02f0: 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 test Hash_RIPEMD
0300: 31 36 30 2d 31 2e 33 20 7b 52 49 50 45 4d 44 31 160-1.3 {RIPEMD1
0310: 36 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 60} \..-constrai
0320: 6e 74 73 20 52 49 50 45 4d 44 31 36 30 20 5c 0a nts RIPEMD160 \.
0330: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0340: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
0350: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0360: 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 36 30 digest RIPEMD160
0370: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0380: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0390: 65 73 75 6c 74 20 38 65 62 32 30 38 66 37 65 30 esult 8eb208f7e0
03a0: 35 64 39 38 37 61 39 62 30 34 34 61 38 65 39 38 5d987a9b044a8e98
03b0: 63 36 62 30 38 37 66 31 35 61 30 62 66 63 0a 0a c6b087f15a0bfc..
03c0: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 tcltest::test Ha
03d0: 73 68 5f 52 49 50 45 4d 44 31 36 30 2d 31 2e 34 sh_RIPEMD160-1.4
03e0: 20 7b 52 49 50 45 4d 44 31 36 30 7d 20 5c 0a 09 {RIPEMD160} \..
03f0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 -constraints RIP
0400: 45 4d 44 31 36 30 20 5c 0a 09 2d 73 65 74 75 70 EMD160 \..-setup
0410: 20 7b 73 65 74 20 64 61 74 61 20 22 6d 65 73 73 {set data "mess
0420: 61 67 65 20 64 69 67 65 73 74 22 7d 20 5c 0a 09 age digest"} \..
0430: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0440: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
0450: 44 31 36 30 20 2d 64 61 74 61 20 24 64 61 74 61 D160 -data $data
0460: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0470: 74 20 2d 72 65 73 75 6c 74 20 35 64 30 36 38 39 t -result 5d0689
0480: 65 66 34 39 64 32 66 61 65 35 37 32 62 38 38 31 ef49d2fae572b881
0490: 62 31 32 33 61 38 35 66 66 61 32 31 35 39 35 66 b123a85ffa21595f
04a0: 33 36 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 36..tcltest::tes
04b0: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 31 36 30 t Hash_RIPEMD160
04c0: 2d 31 2e 35 20 7b 52 49 50 45 4d 44 31 36 30 7d -1.5 {RIPEMD160}
04d0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
04e0: 20 52 49 50 45 4d 44 31 36 30 20 5c 0a 09 2d 73 RIPEMD160 \..-s
04f0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0500: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
0510: 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 qrstuvwxyz"} \..
0520: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0530: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
0540: 44 31 36 30 20 2d 64 61 74 61 20 24 64 61 74 61 D160 -data $data
0550: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0560: 74 20 2d 72 65 73 75 6c 74 20 66 37 31 63 32 37 t -result f71c27
0570: 31 30 39 63 36 39 32 63 31 62 35 36 62 62 64 63 109c692c1b56bbdc
0580: 65 62 35 62 39 64 32 38 36 35 62 33 37 30 38 64 eb5b9d2865b3708d
0590: 62 63 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 bc..tcltest::tes
05a0: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 31 36 30 t Hash_RIPEMD160
05b0: 2d 31 2e 36 20 7b 52 49 50 45 4d 44 31 36 30 7d -1.6 {RIPEMD160}
05c0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
05d0: 20 52 49 50 45 4d 44 31 36 30 20 5c 0a 09 2d 73 RIPEMD160 \..-s
05e0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
05f0: 61 62 63 64 62 63 64 65 63 64 65 66 64 65 66 67 abcdbcdecdefdefg
0600: 65 66 67 68 66 67 68 69 67 68 69 6a 68 69 6a 6b efghfghighijhijk
0610: 69 6a 6b 6c 6a 6b 6c 6d 6b 6c 6d 6e 6c 6d 6e 6f ijkljklmklmnlmno
0620: 6d 6e 6f 70 6e 6f 70 71 22 7d 20 5c 0a 09 2d 62 mnopnopq"} \..-b
0630: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0640: 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d 44 31 -digest RIPEMD1
0650: 36 30 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 60 -data $data}
0660: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0670: 2d 72 65 73 75 6c 74 20 31 32 61 30 35 33 33 38 -result 12a05338
0680: 34 61 39 63 30 63 38 38 65 34 30 35 61 30 36 63 4a9c0c88e405a06c
0690: 32 37 64 63 66 34 39 61 64 61 36 32 65 62 32 62 27dcf49ada62eb2b
06a0: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
06b0: 48 61 73 68 5f 52 49 50 45 4d 44 31 36 30 2d 31 Hash_RIPEMD160-1
06c0: 2e 37 20 7b 52 49 50 45 4d 44 31 36 30 7d 20 5c .7 {RIPEMD160} \
06d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 ..-constraints R
06e0: 49 50 45 4d 44 31 36 30 20 5c 0a 09 2d 73 65 74 IPEMD160 \..-set
06f0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 41 42 up {set data "AB
0700: 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 CDEFGHIJKLMNOPQR
0710: 53 54 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 STUVWXYZabcdefgh
0720: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
0730: 79 7a 30 31 32 33 34 35 36 37 38 39 22 7d 20 5c yz0123456789"} \
0740: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0750: 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 gest -digest RIP
0760: 45 4d 44 31 36 30 20 2d 64 61 74 61 20 24 64 61 EMD160 -data $da
0770: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0780: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 30 65 32 act -result b0e2
0790: 30 62 36 65 33 31 31 36 36 34 30 32 38 36 65 64 0b6e3116640286ed
07a0: 33 61 38 37 61 35 37 31 33 30 37 39 62 32 31 66 3a87a5713079b21f
07b0: 35 31 38 39 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 5189..tcltest::t
07c0: 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 31 est Hash_RIPEMD1
07d0: 36 30 2d 31 2e 38 20 7b 52 49 50 45 4d 44 31 36 60-1.8 {RIPEMD16
07e0: 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 0} \..-constrain
07f0: 74 73 20 52 49 50 45 4d 44 31 36 30 20 5c 0a 09 ts RIPEMD160 \..
0800: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0810: 20 22 31 32 33 34 35 36 37 38 39 30 31 32 33 34 "12345678901234
0820: 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 5678901234567890
0830: 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
0840: 37 38 39 30 31 32 33 34 35 36 37 38 39 30 31 32 7890123456789012
0850: 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 3456789012345678
0860: 39 30 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 90"} \..-body {t
0870: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0880: 73 74 20 52 49 50 45 4d 44 31 36 30 20 2d 64 61 st RIPEMD160 -da
0890: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
08a0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
08b0: 74 20 39 62 37 35 32 65 34 35 35 37 33 64 34 62 t 9b752e45573d4b
08c0: 33 39 66 34 64 62 64 33 33 32 33 63 61 62 38 32 39f4dbd3323cab82
08d0: 62 66 36 33 33 32 36 62 66 62 0a 0a 74 63 6c 74 bf63326bfb..tclt
08e0: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 est::test Hash_R
08f0: 49 50 45 4d 44 31 36 30 2d 31 2e 39 20 7b 52 49 IPEMD160-1.9 {RI
0900: 50 45 4d 44 31 36 30 7d 20 5c 0a 09 2d 63 6f 6e PEMD160} \..-con
0910: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 straints RIPEMD1
0920: 36 30 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 60 \..-setup {se
0930: 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 20 72 t data [string r
0940: 65 70 65 61 74 20 22 61 22 20 31 30 30 30 30 30 epeat "a" 100000
0950: 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 0]} \..-body {tl
0960: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0970: 74 20 52 49 50 45 4d 44 31 36 30 20 2d 64 61 74 t RIPEMD160 -dat
0980: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0990: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
09a0: 20 35 32 37 38 33 32 34 33 63 31 36 39 37 62 64 52783243c1697bd
09b0: 62 65 31 36 64 33 37 66 39 37 66 36 38 66 30 38 be16d37f97f68f08
09c0: 33 32 35 64 63 31 35 32 38 0a 0a 74 63 6c 74 65 325dc1528..tclte
09d0: 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 49 st::test Hash_RI
09e0: 50 45 4d 44 31 36 30 2d 31 2e 31 30 20 7b 52 49 PEMD160-1.10 {RI
09f0: 50 45 4d 44 31 36 30 7d 20 5c 0a 09 2d 63 6f 6e PEMD160} \..-con
0a00: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 31 straints RIPEMD1
0a10: 36 30 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 60 \..-setup {se
0a20: 74 20 64 61 74 61 20 22 54 68 65 20 71 75 69 63 t data "The quic
0a30: 6b 20 62 72 6f 77 6e 20 66 6f 78 20 6a 75 6d 70 k brown fox jump
0a40: 73 20 6f 76 65 72 20 74 68 65 20 6c 61 7a 79 20 s over the lazy
0a50: 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b dog"} \..-body {
0a60: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
0a70: 65 73 74 20 52 49 50 45 4d 44 31 36 30 20 2d 64 est RIPEMD160 -d
0a80: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0a90: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0aa0: 6c 74 20 33 37 66 33 33 32 66 36 38 64 62 37 37 lt 37f332f68db77
0ab0: 62 64 39 64 37 65 64 64 34 39 36 39 35 37 31 61 bd9d7edd4969571a
0ac0: 64 36 37 31 63 66 39 64 64 33 62 0a 0a 23 20 43 d671cf9dd3b..# C
0ad0: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
0ae0: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
0af0: 65 74 75 72 6e 0a eturn.