210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
} -match {glob} -result {OpenSSL*}
# Error Cases
test Error_Cases-13.1 {Cipher Too few args} -body {
::tls::cipher
} -result {wrong # args: should be "::tls::cipher name"} -returnCodes {1}
test Error_Cases-13.2 {Cipher Too many args} -body {
::tls::cipher too many args
} -result {wrong # args: should be "::tls::cipher name"} -returnCodes {1}
test Error_Cases-13.3 {Digests Too many args} -body {
::tls::digests too many args
} -result {wrong # args: should be "::tls::digests ?name?"} -returnCodes {1}
test Error_Cases-13.4 {MACs Too many args} -body {
::tls::macs too many args
|
|
|
|
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
|
} -match {glob} -result {OpenSSL*}
# Error Cases
test Error_Cases-13.1 {Cipher Too few args} -body {
::tls::cipher
} -result {wrong # args: should be "::tls::cipher ?name?"} -returnCodes {1}
test Error_Cases-13.2 {Cipher Too many args} -body {
::tls::cipher too many args
} -result {wrong # args: should be "::tls::cipher ?name?"} -returnCodes {1}
test Error_Cases-13.3 {Digests Too many args} -body {
::tls::digests too many args
} -result {wrong # args: should be "::tls::digests ?name?"} -returnCodes {1}
test Error_Cases-13.4 {MACs Too many args} -body {
::tls::macs too many args
|