Index: tests/tlsIo.test
==================================================================
--- tests/tlsIo.test
+++ tests/tlsIo.test
@@ -8,11 +8,11 @@
 # Copyright (c) 1998-2000 Ajuba Solutions. 
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tlsIo.test,v 1.8 2000/06/03 02:30:03 awb Exp $
+# RCS: @(#) $Id: tlsIo.test,v 1.9 2000/06/03 03:00:22 awb Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -1682,11 +1682,13 @@
     after 5000 { set ok_to_proceed 1 }
     vwait ok_to_proceed
 
     # If we can still connect to the server, the socket got inherited.
 
-    if {[catch {tls::socket 127.0.0.1 2828} msg]} {
+    if {[catch {tls::socket \
+	-certfile $clientCert -cafile $caCert -keyfile $clientKey \
+   	 127.0.0.1 2828} msg]} {
 	set x {server socket was not inherited}
     } else {
 	close $msg
 	set x {server socket was inherited}
     }
@@ -1718,11 +1720,11 @@
     set f [open script2 w]
     puts $f [list set tcltest $::tcltest::tcltest]
     puts $f {
     	package require tls
     }
-    puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 127.0.0.1 2829 \]"
+    puts $f "set f \[tls::socket -certfile $clientCert -cafile $caCert -keyfile $clientKey 127.0.0.1 2829 \]"
     puts $f {
 	exec $::tcltest::tcltest script1 &
 	puts $f testing
 	flush $f
 	after 1000 exit
@@ -1730,11 +1732,13 @@
     }
     close $f
 
     # Create the server socket
 
-    set server [tls::socket -server accept 2829]
+    set server [tls::socket \
+	-certfile $serverCert -cafile $caCert -keyfile $serverKey \
+	-server accept 2829]
     proc accept { file host port } {
 
 	# When the client connects, establish the read handler
 	global server
 	close $server