Artifact
085626bf5601b5f39bfebfa1b5ca8a878f7ae4c8b4a34724161c53e63e58c9da:
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 57 48 49 52 4c 50 4f 4f 4c from "WHIRLPOOL
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 57 48 49 52 4c 50 4f nstraint WHIRLPO
00e0: 4f 4c 20 5b 65 78 70 72 20 7b 5b 6c 73 65 61 72 OL [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 57 48 49 52 4c 50 :digests] WHIRLP
0110: 4f 4f 4c 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 OOL] > -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 57 48 49 t::test Hash_WHI
0150: 52 4c 50 4f 4f 4c 2d 31 2e 31 20 7b 57 48 49 52 RLPOOL-1.1 {WHIR
0160: 4c 50 4f 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 LPOOL} \..-const
0170: 72 61 69 6e 74 73 20 57 48 49 52 4c 50 4f 4f 4c raints WHIRLPOOL
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 57 48 49 52 4c 50 4f 4f 4c digest WHIRLPOOL
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 31 39 66 61 36 31 64 37 35 35 esult 19fa61d755
01f0: 32 32 61 34 36 36 39 62 34 34 65 33 39 63 31 64 22a4669b44e39c1d
0200: 32 65 31 37 32 36 63 35 33 30 32 33 32 31 33 30 2e1726c530232130
0210: 64 34 30 37 66 38 39 61 66 65 65 30 39 36 34 39 d407f89afee09649
0220: 39 37 66 37 61 37 33 65 38 33 62 65 36 39 38 62 97f7a73e83be698b
0230: 32 38 38 66 65 62 63 66 38 38 65 33 65 30 33 63 288febcf88e3e03c
0240: 34 66 30 37 35 37 65 61 38 39 36 34 65 35 39 62 4f0757ea8964e59b
0250: 36 33 64 39 33 37 30 38 62 31 33 38 63 63 34 32 63d93708b138cc42
0260: 61 36 36 65 62 33 0a 0a 74 63 6c 74 65 73 74 3a a66eb3..tcltest:
0270: 3a 74 65 73 74 20 48 61 73 68 5f 57 48 49 52 4c :test Hash_WHIRL
0280: 50 4f 4f 4c 2d 31 2e 32 20 7b 57 48 49 52 4c 50 POOL-1.2 {WHIRLP
0290: 4f 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 OOL} \..-constra
02a0: 69 6e 74 73 20 57 48 49 52 4c 50 4f 4f 4c 20 5c ints WHIRLPOOL \
02b0: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
02c0: 74 61 20 22 61 22 7d 20 5c 0a 09 2d 62 6f 64 79 ta "a"} \..-body
02d0: 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 {tls::digest -d
02e0: 69 67 65 73 74 20 57 48 49 52 4c 50 4f 4f 4c 20 igest WHIRLPOOL
02f0: 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 -data $data} \..
0300: 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 -match exact -re
0310: 73 75 6c 74 20 38 61 63 61 32 36 30 32 37 39 32 sult 8aca2602792
0320: 61 65 63 36 66 31 31 61 36 37 32 30 36 35 33 31 aec6f11a67206531
0330: 66 62 37 64 37 66 30 64 66 66 35 39 34 31 33 31 fb7d7f0dff594131
0340: 34 35 65 36 39 37 33 63 34 35 30 30 31 64 30 30 45e6973c45001d00
0350: 38 37 62 34 32 64 31 31 62 63 36 34 35 34 31 33 87b42d11bc645413
0360: 61 65 66 66 36 33 61 34 32 33 39 31 61 33 39 31 aeff63a42391a391
0370: 34 35 61 35 39 31 61 39 32 32 30 30 64 35 36 30 45a591a92200d560
0380: 31 39 35 65 35 33 62 34 37 38 35 38 34 66 64 61 195e53b478584fda
0390: 65 32 33 31 61 0a 0a 74 63 6c 74 65 73 74 3a 3a e231a..tcltest::
03a0: 74 65 73 74 20 48 61 73 68 5f 57 48 49 52 4c 50 test Hash_WHIRLP
03b0: 4f 4f 4c 2d 31 2e 33 20 7b 57 48 49 52 4c 50 4f OOL-1.3 {WHIRLPO
03c0: 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 OL} \..-constrai
03d0: 6e 74 73 20 57 48 49 52 4c 50 4f 4f 4c 20 5c 0a nts WHIRLPOOL \.
03e0: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
03f0: 61 20 22 61 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 a "abc"} \..-bod
0400: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0410: 64 69 67 65 73 74 20 57 48 49 52 4c 50 4f 4f 4c digest WHIRLPOOL
0420: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0430: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0440: 65 73 75 6c 74 20 34 65 32 34 34 38 61 34 63 36 esult 4e2448a4c6
0450: 66 34 38 36 62 62 31 36 62 36 35 36 32 63 37 33 f486bb16b6562c73
0460: 62 34 30 32 30 62 66 33 30 34 33 65 33 61 37 33 b4020bf3043e3a73
0470: 31 62 63 65 37 32 31 61 65 31 62 33 30 33 64 39 1bce721ae1b303d9
0480: 37 65 36 64 34 63 37 31 38 31 65 65 62 64 62 36 7e6d4c7181eebdb6
0490: 63 35 37 65 32 37 37 64 30 65 33 34 39 35 37 31 c57e277d0e349571
04a0: 31 34 63 62 64 36 63 37 39 37 66 63 39 64 39 35 14cbd6c797fc9d95
04b0: 64 38 62 35 38 32 64 32 32 35 32 39 32 30 37 36 d8b582d225292076
04c0: 64 34 65 65 66 35 0a 0a 74 63 6c 74 65 73 74 3a d4eef5..tcltest:
04d0: 3a 74 65 73 74 20 48 61 73 68 5f 57 48 49 52 4c :test Hash_WHIRL
04e0: 50 4f 4f 4c 2d 31 2e 34 20 7b 57 48 49 52 4c 50 POOL-1.4 {WHIRLP
04f0: 4f 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 OOL} \..-constra
0500: 69 6e 74 73 20 57 48 49 52 4c 50 4f 4f 4c 20 5c ints WHIRLPOOL \
0510: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0520: 74 61 20 22 6d 65 73 73 61 67 65 20 64 69 67 65 ta "message dige
0530: 73 74 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 st"} \..-body {t
0540: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0550: 73 74 20 57 48 49 52 4c 50 4f 4f 4c 20 2d 64 61 st WHIRLPOOL -da
0560: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0570: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0580: 74 20 33 37 38 63 38 34 61 34 31 32 36 65 32 64 t 378c84a4126e2d
0590: 63 36 65 35 36 64 63 63 37 34 35 38 33 37 37 61 c6e56dcc7458377a
05a0: 61 63 38 33 38 64 30 30 30 33 32 32 33 30 66 35 ac838d00032230f5
05b0: 33 63 65 31 66 35 37 30 30 63 30 66 66 62 34 64 3ce1f5700c0ffb4d
05c0: 33 62 38 34 32 31 35 35 37 36 35 39 65 66 35 35 3b8421557659ef55
05d0: 63 31 30 36 62 34 62 35 32 61 63 35 61 34 61 61 c106b4b52ac5a4aa
05e0: 61 36 39 32 65 64 39 32 30 30 35 32 38 33 38 66 a692ed920052838f
05f0: 33 33 36 32 65 38 36 64 62 64 33 37 61 38 39 30 3362e86dbd37a890
0600: 33 65 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 3e..tcltest::tes
0610: 74 20 48 61 73 68 5f 57 48 49 52 4c 50 4f 4f 4c t Hash_WHIRLPOOL
0620: 2d 31 2e 35 20 7b 57 48 49 52 4c 50 4f 4f 4c 7d -1.5 {WHIRLPOOL}
0630: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0640: 20 57 48 49 52 4c 50 4f 4f 4c 20 5c 0a 09 2d 73 WHIRLPOOL \..-s
0650: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0660: 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 abcdefghijklmnop
0670: 71 72 73 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 qrstuvwxyz"} \..
0680: 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 -body {tls::dige
0690: 73 74 20 2d 64 69 67 65 73 74 20 57 48 49 52 4c st -digest WHIRL
06a0: 50 4f 4f 4c 20 2d 64 61 74 61 20 24 64 61 74 61 POOL -data $data
06b0: 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 } \..-match exac
06c0: 74 20 2d 72 65 73 75 6c 74 20 66 31 64 37 35 34 t -result f1d754
06d0: 36 36 32 36 33 36 66 66 65 39 32 63 38 32 65 62 662636ffe92c82eb
06e0: 62 39 32 31 32 61 34 38 34 61 38 64 33 38 36 33 b9212a484a8d3863
06f0: 31 65 61 64 34 32 33 38 66 35 34 34 32 65 65 31 1ead4238f5442ee1
0700: 33 62 38 30 35 34 65 34 31 62 30 38 62 66 32 61 3b8054e41b08bf2a
0710: 39 32 35 31 63 33 30 62 36 61 30 62 38 61 61 65 9251c30b6a0b8aae
0720: 38 36 31 37 37 61 62 34 61 36 66 36 38 66 36 37 86177ab4a6f68f67
0730: 33 65 37 32 30 37 38 36 35 64 35 64 39 38 31 39 3e7207865d5d9819
0740: 61 33 64 62 61 34 65 62 33 62 0a 0a 74 63 6c 74 a3dba4eb3b..tclt
0750: 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 57 est::test Hash_W
0760: 48 49 52 4c 50 4f 4f 4c 2d 31 2e 36 20 7b 57 48 HIRLPOOL-1.6 {WH
0770: 49 52 4c 50 4f 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e IRLPOOL} \..-con
0780: 73 74 72 61 69 6e 74 73 20 57 48 49 52 4c 50 4f straints WHIRLPO
0790: 4f 4c 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 OL \..-setup {se
07a0: 74 20 64 61 74 61 20 22 41 42 43 44 45 46 47 48 t data "ABCDEFGH
07b0: 49 4a 4b 4c 4d 4e 4f 50 51 52 53 54 55 56 57 58 IJKLMNOPQRSTUVWX
07c0: 59 5a 61 62 63 64 65 66 67 68 69 6a 6b 6c 6d 6e YZabcdefghijklmn
07d0: 6f 70 71 72 73 74 75 76 77 78 79 7a 30 31 32 33 opqrstuvwxyz0123
07e0: 34 35 36 37 38 39 22 7d 20 5c 0a 09 2d 62 6f 64 456789"} \..-bod
07f0: 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d y {tls::digest -
0800: 64 69 67 65 73 74 20 57 48 49 52 4c 50 4f 4f 4c digest WHIRLPOOL
0810: 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a -data $data} \.
0820: 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 .-match exact -r
0830: 65 73 75 6c 74 20 64 63 33 37 65 30 30 38 63 66 esult dc37e008cf
0840: 39 65 65 36 39 62 66 31 31 66 30 30 65 64 39 61 9ee69bf11f00ed9a
0850: 62 61 32 36 39 30 31 64 64 37 63 32 38 63 64 65 ba26901dd7c28cde
0860: 63 30 36 36 63 63 36 61 66 34 32 65 34 30 66 38 c066cc6af42e40f8
0870: 32 66 33 61 31 65 30 38 65 62 61 32 36 36 32 39 2f3a1e08eba26629
0880: 31 32 39 64 38 66 62 37 63 62 35 37 32 31 31 62 129d8fb7cb57211b
0890: 39 32 38 31 61 36 35 35 31 37 63 63 38 37 39 64 9281a65517cc879d
08a0: 37 62 39 36 32 31 34 32 63 36 35 66 35 61 37 61 7b962142c65f5a7a
08b0: 66 30 31 34 36 37 0a 0a 74 63 6c 74 65 73 74 3a f01467..tcltest:
08c0: 3a 74 65 73 74 20 48 61 73 68 5f 57 48 49 52 4c :test Hash_WHIRL
08d0: 50 4f 4f 4c 2d 31 2e 37 20 7b 57 48 49 52 4c 50 POOL-1.7 {WHIRLP
08e0: 4f 4f 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 OOL} \..-constra
08f0: 69 6e 74 73 20 57 48 49 52 4c 50 4f 4f 4c 20 5c ints WHIRLPOOL \
0900: 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 ..-setup {set da
0910: 74 61 20 22 31 32 33 34 35 36 37 38 39 30 31 32 ta "123456789012
0920: 33 34 35 36 37 38 39 30 31 32 33 34 35 36 37 38 3456789012345678
0930: 39 30 31 32 33 34 35 36 37 38 39 30 31 32 33 34 9012345678901234
0940: 35 36 37 38 39 30 31 32 33 34 35 36 37 38 39 30 5678901234567890
0950: 31 32 33 34 35 36 37 38 39 30 31 32 33 34 35 36 1234567890123456
0960: 37 38 39 30 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7890"} \..-body
0970: 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 {tls::digest -di
0980: 67 65 73 74 20 57 48 49 52 4c 50 4f 4f 4c 20 2d gest WHIRLPOOL -
0990: 64 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d data $data} \..-
09a0: 6d 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 match exact -res
09b0: 75 6c 74 20 34 36 36 65 66 31 38 62 61 62 62 30 ult 466ef18babb0
09c0: 31 35 34 64 32 35 62 39 64 33 38 61 36 34 31 34 154d25b9d38a6414
09d0: 66 35 63 30 38 37 38 34 33 37 32 62 63 63 62 32 f5c08784372bccb2
09e0: 30 34 64 36 35 34 39 63 34 61 66 61 64 62 36 30 04d6549c4afadb60
09f0: 31 34 32 39 34 64 35 62 64 38 64 66 32 61 36 63 14294d5bd8df2a6c
0a00: 34 34 65 35 33 38 63 64 30 34 37 62 32 36 38 31 44e538cd047b2681
0a10: 61 35 31 61 32 63 36 30 34 38 31 65 38 38 63 35 a51a2c60481e88c5
0a20: 61 32 30 62 32 63 32 61 38 30 63 66 33 61 39 61 a20b2c2a80cf3a9a
0a30: 30 38 33 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 083b..tcltest::t
0a40: 65 73 74 20 48 61 73 68 5f 57 48 49 52 4c 50 4f est Hash_WHIRLPO
0a50: 4f 4c 2d 31 2e 38 20 7b 57 48 49 52 4c 50 4f 4f OL-1.8 {WHIRLPOO
0a60: 4c 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e L} \..-constrain
0a70: 74 73 20 57 48 49 52 4c 50 4f 4f 4c 20 5c 0a 09 ts WHIRLPOOL \..
0a80: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0a90: 20 22 61 62 63 64 62 63 64 65 63 64 65 66 64 65 "abcdbcdecdefde
0aa0: 66 67 65 66 67 68 66 67 68 69 67 68 69 6a 68 69 fgefghfghighijhi
0ab0: 6a 6b 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 jk"} \..-body {t
0ac0: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0ad0: 73 74 20 57 48 49 52 4c 50 4f 4f 4c 20 2d 64 61 st WHIRLPOOL -da
0ae0: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0af0: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0b00: 74 20 32 61 39 38 37 65 61 34 30 66 39 31 37 30 t 2a987ea40f9170
0b10: 36 31 66 35 64 36 66 30 61 30 65 34 36 34 34 66 61f5d6f0a0e4644f
0b20: 34 38 38 61 37 61 35 61 35 32 64 65 65 65 36 35 488a7a5a52deee65
0b30: 36 32 30 37 63 35 36 32 66 39 38 38 65 39 35 63 6207c562f988e95c
0b40: 36 39 31 36 62 64 63 38 30 33 31 62 63 35 62 65 6916bdc8031bc5be
0b50: 31 62 37 62 39 34 37 36 33 39 66 65 30 35 30 62 1b7b947639fe050b
0b60: 35 36 39 33 39 62 61 61 61 30 61 64 66 66 39 61 56939baaa0adff9a
0b70: 65 36 37 34 35 62 37 62 31 38 31 63 33 62 65 33 e6745b7b181c3be3
0b80: 66 64 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 fd..tcltest::tes
0b90: 74 20 48 61 73 68 5f 57 48 49 52 4c 50 4f 4f 4c t Hash_WHIRLPOOL
0ba0: 2d 31 2e 39 20 7b 57 48 49 52 4c 50 4f 4f 4c 7d -1.9 {WHIRLPOOL}
0bb0: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0bc0: 20 57 48 49 52 4c 50 4f 4f 4c 20 5c 0a 09 2d 73 WHIRLPOOL \..-s
0bd0: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 5b etup {set data [
0be0: 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 22 61 string repeat "a
0bf0: 61 61 61 61 61 61 61 61 61 22 20 31 30 30 30 30 aaaaaaaaa" 10000
0c00: 30 5d 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 0]} \..-body {tl
0c10: 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 73 s::digest -diges
0c20: 74 20 57 48 49 52 4c 50 4f 4f 4c 20 2d 64 61 74 t WHIRLPOOL -dat
0c30: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0c40: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0c50: 20 30 63 39 39 30 30 35 62 65 62 35 37 65 66 66 0c99005beb57eff
0c60: 35 30 61 37 63 66 30 30 35 35 36 30 64 64 66 35 50a7cf005560ddf5
0c70: 64 32 39 30 35 37 66 64 38 36 62 32 30 62 66 64 d29057fd86b20bfd
0c80: 36 32 64 65 63 61 30 66 31 63 63 65 61 34 61 66 62deca0f1ccea4af
0c90: 35 31 66 63 31 35 34 39 30 65 64 64 63 34 37 61 51fc15490eddc47a
0ca0: 66 33 32 62 62 32 62 36 36 63 33 34 66 66 39 61 f32bb2b66c34ff9a
0cb0: 64 38 63 36 30 30 38 61 64 36 37 37 66 37 37 31 d8c6008ad677f771
0cc0: 32 36 39 35 33 62 32 32 36 65 34 65 64 38 62 30 26953b226e4ed8b0
0cd0: 31 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 1..tcltest::test
0ce0: 20 48 61 73 68 5f 57 48 49 52 4c 50 4f 4f 4c 2d Hash_WHIRLPOOL-
0cf0: 31 2e 31 30 20 7b 57 48 49 52 4c 50 4f 4f 4c 7d 1.10 {WHIRLPOOL}
0d00: 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 \..-constraints
0d10: 20 57 48 49 52 4c 50 4f 4f 4c 20 5c 0a 09 2d 73 WHIRLPOOL \..-s
0d20: 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 etup {set data "
0d30: 54 68 65 20 71 75 69 63 6b 20 62 72 6f 77 6e 20 The quick brown
0d40: 66 6f 78 20 6a 75 6d 70 73 20 6f 76 65 72 20 74 fox jumps over t
0d50: 68 65 20 6c 61 7a 79 20 64 6f 67 22 7d 20 5c 0a he lazy dog"} \.
0d60: 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 .-body {tls::dig
0d70: 65 73 74 20 2d 64 69 67 65 73 74 20 57 48 49 52 est -digest WHIR
0d80: 4c 50 4f 4f 4c 20 2d 64 61 74 61 20 24 64 61 74 LPOOL -data $dat
0d90: 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 a} \..-match exa
0da0: 63 74 20 2d 72 65 73 75 6c 74 20 62 39 37 64 65 ct -result b97de
0db0: 35 31 32 65 39 31 65 33 38 32 38 62 34 30 64 32 512e91e3828b40d2
0dc0: 62 30 66 64 63 65 39 63 65 62 33 63 34 61 37 31 b0fdce9ceb3c4a71
0dd0: 66 39 62 65 61 38 64 38 38 65 37 35 63 34 66 61 f9bea8d88e75c4fa
0de0: 38 35 34 64 66 33 36 37 32 35 66 64 32 62 35 32 854df36725fd2b52
0df0: 65 62 36 35 34 34 65 64 63 61 63 64 36 66 38 62 eb6544edcacd6f8b
0e00: 65 64 64 66 65 61 34 30 33 63 62 35 35 61 65 33 eddfea403cb55ae3
0e10: 31 66 30 33 61 64 36 32 61 35 65 66 35 34 65 34 1f03ad62a5ef54e4
0e20: 32 65 65 38 32 63 33 66 62 33 35 0a 0a 23 20 43 2ee82c3fb35..# C
0e30: 6c 65 61 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 leanup.::tcltest
0e40: 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 ::cleanupTests.r
0e50: 65 74 75 72 6e 0a eturn.