Tcl Library Source Code

Artifact [7cba6c3dc1]
Login

Artifact 7cba6c3dc1e322e341bb07defa2776082c179c42168cfc3606a4dd238b9cd08c:

Attachment "ldap-test.patch" to ticket [60160205fe] added by pda 2018-07-10 12:51:03. (unpublished)
Index: modules/ldap/ldap.test
==================================================================
--- modules/ldap/ldap.test
+++ modules/ldap/ldap.test
@@ -254,10 +254,17 @@
 } -body {
    ldap::disconnect
 } -returnCodes {error} \
   -result [tcltest::wrongNumArgs {ldap::disconnect} \
 	{handle} 0 ]
+
+test ldap-29.0 {check invalid TLS option
+} -body {
+   ldap::tlsoptions -foo bar
+} -returnCodes {error} \
+  -result {invalid TLS option '-foo'}
+
 # -------------------------------------------------------------------------
 # Handling of string representation of filters (RFC 4515):
 # -------------------------------------------------------------------------
 
 proc glue args {