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.13 2000/06/07 02:31:15 aborr Exp $ +# RCS: @(#) $Id: tlsIO.test,v 1.14 2000/06/08 00:06:40 aborr Exp $ # Running socket tests with a remote server: # ------------------------------------------ # # Some tests in socket.test depend on the existence of a remote server to @@ -1480,11 +1480,11 @@ close $s3 } set l } {4003 {} 1 4004 {} 1 4005 {} 1} -test tlsIO-11.9 {accept callback error} {socket doTestsWithRemoteServer} { +test tlsIO-11.9 {accept callback error} {knownBug socket doTestsWithRemoteServer} { set s [tls::socket \ -certfile $serverCert -cafile $caCert -keyfile $serverKey \ -server accept 8836] proc accept {s a p} {expr 10 / 0} proc bgerror args { @@ -1593,11 +1593,11 @@ after cancel $timer sendCommand {close $socket10_13_test_server} list $spurious $len } {0 2690} -test tlsIO-11.12 {testing EOF stickyness} {socket doTestsWithRemoteServer} { +test tlsIO-11.12 {testing EOF stickyness} {knownBug socket doTestsWithRemoteServer} { set counter 0 set done 0 proc count_up {s} { global counter done after_id set l [gets $s] @@ -1768,11 +1768,11 @@ removeFile script2 set x } {server socket was not inherited} test tlsIO-12.2 {testing inheritance of client sockets} \ - {socket doTestsWithRemoteServer} { + {unexplainedFailure socket doTestsWithRemoteServer} { removeFile script1 removeFile script2 # Script1 is just a 10 second delay. If the server socket # is inherited, it will be held open for 10 seconds