CMAC-AES-256-CBC.test at tip

File tests/test_vectors/MAC/CMAC-AES-256-CBC.test from the latest check-in


# Auto generated from "CMAC-AES-256-CBC.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 CMAC [expr {[lsearch -nocase [tls::macs] CMAC] > -1}]
tcltest::testConstraint AES_256_CBC [expr {[lsearch -nocase [tls::ciphers] AES-256-CBC] > -1}]
catch {tls::provider legacy}

tcltest::test MAC_CMAC-AES-256-CBC-1.1 {CMAC-AES-256-CBC} \
	-constraints {CMAC  AES_256_CBC} \
	-setup {} \
	-body {string range [tls::cmac -hex -cipher AES-256-CBC -key [binary decode hex 603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4] -data ""] 0 31} \
	-match exact -result 028962f61b7bf89efc6b551f4667d983

tcltest::test MAC_CMAC-AES-256-CBC-1.2 {CMAC-AES-256-CBC} \
	-constraints {CMAC  AES_256_CBC} \
	-setup {} \
	-body {string range [tls::cmac -hex -cipher AES-256-CBC -key [binary decode hex 603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4] -data [binary decode hex 6bc1bee22e409f96e93d7e117393172a]] 0 31} \
	-match exact -result 28a7023f452e8f82bd4bf28d8c37c35c

tcltest::test MAC_CMAC-AES-256-CBC-1.3 {CMAC-AES-256-CBC} \
	-constraints {CMAC  AES_256_CBC} \
	-setup {} \
	-body {string range [tls::cmac -hex -cipher AES-256-CBC -key [binary decode hex 603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4] -data [binary decode hex 6bc1bee22e409f96e93d7e117393172aae2d8a571e03ac9c9eb76fac45af8e5130c81c46a35ce411]] 0 31} \
	-match exact -result aaf3d8f1de5640c232f5b169b9c911e6

tcltest::test MAC_CMAC-AES-256-CBC-1.4 {CMAC-AES-256-CBC} \
	-constraints {CMAC  AES_256_CBC} \
	-setup {} \
	-body {string range [tls::cmac -hex -cipher AES-256-CBC -key [binary decode hex 603deb1015ca71be2b73aef0857d77811f352c073b6108d72d9810a30914dff4] -data [binary decode hex 6bc1bee22e409f96e93d7e117393172aae2d8a571e03ac9c9eb76fac45af8e5130c81c46a35ce411e5fbc1191a0a52eff69f2445df4f9b17ad2b417be66c3710]] 0 31} \
	-match exact -result e1992190549f6ed5696a2c056c315410

# Cleanup
::tcltest::cleanupTests
return