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 \