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 {

