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.3 2000/06/05 20:39:31 aborr Exp $
+# RCS: @(#) $Id: tlsIO.test,v 1.4 2000/06/05 22:33:26 aborr Exp $
 
 # Running socket tests with a remote server:
 # ------------------------------------------
 # 
 # Some tests in socket.test depend on the existence of a remote server to
@@ -860,11 +860,11 @@
 	close $msg
     }
     set x
 } {couldn't open socket: not owner}
 
-test tlsIO-6.1 {accept callback error} {socket stdio pcCrash} {
+test tlsIO-6.1 {accept callback error} {unexplainedFailure socket stdio pcCrash} {
     removeFile script
     set f [open script w]
     puts $f {
     	package require tls
 	gets stdin
@@ -886,11 +886,13 @@
     close $s
     rename bgerror {}
     set x
 } {{divide by zero}}
 
-test tlsIO-7.1 {testing socket specific options} {socket stdio} {
+# bug report #5812 fconfigure doesn't return value for '-peername'
+
+test tlsIO-7.1 {testing socket specific options} {knownBug socket stdio} {
     removeFile script
     set f [open script w]
     puts $f {
 	package require tls
     }
@@ -918,11 +920,13 @@
     lappend l [string compare [lindex $p 0] 127.0.0.1]
     lappend l [string compare [lindex $p 2] 2820]
     lappend l [llength $p]
 } {0 0 3}
 
-test tlsIO-7.2 {testing socket specific options} {socket stdio} {
+# bug report #5812 fconfigure doesn't return value for '-sockname'
+
+test tlsIO-7.2 {testing socket specific options} {knownBug socket stdio} {
     removeFile script
     set f [open script w]
     puts $f {
 	package require tls
     }
@@ -960,11 +964,13 @@
     close $s
     update
     llength $l
 } 12
 
-test tlsIO-7.4 {testing socket specific options} {socket} {
+# bug report #5812 fconfigure doesn't return value for '-sockname'
+
+test tlsIO-7.4 {testing socket specific options} {knownBug socket} {
     set s [tls::socket \
 	-certfile $serverCert -cafile $caCert -keyfile $serverKey \
     	-server accept 2823]
     proc accept {s a p} {
 	global x
@@ -981,11 +987,13 @@
     close $s1
     set l ""
     lappend l [lindex $x 2] [llength $x]
 } {2823 3}
 
-test tlsIO-7.5 {testing socket specific options} {socket unixOrPc} {
+# bug report #5812 fconfigure doesn't return value for '-sockname'
+
+test tlsIO-7.5 {testing socket specific options} {knownBug socket unixOrPc} {
     set s [tls::socket \
 	-certfile $serverCert -cafile $caCert -keyfile $serverKey \
     	-server accept 2829]
     proc accept {s a p} {
 	global x
@@ -1082,10 +1090,12 @@
     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 \