@@ -214,23 +214,31 @@ } -match {glob} -result {OpenSSL*} # Error Cases -test Error_Cases-12.1 {Digests Too many args} -body { +test Error_Cases-12.1 {Cipher Too few args} -body { + ::tls::cipher + } -result {wrong # args: should be "::tls::cipher name"} -returnCodes {1} + +test Error_Cases-12.2 {Cipher Too many args} -body { + ::tls::cipher too many args + } -result {wrong # args: should be "::tls::cipher name"} -returnCodes {1} + +test Error_Cases-12.3 {Digests Too many args} -body { ::tls::digests too many args - } -result {wrong # args: should be "::tls::digests"} -returnCodes {1} + } -result {wrong # args: should be "::tls::digests ?name?"} -returnCodes {1} -test Error_Cases-12.2 {MACs Too many args} -body { +test Error_Cases-12.4 {MACs Too many args} -body { ::tls::macs too many args } -result {wrong # args: should be "::tls::macs"} -returnCodes {1} -test Error_Cases-12.3 {Protocols Too many args} -body { +test Error_Cases-12.5 {Protocols Too many args} -body { ::tls::protocols too many args } -result {wrong # args: should be "::tls::protocols"} -returnCodes {1} -test Error_Cases-12.4 {Version Too many args} -body { +test Error_Cases-12.6 {Version Too many args} -body { ::tls::version too many args } -result {wrong # args: should be "::tls::version"} -returnCodes {1} # Cleanup ::tcltest::cleanupTests