Artifact
c919bfff86cfb96f1e549705fdfbc74ae24f2a8d3cf8a08439fad8bfd338d77b:
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 53 4d 33 2e 74 78 74 22 0a from "SM3.txt".
0020: 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f 70 61 74 lappend auto_pat
0030: 68 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 h [file dirname
0040: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
0050: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c ile dirname [fil
0060: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
0070: 6a 6f 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f join [pwd] [info
0080: 20 73 63 72 69 70 74 5d 5d 5d 5d 5d 5d 0a 70 61 script]]]]]].pa
0090: 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c ckage require tl
00a0: 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 s.package requir
00b0: 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c 74 65 e tcltest..tclte
00c0: 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 st::testConstrai
00d0: 6e 74 20 53 4d 33 20 5b 65 78 70 72 20 7b 5b 6c nt SM3 [expr {[l
00e0: 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 20 5b search -nocase [
00f0: 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 53 4d tls::digests] SM
0100: 33 5d 20 3e 20 2d 31 7d 5d 0a 63 61 74 63 68 20 3] > -1}].catch
0110: 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 6c {tls::provider l
0120: 65 67 61 63 79 7d 0a 0a 74 63 6c 74 65 73 74 3a egacy}..tcltest:
0130: 3a 74 65 73 74 20 48 61 73 68 5f 53 4d 33 2d 31 :test Hash_SM3-1
0140: 2e 31 20 7b 53 4d 33 7d 20 5c 0a 09 2d 63 6f 6e .1 {SM3} \..-con
0150: 73 74 72 61 69 6e 74 73 20 53 4d 33 20 5c 0a 09 straints SM3 \..
0160: 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 61 -setup {set data
0170: 20 22 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 ""} \..-body {t
0180: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0190: 73 74 20 53 4d 33 20 2d 64 61 74 61 20 24 64 61 st SM3 -data $da
01a0: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
01b0: 61 63 74 20 2d 72 65 73 75 6c 74 20 31 61 62 32 act -result 1ab2
01c0: 31 64 38 33 35 35 63 66 61 31 37 66 38 65 36 31 1d8355cfa17f8e61
01d0: 31 39 34 38 33 31 65 38 31 61 38 66 32 32 62 65 194831e81a8f22be
01e0: 63 38 63 37 32 38 66 65 66 62 37 34 37 65 64 30 c8c728fefb747ed0
01f0: 33 35 65 62 35 30 38 32 61 61 32 62 0a 0a 74 63 35eb5082aa2b..tc
0200: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
0210: 5f 53 4d 33 2d 31 2e 32 20 7b 53 4d 33 7d 20 5c _SM3-1.2 {SM3} \
0220: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
0230: 4d 33 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 M3 \..-setup {se
0240: 74 20 64 61 74 61 20 22 61 22 7d 20 5c 0a 09 2d t data "a"} \..-
0250: 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 body {tls::diges
0260: 74 20 2d 64 69 67 65 73 74 20 53 4d 33 20 2d 64 t -digest SM3 -d
0270: 61 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d ata $data} \..-m
0280: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
0290: 6c 74 20 36 32 33 34 37 36 61 63 31 38 66 36 35 lt 623476ac18f65
02a0: 61 32 39 30 39 65 34 33 63 37 66 65 63 36 31 62 a2909e43c7fec61b
02b0: 34 39 63 37 65 37 36 34 61 39 31 61 31 38 63 63 49c7e764a91a18cc
02c0: 62 38 32 66 31 39 31 37 61 32 39 63 38 36 63 35 b82f1917a29c86c5
02d0: 65 38 38 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 e88..tcltest::te
02e0: 73 74 20 48 61 73 68 5f 53 4d 33 2d 31 2e 33 20 st Hash_SM3-1.3
02f0: 7b 53 4d 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 {SM3} \..-constr
0300: 61 69 6e 74 73 20 53 4d 33 20 5c 0a 09 2d 73 65 aints SM3 \..-se
0310: 74 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 tup {set data "a
0320: 62 63 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 bc"} \..-body {t
0330: 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 65 ls::digest -dige
0340: 73 74 20 53 4d 33 20 2d 64 61 74 61 20 24 64 61 st SM3 -data $da
0350: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0360: 61 63 74 20 2d 72 65 73 75 6c 74 20 36 36 63 37 act -result 66c7
0370: 66 30 66 34 36 32 65 65 65 64 64 39 64 31 66 32 f0f462eeedd9d1f2
0380: 64 34 36 62 64 63 31 30 65 34 65 32 34 31 36 37 d46bdc10e4e24167
0390: 63 34 38 37 35 63 66 32 66 37 61 32 32 39 37 64 c4875cf2f7a2297d
03a0: 61 30 32 62 38 66 34 62 61 38 65 30 0a 0a 74 63 a02b8f4ba8e0..tc
03b0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
03c0: 5f 53 4d 33 2d 31 2e 34 20 7b 53 4d 33 7d 20 5c _SM3-1.4 {SM3} \
03d0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
03e0: 4d 33 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 M3 \..-setup {se
03f0: 74 20 64 61 74 61 20 22 61 62 63 64 65 66 67 68 t data "abcdefgh
0400: 69 6a 6b 6c 6d 6e 6f 70 71 72 73 74 75 76 77 78 ijklmnopqrstuvwx
0410: 79 7a 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 yz"} \..-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 53 4d 33 20 2d 64 61 74 61 20 24 64 61 st SM3 -data $da
0440: 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 78 ta} \..-match ex
0450: 61 63 74 20 2d 72 65 73 75 6c 74 20 62 38 30 66 act -result b80f
0460: 65 39 37 61 34 64 61 32 34 61 66 63 32 37 37 35 e97a4da24afc2775
0470: 36 34 66 36 36 61 33 35 39 65 66 34 34 30 34 36 64f66a359ef44046
0480: 32 61 64 32 38 64 63 63 36 64 36 33 61 64 62 32 2ad28dcc6d63adb2
0490: 34 64 35 63 32 30 61 36 31 35 39 35 0a 0a 74 63 4d5c20a61595..tc
04a0: 6c 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 ltest::test Hash
04b0: 5f 53 4d 33 2d 31 2e 35 20 7b 53 4d 33 7d 20 5c _SM3-1.5 {SM3} \
04c0: 0a 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 ..-constraints S
04d0: 4d 33 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 M3 \..-setup {se
04e0: 74 20 64 61 74 61 20 22 61 62 63 64 61 62 63 64 t data "abcdabcd
04f0: 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 abcdabcdabcdabcd
0500: 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 abcdabcdabcdabcd
0510: 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 abcdabcdabcdabcd
0520: 61 62 63 64 61 62 63 64 22 7d 20 5c 0a 09 2d 62 abcdabcd"} \..-b
0530: 6f 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 ody {tls::digest
0540: 20 2d 64 69 67 65 73 74 20 53 4d 33 20 2d 64 61 -digest SM3 -da
0550: 74 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 ta $data} \..-ma
0560: 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c tch exact -resul
0570: 74 20 64 65 62 65 39 66 66 39 32 32 37 35 62 38 t debe9ff92275b8
0580: 61 31 33 38 36 30 34 38 38 39 63 31 38 65 35 61 a138604889c18e5a
0590: 34 64 36 66 64 62 37 30 65 35 33 38 37 65 35 37 4d6fdb70e5387e57
05a0: 36 35 32 39 33 64 63 62 61 33 39 63 30 63 35 37 65293dcba39c0c57
05b0: 33 32 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 32..tcltest::tes
05c0: 74 20 48 61 73 68 5f 53 4d 33 2d 31 2e 36 20 7b t Hash_SM3-1.6 {
05d0: 53 4d 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 SM3} \..-constra
05e0: 69 6e 74 73 20 53 4d 33 20 5c 0a 09 2d 73 65 74 ints SM3 \..-set
05f0: 75 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 up {set data "ab
0600: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0610: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0620: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0630: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0640: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0650: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0660: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0670: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0680: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
0690: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06a0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06b0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06c0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06d0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06e0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 cdabcdabcdabcdab
06f0: 63 64 61 62 63 64 61 62 63 64 61 62 63 64 22 7d cdabcdabcdabcd"}
0700: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
0710: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
0720: 4d 33 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 M3 -data $data}
0730: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0740: 2d 72 65 73 75 6c 74 20 62 39 36 35 37 36 34 63 -result b965764c
0750: 38 62 65 62 62 30 39 31 63 37 36 30 32 62 37 34 8bebb091c7602b74
0760: 61 66 64 33 34 65 65 66 62 35 33 31 64 63 63 62 afd34eefb531dccb
0770: 34 65 30 30 37 36 64 39 62 37 63 64 38 31 33 31 4e0076d9b7cd8131
0780: 39 39 62 34 35 39 37 31 0a 0a 23 20 43 6c 65 61 99b45971..# Clea
0790: 6e 75 70 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 nup.::tcltest::c
07a0: 6c 65 61 6e 75 70 54 65 73 74 73 0a 72 65 74 75 leanupTests.retu
07b0: 72 6e 0a rn.