Artifact
317a9f765a8f83d7da2c565b6c1223a3e6e6de91bdb605f514abd76d48ad7837:
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 33 32 30 from "RIPEMD320
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 33 nstraint RIPEMD3
00e0: 32 30 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 20 [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: 33 32 30 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 320] > -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 33 32 30 2d 31 2e 31 20 7b 52 49 50 45 EMD320-1.1 {RIPE
0160: 4d 44 33 32 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 MD320} \..-const
0170: 72 61 69 6e 74 73 20 52 49 50 45 4d 44 33 32 30 raints RIPEMD320
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 33 32 30 digest RIPEMD320
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 32 32 64 36 35 64 35 36 36 31 esult 22d65d5661
01f0: 35 33 36 63 64 63 37 35 63 31 66 64 66 35 63 36 536cdc75c1fdf5c6
0200: 64 65 37 62 34 31 62 39 66 32 37 33 32 35 65 62 de7b41b9f27325eb
0210: 63 36 31 65 38 35 35 37 31 37 37 64 37 30 35 61 c61e8557177d705a
0220: 30 65 63 38 38 30 31 35 31 63 33 61 33 32 61 30 0ec880151c3a32a0
0230: 30 38 39 39 62 38 0a 0a 74 63 6c 74 65 73 74 3a 0899b8..tcltest:
0240: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0250: 44 33 32 30 2d 31 2e 32 20 7b 52 49 50 45 4d 44 D320-1.2 {RIPEMD
0260: 33 32 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 320} \..-constra
0270: 69 6e 74 73 20 52 49 50 45 4d 44 33 32 30 20 5c ints RIPEMD320 \
0280: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0290: 74 61 20 22 61 22 7d 20 5c 0a 09 2d 62 6f 64 79 ta "a"} \..-body
02a0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
02b0: 69 67 65 73 74 20 52 49 50 45 4d 44 33 32 30 20 igest RIPEMD320
02c0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
02d0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
02e0: 73 75 6c 74 20 63 65 37 38 38 35 30 36 33 38 66 sult ce78850638f
02f0: 39 32 36 35 38 61 35 61 35 38 35 30 39 37 35 37 92658a5a58509757
0300: 39 39 32 36 64 64 61 36 36 37 61 35 37 31 36 35 9926dda667a57165
0310: 36 32 63 66 63 66 36 66 62 65 37 37 66 36 33 35 62cfcf6fbe77f635
0320: 34 32 66 39 39 62 30 34 37 30 35 64 36 39 37 30 42f99b04705d6970
0330: 64 66 66 35 64 0a 0a 74 63 6c 74 65 73 74 3a 3a dff5d..tcltest::
0340: 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 test Hash_RIPEMD
0350: 33 32 30 2d 31 2e 33 20 7b 52 49 50 45 4d 44 33 320-1.3 {RIPEMD3
0360: 32 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 20} \..-constrai
0370: 6e 74 73 20 52 49 50 45 4d 44 33 32 30 20 5c 0a nts RIPEMD320 \.
0380: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0390: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
03a0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
03b0: 64 69 67 65 73 74 20 52 49 50 45 4d 44 33 32 30 digest RIPEMD320
03c0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
03d0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
03e0: 65 73 75 6c 74 20 64 65 34 63 30 31 62 33 30 35 esult de4c01b305
03f0: 34 66 38 39 33 30 61 37 39 64 30 39 61 65 37 33 4f8930a79d09ae73
0400: 38 65 39 32 33 30 31 65 35 61 31 37 30 38 35 62 8e92301e5a17085b
0410: 65 66 66 64 63 31 62 38 64 31 31 36 37 31 33 65 effdc1b8d116713e
0420: 37 34 66 38 32 66 61 39 34 32 64 36 34 63 64 62 74f82fa942d64cdb
0430: 63 34 36 38 32 64 0a 0a 74 63 6c 74 65 73 74 3a c4682d..tcltest:
0440: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0450: 44 33 32 30 2d 31 2e 34 20 7b 52 49 50 45 4d 44 D320-1.4 {RIPEMD
0460: 33 32 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 320} \..-constra
0470: 69 6e 74 73 20 52 49 50 45 4d 44 33 32 30 20 5c ints RIPEMD320 \
0480: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0490: 74 61 20 22 6d 65 73 73 61 67 65 20 64 69 67 65 ta "message dige
04a0: 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 st"} \..-body {t
04b0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
04c0: 73 74 20 52 49 50 45 4d 44 33 32 30 20 2d 64 61 st RIPEMD320 -da
04d0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
04e0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
04f0: 74 20 33 61 38 65 32 38 35 30 32 65 64 34 35 64 t 3a8e28502ed45d
0500: 34 32 32 66 36 38 38 34 34 66 39 64 64 33 31 36 422f68844f9dd316
0510: 65 37 62 39 38 35 33 33 66 61 33 66 32 61 39 31 e7b98533fa3f2a91
0520: 64 32 39 66 38 34 64 34 32 35 63 38 38 64 36 62 d29f84d425c88d6b
0530: 34 65 66 66 37 32 37 64 66 36 36 61 37 63 30 31 4eff727df66a7c01
0540: 39 37 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 97..tcltest::tes
0550: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 33 32 30 t Hash_RIPEMD320
0560: 2d 31 2e 35 20 7b 52 49 50 45 4d 44 33 32 30 7d -1.5 {RIPEMD320}
0570: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0580: 20 52 49 50 45 4d 44 33 32 30 20 5c 0a 09 2d 73 RIPEMD320 \..-s
0590: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
05a0: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
05b0: 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 qrstuvwxyz"} \..
05c0: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
05d0: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
05e0: 44 33 32 30 20 2d 64 61 74 61 20 24 64 61 74 61 D320 -data $data
05f0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
0600: 74 20 2d 72 65 73 75 6c 74 20 63 61 62 64 62 31 t -result cabdb1
0610: 38 31 30 62 39 32 34 37 30 61 32 30 39 33 61 61 810b92470a2093aa
0620: 36 62 63 65 30 35 39 35 32 63 32 38 33 34 38 63 6bce05952c28348c
0630: 66 34 33 66 66 36 30 38 34 31 39 37 35 31 36 36 f43ff60841975166
0640: 62 62 34 30 65 64 32 33 34 30 30 34 62 38 38 32 bb40ed234004b882
0650: 34 34 36 33 65 36 62 30 30 39 0a 0a 74 63 6c 74 4463e6b009..tclt
0660: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 est::test Hash_R
0670: 49 50 45 4d 44 33 32 30 2d 31 2e 36 20 7b 52 49 IPEMD320-1.6 {RI
0680: 50 45 4d 44 33 32 30 7d 20 5c 0a 09 2d 63 6f 6e PEMD320} \..-con
0690: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 33 straints RIPEMD3
06a0: 32 30 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 20 \..-setup {se
06b0: 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 65 t data "abcdbcde
06c0: 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 69 cdefdefgefghfghi
06d0: 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d ghijhijkijkljklm
06e0: 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 klmnlmnomnopnopq
06f0: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
0700: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
0710: 20 52 49 50 45 4d 44 33 32 30 20 2d 64 61 74 61 RIPEMD320 -data
0720: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
0730: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
0740: 64 30 33 34 61 37 39 35 30 63 66 37 32 32 30 32 d034a7950cf72202
0750: 31 62 61 34 62 38 34 64 66 37 36 39 61 35 64 65 1ba4b84df769a5de
0760: 32 30 36 30 65 32 35 39 64 66 34 63 39 62 62 34 2060e259df4c9bb4
0770: 61 34 32 36 38 63 30 65 39 33 35 62 62 63 37 34 a4268c0e935bbc74
0780: 37 30 61 39 36 39 63 39 64 30 37 32 61 31 61 63 70a969c9d072a1ac
0790: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
07a0: 48 61 73 68 5f 52 49 50 45 4d 44 33 32 30 2d 31 Hash_RIPEMD320-1
07b0: 2e 37 20 7b 52 49 50 45 4d 44 33 32 30 7d 20 5c .7 {RIPEMD320} \
07c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 ..-constraints R
07d0: 49 50 45 4d 44 33 32 30 20 5c 0a 09 2d 73 65 74 IPEMD320 \..-set
07e0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 41 42 up {set data "AB
07f0: 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 CDEFGHIJKLMNOPQR
0800: 53 54 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 STUVWXYZabcdefgh
0810: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
0820: 79 7a 30 31 32 33 34 35 36 37 38 39 22 7d 20 5c yz0123456789"} \
0830: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
0840: 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 gest -digest RIP
0850: 45 4d 44 33 32 30 20 2d 64 61 74 61 20 24 64 61 EMD320 -data $da
0860: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0870: 61 63 74 20 2d 72 65 73 75 6c 74 20 65 64 35 34 act -result ed54
0880: 34 39 34 30 63 38 36 64 36 37 66 32 35 30 64 32 4940c86d67f250d2
0890: 33 32 63 33 30 62 37 62 33 65 35 37 37 30 65 30 32c30b7b3e5770e0
08a0: 63 36 30 63 38 63 62 39 61 34 63 61 66 65 33 62 c60c8cb9a4cafe3b
08b0: 31 31 33 38 38 61 66 39 39 32 30 65 31 62 39 39 11388af9920e1b99
08c0: 32 33 30 62 38 34 33 63 38 36 61 34 0a 0a 74 63 230b843c86a4..tc
08d0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
08e0: 5f 52 49 50 45 4d 44 33 32 30 2d 31 2e 38 20 7b _RIPEMD320-1.8 {
08f0: 52 49 50 45 4d 44 33 32 30 7d 20 5c 0a 09 2d 63 RIPEMD320} \..-c
0900: 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d onstraints RIPEM
0910: 44 33 32 30 20 5c 0a 09 2d 73 65 74 75 70 20 7b D320 \..-setup {
0920: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
0930: 20 72 65 70 65 61 74 20 22 31 32 33 34 35 36 37 repeat "1234567
0940: 38 39 30 22 20 38 5d 7d 20 5c 0a 09 2d 62 6f 64 890" 8]} \..-bod
0950: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0960: 64 69 67 65 73 74 20 52 49 50 45 4d 44 33 32 30 digest RIPEMD320
0970: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0980: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0990: 65 73 75 6c 74 20 35 35 37 38 38 38 61 66 35 66 esult 557888af5f
09a0: 36 64 38 65 64 36 32 61 62 36 36 39 34 35 63 36 6d8ed62ab66945c6
09b0: 64 32 61 30 61 34 37 65 63 64 35 33 34 31 65 39 d2a0a47ecd5341e9
09c0: 31 35 65 62 38 66 65 61 31 64 30 35 32 34 39 35 15eb8fea1d052495
09d0: 35 66 38 32 35 64 63 37 31 37 65 34 61 30 30 38 5f825dc717e4a008
09e0: 61 62 32 64 34 32 0a 0a 74 63 6c 74 65 73 74 3a ab2d42..tcltest:
09f0: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0a00: 44 33 32 30 2d 31 2e 39 20 7b 52 49 50 45 4d 44 D320-1.9 {RIPEMD
0a10: 33 32 30 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 320} \..-constra
0a20: 69 6e 74 73 20 52 49 50 45 4d 44 33 32 30 20 5c ints RIPEMD320 \
0a30: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0a40: 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 ta [string repea
0a50: 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d 20 t "a" 1000000]}
0a60: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
0a70: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 igest -digest RI
0a80: 50 45 4d 44 33 32 30 20 2d 64 61 74 61 20 24 64 PEMD320 -data $d
0a90: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0aa0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 64 65 xact -result bde
0ab0: 65 33 37 66 34 33 37 31 65 32 30 36 34 36 62 38 e37f4371e20646b8
0ac0: 62 30 64 38 36 32 64 64 61 31 36 32 39 32 61 65 b0d862dda16292ae
0ad0: 33 36 66 34 30 39 36 35 65 38 63 38 35 30 39 65 36f40965e8c8509e
0ae0: 36 33 64 31 64 62 64 64 65 63 63 35 30 33 65 32 63d1dbddecc503e2
0af0: 62 36 33 65 62 39 32 34 35 62 62 36 36 0a 0a 74 b63eb9245bb66..t
0b00: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0b10: 68 5f 52 49 50 45 4d 44 33 32 30 2d 31 2e 31 30 h_RIPEMD320-1.10
0b20: 20 7b 52 49 50 45 4d 44 33 32 30 7d 20 5c 0a 09 {RIPEMD320} \..
0b30: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 -constraints RIP
0b40: 45 4d 44 33 32 30 20 5c 0a 09 2d 73 65 74 75 70 EMD320 \..-setup
0b50: 20 7b 73 65 74 20 64 61 74 61 20 22 54 68 65 20 {set data "The
0b60: 71 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 quick brown fox
0b70: 6a 75 6d 70 73 20 6f 76 65 72 20 74 68 65 20 6c jumps over the l
0b80: 61 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f azy dog"} \..-bo
0b90: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0ba0: 2d 64 69 67 65 73 74 20 52 49 50 45 4d 44 33 32 -digest RIPEMD32
0bb0: 30 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0 -data $data} \
0bc0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0bd0: 72 65 73 75 6c 74 20 65 37 36 36 30 65 36 37 35 result e7660e675
0be0: 34 39 34 33 35 63 36 32 31 34 31 65 35 31 63 39 49435c62141e51c9
0bf0: 61 62 31 64 63 63 33 62 31 65 65 39 66 36 35 63 ab1dcc3b1ee9f65c
0c00: 30 62 33 65 35 36 31 61 65 38 66 35 38 63 35 64 0b3e561ae8f58c5d
0c10: 62 61 33 64 32 31 39 39 37 37 38 31 63 64 31 63 ba3d21997781cd1c
0c20: 63 36 66 62 63 33 34 0a 0a 23 20 43 6c 65 61 6e c6fbc34..# Clean
0c30: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
0c40: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
0c50: 6e 0a n.