@@ -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]