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.5 2000/06/05 22:57:58 stanton Exp $
+# RCS: @(#) $Id: tlsIO.test,v 1.6 2000/06/05 23:31:17 aborr Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -1012,11 +1012,11 @@
     close $s1
     set l ""
     lappend l [lindex $x 0] [lindex $x 2] [llength $x]
 } {127.0.0.1 2829 3}
 
-test tlsIO-8.1 {testing -async flag on sockets} {empty socket} {
+test tlsIO-8.1 {testing -async flag on sockets} {unexplainedHang socket} {
     # test seems to hang -- awb 6/2/2000
     # NOTE: This test may fail on some Solaris 2.4 systems. If it does,
     # check that you have these patches installed (using showrev -p):
     #
     # 101907-05, 101925-02, 101945-14, 101959-03, 101969-05, 101973-03,
@@ -1047,11 +1047,11 @@
     close $s
     close $s1
     set z
 } bye
 
-test tlsIO-9.1 {testing spurious events} {empty socket} {
+test tlsIO-9.1 {testing spurious events} {unexplainedHang socket} {
     # locks up 
     set len 0
     set spurious 0
     set done 0
     proc readlittle {s} {
@@ -1092,12 +1092,10 @@
     for {set i 0} {$i < 5} {incr i} {set firstblock "a$firstblock$firstblock"}
     set secondblock ""
     for {set i 0} {$i < 16} {incr i} {
 	set secondblock "b$secondblock$secondblock"
     }
-puts "firstblock =  [string length $firstblock]"
-puts "secondblock = [string length $secondblock]"
     set l [tls::socket \
 	-certfile $serverCert -cafile $caCert -keyfile $serverKey \
     	-server accept 2832]
     proc accept {s a p} {
 	fconfigure $s -blocking 0 -translation lf -buffersize 16384 \
@@ -1140,11 +1138,11 @@
     after cancel $timer
     close $l
     set count
 } 65566
 
-test tlsIO-9.3 {testing EOF stickyness} {empty socket} {
+test tlsIO-9.3 {testing EOF stickyness} {unexplainedHang socket} {
     # hangs
     proc count_to_eof {s} {
 	global count done timer
 	set l [gets $s]
 	if {[eof $s]} {
@@ -1432,11 +1430,11 @@
     close $s3
     sendCommand {close $socket10_9_test_server}
     set i
 } 100    
 
-test tlsIO-11.8 {client with several servers} {empty socket doTestsWithRemoteServer} {
+test tlsIO-11.8 {client with several servers} {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] \
@@ -1539,11 +1537,11 @@
     close $s
     sendCommand {close $socket10_12_test_server}
     set l
 } {2836 3 3}
 
-test tlsIO-11.11 {testing spurious events} {empty socket doTestsWithRemoteServer} {
+test tlsIO-11.11 {testing spurious events} {socket doTestsWithRemoteServer} {
     # hangs
     sendCommand "set caCert $caCert"
     sendCommand "set serverCert $serverCert"
     sendCommand "set clientCert $clientCert"
     sendCommand "set serverKey $serverKey"
@@ -1859,11 +1857,11 @@
     removeFile script2
     set x
 } {client socket was not inherited}
 
 test tlsIO-12.3 {testing inheritance of accepted sockets} \
-	{empty socket doTestsWithRemoteServer} {
+	{socket doTestsWithRemoteServer} {
     # hangs on Linux
     removeFile script1
     removeFile script2
 
     set f [open script1 w]