Index: tests/tlsIo.test
==================================================================
--- tests/tlsIo.test
+++ tests/tlsIo.test
@@ -8,11 +8,11 @@
 # Copyright (c) 1998-1999 by Scriptics Corporation.
 #
 # 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.4 2000/06/02 21:44:59 awb Exp $
+# RCS: @(#) $Id: tlsIo.test,v 1.5 2000/06/02 21:50:44 awb Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -329,17 +329,19 @@
     }
     close $f
     set x
 } [list ready "hello $port"]
 
-test socket-2.3 {tcp connection with client interface specified} {socket stdio pcCrash} {
+test socket-2.3 {tcp connection with client interface specified} {socket stdio} {
     removeFile script
     set f [open script w]
     puts $f {
 	package require tls
 	set timer [after 2000 "set x done"]
-        set f [tls::socket  -server accept 2830]
+    }
+    puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 2830 \]"
+    puts $f {
 	proc accept {file addr port} {
             global x
             puts "[gets $file] $addr"
             close $file
             set x done
@@ -350,11 +352,13 @@
 	close $f
     }
     close $f
     set f [open "|[list $::tcltest::tcltest script]" r]
     gets $f x
-    if {[catch {tls::socket -myaddr 127.0.0.1 127.0.0.1 2830} sock]} {
+    if {[catch {tls::socket -myaddr 127.0.0.1 \
+	-certfile $clientCert -cafile $caCert \
+	-keyfile $clientKey 127.0.0.1 2830} sock]} {
         set x $sock
     } else {
         puts $sock hello
 	catch {flush $sock}
         lappend x [gets $f]