@@ -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.6 2000/06/05 23:31:17 aborr Exp $
+# RCS: @(#) $Id: tlsIO.test,v 1.7 2000/06/06 00:48:41 aborr Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -1430,11 +1430,11 @@
     close $s3
     sendCommand {close $socket10_9_test_server}
     set i
 } 100    
 
-test tlsIO-11.8 {client with several servers} {socket doTestsWithRemoteServer} {
+test tlsIO-11.8 {client with several servers} {unexplainedHang socket doTestsWithRemoteServer} {
     # this one seems to hang -- awb 6/2/2000
     sendCommand {
 	set s1 [tls::socket \
 		-certfile [file join [pwd] certs server.pem] \
 		-cafile [file join [pwd] certs caFile.pem] \
@@ -1537,11 +1537,11 @@
     close $s
     sendCommand {close $socket10_12_test_server}
     set l
 } {2836 3 3}
 
-test tlsIO-11.11 {testing spurious events} {socket doTestsWithRemoteServer} {
+test tlsIO-11.11 {testing spurious events} {unexplainedHang socket doTestsWithRemoteServer} {
     # hangs
     sendCommand "set caCert $caCert"
     sendCommand "set serverCert $serverCert"
     sendCommand "set clientCert $clientCert"
     sendCommand "set serverKey $serverKey"