@@ -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.12 2000/06/03 05:01:33 awb Exp $ +# RCS: @(#) $Id: tlsIo.test,v 1.13 2000/06/05 20:22:34 aborr Exp $ # Running socket tests with a remote server: # ------------------------------------------ # # Some tests in socket.test depend on the existence of a remote server to @@ -667,10 +667,21 @@ } {ready done {}} +################################# +if {[string match sock* $commandSocket] == 1} { + puts $commandSocket exit + flush $commandSocket +} +catch {close $commandSocket} +catch {close $remoteProcChan} +::tcltest::cleanupTests +flush stdout +return +################################# test tlsIo-3.1 {socket conflict} {socket stdio} { removeFile script set f [open script w] puts $f { package require tls @@ -1996,16 +2007,6 @@ catch {close $commandSocket} catch {close $remoteProcChan} ::tcltest::cleanupTests flush stdout return - - - - - - - - - -