SM3.test at [0046a7f25d]

File tests/test_vectors/Hash/SM3.test artifact c919bfff86 part of check-in 0046a7f25d


# Auto generated from "SM3.txt"
lappend auto_path [file dirname [file dirname [file dirname [file dirname [file join [pwd] [info script]]]]]]
package require tls
package require tcltest

tcltest::testConstraint SM3 [expr {[lsearch -nocase [tls::digests] SM3] > -1}]
catch {tls::provider legacy}

tcltest::test Hash_SM3-1.1 {SM3} \
	-constraints SM3 \
	-setup {set data ""} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result 1ab21d8355cfa17f8e61194831e81a8f22bec8c728fefb747ed035eb5082aa2b

tcltest::test Hash_SM3-1.2 {SM3} \
	-constraints SM3 \
	-setup {set data "a"} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result 623476ac18f65a2909e43c7fec61b49c7e764a91a18ccb82f1917a29c86c5e88

tcltest::test Hash_SM3-1.3 {SM3} \
	-constraints SM3 \
	-setup {set data "abc"} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result 66c7f0f462eeedd9d1f2d46bdc10e4e24167c4875cf2f7a2297da02b8f4ba8e0

tcltest::test Hash_SM3-1.4 {SM3} \
	-constraints SM3 \
	-setup {set data "abcdefghijklmnopqrstuvwxyz"} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result b80fe97a4da24afc277564f66a359ef440462ad28dcc6d63adb24d5c20a61595

tcltest::test Hash_SM3-1.5 {SM3} \
	-constraints SM3 \
	-setup {set data "abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd"} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result debe9ff92275b8a138604889c18e5a4d6fdb70e5387e5765293dcba39c0c5732

tcltest::test Hash_SM3-1.6 {SM3} \
	-constraints SM3 \
	-setup {set data "abcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcdabcd"} \
	-body {tls::digest -digest SM3 -data $data} \
	-match exact -result b965764c8bebb091c7602b74afd34eefb531dccb4e0076d9b7cd813199b45971

# Cleanup
::tcltest::cleanupTests
return