Artifact
5c641c09c2511bc36c86ccf93dfa81b267451ffd16ed23835ccf4946accda387:
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 32 35 36 from "RIPEMD256
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 32 nstraint RIPEMD2
00e0: 35 36 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 56 [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: 32 35 36 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 256] > -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 32 35 36 2d 31 2e 31 20 7b 52 49 50 45 EMD256-1.1 {RIPE
0160: 4d 44 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 MD256} \..-const
0170: 72 61 69 6e 74 73 20 52 49 50 45 4d 44 32 35 36 raints RIPEMD256
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 32 35 36 digest RIPEMD256
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 30 32 62 61 34 63 34 65 35 66 esult 02ba4c4e5f
01f0: 38 65 63 64 31 38 37 37 66 63 35 32 64 36 34 64 8ecd1877fc52d64d
0200: 33 30 65 33 37 61 32 64 39 37 37 34 66 62 31 65 30e37a2d9774fb1e
0210: 35 64 30 32 36 33 38 30 61 65 30 31 36 38 65 33 5d026380ae0168e3
0220: 63 35 35 32 32 64 0a 0a 74 63 6c 74 65 73 74 3a c5522d..tcltest:
0230: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0240: 44 32 35 36 2d 31 2e 32 20 7b 52 49 50 45 4d 44 D256-1.2 {RIPEMD
0250: 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 256} \..-constra
0260: 69 6e 74 73 20 52 49 50 45 4d 44 32 35 36 20 5c ints RIPEMD256 \
0270: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0280: 74 61 20 22 61 22 7d 20 5c 0a 09 2d 62 6f 64 79 ta "a"} \..-body
0290: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
02a0: 69 67 65 73 74 20 52 49 50 45 4d 44 32 35 36 20 igest RIPEMD256
02b0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
02c0: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
02d0: 73 75 6c 74 20 66 39 33 33 33 65 34 35 64 38 35 sult f9333e45d85
02e0: 37 66 35 64 39 30 61 39 31 62 61 62 37 30 61 31 7f5d90a91bab70a1
02f0: 65 62 61 30 63 66 62 31 62 65 34 62 30 37 38 33 eba0cfb1be4b0783
0300: 63 39 61 63 66 63 64 38 38 33 61 39 31 33 34 36 c9acfcd883a91346
0310: 39 32 39 32 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 92925..tcltest::
0320: 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d 44 test Hash_RIPEMD
0330: 32 35 36 2d 31 2e 33 20 7b 52 49 50 45 4d 44 32 256-1.3 {RIPEMD2
0340: 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 56} \..-constrai
0350: 6e 74 73 20 52 49 50 45 4d 44 32 35 36 20 5c 0a nts RIPEMD256 \.
0360: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0370: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
0380: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0390: 64 69 67 65 73 74 20 52 49 50 45 4d 44 32 35 36 digest RIPEMD256
03a0: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
03b0: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
03c0: 65 73 75 6c 74 20 61 66 62 64 36 65 32 32 38 62 esult afbd6e228b
03d0: 39 64 38 63 62 62 63 65 66 35 63 61 32 64 30 33 9d8cbbcef5ca2d03
03e0: 65 36 64 62 61 31 30 61 63 30 62 63 37 64 63 62 e6dba10ac0bc7dcb
03f0: 65 34 36 38 30 65 31 65 34 32 64 32 65 39 37 35 e4680e1e42d2e975
0400: 34 35 39 62 36 35 0a 0a 74 63 6c 74 65 73 74 3a 459b65..tcltest:
0410: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0420: 44 32 35 36 2d 31 2e 34 20 7b 52 49 50 45 4d 44 D256-1.4 {RIPEMD
0430: 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 256} \..-constra
0440: 69 6e 74 73 20 52 49 50 45 4d 44 32 35 36 20 5c ints RIPEMD256 \
0450: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0460: 74 61 20 22 6d 65 73 73 61 67 65 20 64 69 67 65 ta "message dige
0470: 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 st"} \..-body {t
0480: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0490: 73 74 20 52 49 50 45 4d 44 32 35 36 20 2d 64 61 st RIPEMD256 -da
04a0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
04b0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
04c0: 74 20 38 37 65 39 37 31 37 35 39 61 31 63 65 34 t 87e971759a1ce4
04d0: 37 61 35 31 34 64 35 63 39 31 34 63 33 39 32 63 7a514d5c914c392c
04e0: 39 30 31 38 63 37 63 34 36 62 63 31 34 34 36 35 9018c7c46bc14465
04f0: 35 35 34 61 66 63 64 66 35 34 61 35 30 37 30 63 554afcdf54a5070c
0500: 30 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 0e..tcltest::tes
0510: 74 20 48 61 73 68 5f 52 49 50 45 4d 44 32 35 36 t Hash_RIPEMD256
0520: 2d 31 2e 35 20 7b 52 49 50 45 4d 44 32 35 36 7d -1.5 {RIPEMD256}
0530: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0540: 20 52 49 50 45 4d 44 32 35 36 20 5c 0a 09 2d 73 RIPEMD256 \..-s
0550: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0560: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
0570: 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 qrstuvwxyz"} \..
0580: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0590: 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 45 4d st -digest RIPEM
05a0: 44 32 35 36 20 2d 64 61 74 61 20 24 64 61 74 61 D256 -data $data
05b0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
05c0: 74 20 2d 72 65 73 75 6c 74 20 36 34 39 64 33 30 t -result 649d30
05d0: 33 34 37 35 31 65 61 32 31 36 37 37 36 62 66 39 34751ea216776bf9
05e0: 61 31 38 61 63 63 38 31 62 63 37 38 39 36 31 31 a18acc81bc789611
05f0: 38 61 35 31 39 37 39 36 38 37 38 32 64 64 31 66 8a5197968782dd1f
0600: 64 39 37 64 38 64 35 31 33 33 0a 0a 74 63 6c 74 d97d8d5133..tclt
0610: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 52 est::test Hash_R
0620: 49 50 45 4d 44 32 35 36 2d 31 2e 36 20 7b 52 49 IPEMD256-1.6 {RI
0630: 50 45 4d 44 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e PEMD256} \..-con
0640: 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d 44 32 straints RIPEMD2
0650: 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 56 \..-setup {se
0660: 74 20 64 61 74 61 20 22 61 62 63 64 62 63 64 65 t data "abcdbcde
0670: 63 64 65 66 64 65 66 67 65 66 67 68 66 67 68 69 cdefdefgefghfghi
0680: 67 68 69 6a 68 69 6a 6b 69 6a 6b 6c 6a 6b 6c 6d ghijhijkijkljklm
0690: 6b 6c 6d 6e 6c 6d 6e 6f 6d 6e 6f 70 6e 6f 70 71 klmnlmnomnopnopq
06a0: 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 "} \..-body {tls
06b0: 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 ::digest -digest
06c0: 20 52 49 50 45 4d 44 32 35 36 20 2d 64 61 74 61 RIPEMD256 -data
06d0: 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 $data} \..-matc
06e0: 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 h exact -result
06f0: 33 38 34 33 30 34 35 35 38 33 61 61 63 36 63 38 3843045583aac6c8
0700: 63 38 64 39 31 32 38 35 37 33 65 37 61 39 38 30 c8d9128573e7a980
0710: 39 61 66 62 32 61 30 66 33 34 63 63 63 33 36 65 9afb2a0f34ccc36e
0720: 61 39 65 37 32 66 31 36 66 36 33 36 38 65 33 66 a9e72f16f6368e3f
0730: 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 ..tcltest::test
0740: 48 61 73 68 5f 52 49 50 45 4d 44 32 35 36 2d 31 Hash_RIPEMD256-1
0750: 2e 37 20 7b 52 49 50 45 4d 44 32 35 36 7d 20 5c .7 {RIPEMD256} \
0760: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 ..-constraints R
0770: 49 50 45 4d 44 32 35 36 20 5c 0a 09 2d 73 65 74 IPEMD256 \..-set
0780: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 41 42 up {set data "AB
0790: 43 44 45 46 47 48 49 4a 4b 4c 4d 4e 4f 50 51 52 CDEFGHIJKLMNOPQR
07a0: 53 54 55 56 57 58 59 5a 61 62 63 64 65 66 67 68 STUVWXYZabcdefgh
07b0: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
07c0: 79 7a 30 31 32 33 34 35 36 37 38 39 22 7d 20 5c yz0123456789"} \
07d0: 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 ..-body {tls::di
07e0: 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 50 gest -digest RIP
07f0: 45 4d 44 32 35 36 20 2d 64 61 74 61 20 24 64 61 EMD256 -data $da
0800: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0810: 61 63 74 20 2d 72 65 73 75 6c 74 20 35 37 34 30 act -result 5740
0820: 61 34 30 38 61 63 31 36 62 37 32 30 62 38 34 34 a408ac16b720b844
0830: 32 34 61 65 39 33 31 63 62 62 31 66 65 33 36 33 24ae931cbb1fe363
0840: 64 31 64 30 62 66 34 30 31 37 66 31 61 38 39 66 d1d0bf4017f1a89f
0850: 37 65 61 36 64 65 37 37 61 30 62 38 0a 0a 74 63 7ea6de77a0b8..tc
0860: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0870: 5f 52 49 50 45 4d 44 32 35 36 2d 31 2e 38 20 7b _RIPEMD256-1.8 {
0880: 52 49 50 45 4d 44 32 35 36 7d 20 5c 0a 09 2d 63 RIPEMD256} \..-c
0890: 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 45 4d onstraints RIPEM
08a0: 44 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 20 7b D256 \..-setup {
08b0: 73 65 74 20 64 61 74 61 20 5b 73 74 72 69 6e 67 set data [string
08c0: 20 72 65 70 65 61 74 20 22 31 32 33 34 35 36 37 repeat "1234567
08d0: 38 39 30 22 20 38 5d 7d 20 5c 0a 09 2d 62 6f 64 890" 8]} \..-bod
08e0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
08f0: 64 69 67 65 73 74 20 52 49 50 45 4d 44 32 35 36 digest RIPEMD256
0900: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0910: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0920: 65 73 75 6c 74 20 30 36 66 64 63 63 37 61 34 30 esult 06fdcc7a40
0930: 39 35 34 38 61 61 66 39 31 33 36 38 63 30 36 61 9548aaf91368c06a
0940: 36 32 37 35 62 35 35 33 65 33 66 30 39 39 62 66 6275b553e3f099bf
0950: 30 65 61 34 65 64 66 64 36 37 37 38 64 66 38 39 0ea4edfd6778df89
0960: 61 38 39 30 64 64 0a 0a 74 63 6c 74 65 73 74 3a a890dd..tcltest:
0970: 3a 74 65 73 74 20 48 61 73 68 5f 52 49 50 45 4d :test Hash_RIPEM
0980: 44 32 35 36 2d 31 2e 39 20 7b 52 49 50 45 4d 44 D256-1.9 {RIPEMD
0990: 32 35 36 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 256} \..-constra
09a0: 69 6e 74 73 20 52 49 50 45 4d 44 32 35 36 20 5c ints RIPEMD256 \
09b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
09c0: 74 61 20 5b 73 74 72 69 6e 67 20 72 65 70 65 61 ta [string repea
09d0: 74 20 22 61 22 20 31 30 30 30 30 30 30 5d 7d 20 t "a" 1000000]}
09e0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
09f0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 52 49 igest -digest RI
0a00: 50 45 4d 44 32 35 36 20 2d 64 61 74 61 20 24 64 PEMD256 -data $d
0a10: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
0a20: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 61 63 39 xact -result ac9
0a30: 35 33 37 34 34 65 31 30 65 33 31 35 31 34 63 31 53744e10e31514c1
0a40: 35 30 64 34 64 38 64 37 62 36 37 37 33 34 32 65 50d4d8d7b677342e
0a50: 33 33 33 39 39 37 38 38 32 39 36 65 34 33 61 65 33399788296e43ae
0a60: 34 38 35 30 63 65 34 66 39 37 39 37 38 0a 0a 74 4850ce4f97978..t
0a70: 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 cltest::test Has
0a80: 68 5f 52 49 50 45 4d 44 32 35 36 2d 31 2e 31 30 h_RIPEMD256-1.10
0a90: 20 7b 52 49 50 45 4d 44 32 35 36 7d 20 5c 0a 09 {RIPEMD256} \..
0aa0: 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 52 49 50 -constraints RIP
0ab0: 45 4d 44 32 35 36 20 5c 0a 09 2d 73 65 74 75 70 EMD256 \..-setup
0ac0: 20 7b 73 65 74 20 64 61 74 61 20 22 54 68 65 20 {set data "The
0ad0: 71 75 69 63 6b 20 62 72 6f 77 6e 20 66 6f 78 20 quick brown fox
0ae0: 6a 75 6d 70 73 20 6f 76 65 72 20 74 68 65 20 6c jumps over the l
0af0: 61 7a 79 20 64 6f 67 22 7d 20 5c 0a 09 2d 62 6f azy dog"} \..-bo
0b00: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0b10: 2d 64 69 67 65 73 74 20 52 49 50 45 4d 44 32 35 -digest RIPEMD25
0b20: 36 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 6 -data $data} \
0b30: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
0b40: 72 65 73 75 6c 74 20 63 33 62 30 63 32 66 37 36 result c3b0c2f76
0b50: 34 61 63 36 64 35 37 36 61 36 63 34 33 30 66 62 4ac6d576a6c430fb
0b60: 36 31 61 36 66 32 32 35 35 62 34 66 61 38 33 33 61a6f2255b4fa833
0b70: 65 30 39 34 62 31 62 61 38 63 31 65 32 39 62 36 e094b1ba8c1e29b6
0b80: 33 35 33 30 33 36 66 0a 0a 23 20 43 6c 65 61 6e 353036f..# Clean
0b90: 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c up.::tcltest::cl
0ba0: 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 72 eanupTests.retur
0bb0: 6e 0a n.