Artifact
1fafb9cc50066947962c51c1b9662086ecf0094d1c4ed83cf47244034cc52c4c:
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: 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 20 package require
0030: 74 6c 73 0a 70 61 63 6b 61 67 65 20 72 65 71 75 tls.package requ
0040: 69 72 65 20 74 63 6c 74 65 73 74 0a 0a 74 63 6c ire tcltest..tcl
0050: 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 test::testConstr
0060: 61 69 6e 74 20 53 4d 33 20 5b 65 78 70 72 20 7b aint SM3 [expr {
0070: 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 [lsearch -nocase
0080: 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 20 [tls::digests]
0090: 53 4d 33 5d 20 3e 20 2d 31 7d 5d 0a 0a 74 63 6c SM3] > -1}]..tcl
00a0: 74 65 73 74 3a 3a 74 65 73 74 20 48 61 73 68 5f test::test Hash_
00b0: 53 4d 33 2d 31 2e 31 20 7b 53 4d 33 7d 20 5c 0a SM3-1.1 {SM3} \.
00c0: 09 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 53 4d .-constraints SM
00d0: 33 20 5c 0a 09 2d 73 65 74 75 70 20 7b 73 65 74 3 \..-setup {set
00e0: 20 64 61 74 61 20 22 22 7d 20 5c 0a 09 2d 62 6f data ""} \..-bo
00f0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
0100: 2d 64 69 67 65 73 74 20 53 4d 33 20 2d 64 61 74 -digest SM3 -dat
0110: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
0120: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
0130: 20 31 61 62 32 31 64 38 33 35 35 63 66 61 31 37 1ab21d8355cfa17
0140: 66 38 65 36 31 31 39 34 38 33 31 65 38 31 61 38 f8e61194831e81a8
0150: 66 32 32 62 65 63 38 63 37 32 38 66 65 66 62 37 f22bec8c728fefb7
0160: 34 37 65 64 30 33 35 65 62 35 30 38 32 61 61 32 47ed035eb5082aa2
0170: 62 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 b..tcltest::test
0180: 20 48 61 73 68 5f 53 4d 33 2d 31 2e 32 20 7b 53 Hash_SM3-1.2 {S
0190: 4d 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 M3} \..-constrai
01a0: 6e 74 73 20 53 4d 33 20 5c 0a 09 2d 73 65 74 75 nts SM3 \..-setu
01b0: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 22 7d p {set data "a"}
01c0: 20 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a \..-body {tls::
01d0: 64 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 digest -digest S
01e0: 4d 33 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 M3 -data $data}
01f0: 5c 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 \..-match exact
0200: 2d 72 65 73 75 6c 74 20 36 32 33 34 37 36 61 63 -result 623476ac
0210: 31 38 66 36 35 61 32 39 30 39 65 34 33 63 37 66 18f65a2909e43c7f
0220: 65 63 36 31 62 34 39 63 37 65 37 36 34 61 39 31 ec61b49c7e764a91
0230: 61 31 38 63 63 62 38 32 66 31 39 31 37 61 32 39 a18ccb82f1917a29
0240: 63 38 36 63 35 65 38 38 0a 0a 74 63 6c 74 65 73 c86c5e88..tcltes
0250: 74 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 4d 33 t::test Hash_SM3
0260: 2d 31 2e 33 20 7b 53 4d 33 7d 20 5c 0a 09 2d 63 -1.3 {SM3} \..-c
0270: 6f 6e 73 74 72 61 69 6e 74 73 20 53 4d 33 20 5c onstraints SM3 \
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 62 63 22 7d 20 5c 0a 09 2d 62 6f ta "abc"} \..-bo
02a0: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
02b0: 2d 64 69 67 65 73 74 20 53 4d 33 20 2d 64 61 74 -digest SM3 -dat
02c0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
02d0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
02e0: 20 36 36 63 37 66 30 66 34 36 32 65 65 65 64 64 66c7f0f462eeedd
02f0: 39 64 31 66 32 64 34 36 62 64 63 31 30 65 34 65 9d1f2d46bdc10e4e
0300: 32 34 31 36 37 63 34 38 37 35 63 66 32 66 37 61 24167c4875cf2f7a
0310: 32 32 39 37 64 61 30 32 62 38 66 34 62 61 38 65 2297da02b8f4ba8e
0320: 30 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 0..tcltest::test
0330: 20 48 61 73 68 5f 53 4d 33 2d 31 2e 34 20 7b 53 Hash_SM3-1.4 {S
0340: 4d 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 M3} \..-constrai
0350: 6e 74 73 20 53 4d 33 20 5c 0a 09 2d 73 65 74 75 nts SM3 \..-setu
0360: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 p {set data "abc
0370: 64 65 66 67 68 69 6a 6b 6c 6d 6e 6f 70 71 72 73 defghijklmnopqrs
0380: 74 75 76 77 78 79 7a 22 7d 20 5c 0a 09 2d 62 6f tuvwxyz"} \..-bo
0390: 64 79 20 7b 74 6c 73 3a 3a 64 69 67 65 73 74 20 dy {tls::digest
03a0: 2d 64 69 67 65 73 74 20 53 4d 33 20 2d 64 61 74 -digest SM3 -dat
03b0: 61 20 24 64 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 a $data} \..-mat
03c0: 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 6c 74 ch exact -result
03d0: 20 62 38 30 66 65 39 37 61 34 64 61 32 34 61 66 b80fe97a4da24af
03e0: 63 32 37 37 35 36 34 66 36 36 61 33 35 39 65 66 c277564f66a359ef
03f0: 34 34 30 34 36 32 61 64 32 38 64 63 63 36 64 36 440462ad28dcc6d6
0400: 33 61 64 62 32 34 64 35 63 32 30 61 36 31 35 39 3adb24d5c20a6159
0410: 35 0a 0a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 5..tcltest::test
0420: 20 48 61 73 68 5f 53 4d 33 2d 31 2e 35 20 7b 53 Hash_SM3-1.5 {S
0430: 4d 33 7d 20 5c 0a 09 2d 63 6f 6e 73 74 72 61 69 M3} \..-constrai
0440: 6e 74 73 20 53 4d 33 20 5c 0a 09 2d 73 65 74 75 nts SM3 \..-setu
0450: 70 20 7b 73 65 74 20 64 61 74 61 20 22 61 62 63 p {set data "abc
0460: 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 dabcdabcdabcdabc
0470: 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 dabcdabcdabcdabc
0480: 64 61 62 63 64 61 62 63 64 61 62 63 64 61 62 63 dabcdabcdabcdabc
0490: 64 61 62 63 64 61 62 63 64 61 62 63 64 22 7d 20 dabcdabcdabcd"}
04a0: 5c 0a 09 2d 62 6f 64 79 20 7b 74 6c 73 3a 3a 64 \..-body {tls::d
04b0: 69 67 65 73 74 20 2d 64 69 67 65 73 74 20 53 4d igest -digest SM
04c0: 33 20 2d 64 61 74 61 20 24 64 61 74 61 7d 20 5c 3 -data $data} \
04d0: 0a 09 2d 6d 61 74 63 68 20 65 78 61 63 74 20 2d ..-match exact -
04e0: 72 65 73 75 6c 74 20 64 65 62 65 39 66 66 39 32 result debe9ff92
04f0: 32 37 35 62 38 61 31 33 38 36 30 34 38 38 39 63 275b8a138604889c
0500: 31 38 65 35 61 34 64 36 66 64 62 37 30 65 35 33 18e5a4d6fdb70e53
0510: 38 37 65 35 37 36 35 32 39 33 64 63 62 61 33 39 87e5765293dcba39
0520: 63 30 63 35 37 33 32 0a 0a 74 63 6c 74 65 73 74 c0c5732..tcltest
0530: 3a 3a 74 65 73 74 20 48 61 73 68 5f 53 4d 33 2d ::test Hash_SM3-
0540: 31 2e 36 20 7b 53 4d 33 7d 20 5c 0a 09 2d 63 6f 1.6 {SM3} \..-co
0550: 6e 73 74 72 61 69 6e 74 73 20 53 4d 33 20 5c 0a nstraints SM3 \.
0560: 09 2d 73 65 74 75 70 20 7b 73 65 74 20 64 61 74 .-setup {set dat
0570: 61 20 22 61 62 63 64 61 62 63 64 61 62 63 64 61 a "abcdabcdabcda
0580: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0590: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05a0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05b0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05c0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05d0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05e0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
05f0: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0600: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0610: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0620: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0630: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0640: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0650: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0660: 62 63 64 61 62 63 64 61 62 63 64 61 62 63 64 61 bcdabcdabcdabcda
0670: 62 63 64 22 7d 20 5c 0a 09 2d 62 6f 64 79 20 7b bcd"} \..-body {
0680: 74 6c 73 3a 3a 64 69 67 65 73 74 20 2d 64 69 67 tls::digest -dig
0690: 65 73 74 20 53 4d 33 20 2d 64 61 74 61 20 24 64 est SM3 -data $d
06a0: 61 74 61 7d 20 5c 0a 09 2d 6d 61 74 63 68 20 65 ata} \..-match e
06b0: 78 61 63 74 20 2d 72 65 73 75 6c 74 20 62 39 36 xact -result b96
06c0: 35 37 36 34 63 38 62 65 62 62 30 39 31 63 37 36 5764c8bebb091c76
06d0: 30 32 62 37 34 61 66 64 33 34 65 65 66 62 35 33 02b74afd34eefb53
06e0: 31 64 63 63 62 34 65 30 30 37 36 64 39 62 37 63 1dccb4e0076d9b7c
06f0: 64 38 31 33 31 39 39 62 34 35 39 37 31 0a 0a d813199b45971..