#26 tls CVS head test suite has a series of problems

[Larry W. Virden]

platform: sparc solaris 9, tls 1.5.1, tcl cvs head tcl 8.5a7

results of gmake test are:
Tests began at Mon Jun 25 09:55:36 EDT 2007
ciphers.test

==== ciphers-1.3 Tls::ciphers for ssl3 FAILED
==== Contents of test case:

# This will fail if you compiled against RSA bsafe or with a
# different set of defines than the default.
# Change the constraint setting above.
listcompare $::EXPECTEDCIPHERS(openssl) [tls::ciphers ssl3]

---- Result was:
MISSING {EXP1024-DHE-DSS-RC4-SHA EXP1024-DHE-DSS-DES-CBC-SHA EXP1024-RC4-SHA EXP
1024-DES-CBC-SHA EXP1024-RC2-CBC-MD5 EXP1024-RC4-MD5 DHE-DSS-RC4-SHA} UNEXPECTED
{}
---- Result should have been (exact matching):

==== ciphers-1.3 FAILED

==== ciphers-1.4 Tls::ciphers for tls1 FAILED
==== Contents of test case:

# This will fail if you compiled against RSA bsafe or with a
# different set of defines than the default.
# Change the constraint setting in all.tcl
listcompare $::EXPECTEDCIPHERS(openssl) [tls::ciphers tls1]

---- Result was:
MISSING {EXP1024-DHE-DSS-RC4-SHA EXP1024-DHE-DSS-DES-CBC-SHA EXP1024-RC4-SHA EXP
1024-DES-CBC-SHA EXP1024-RC2-CBC-MD5 EXP1024-RC4-MD5 DHE-DSS-RC4-SHA} UNEXPECTED
{}
---- Result should have been (exact matching):

==== ciphers-1.4 FAILED

tlsIO.test

==== tlsIO-12.3 testing inheritance of accepted sockets FAILED
==== Contents of test case:

makeFile {} script1
makeFile {} script2

set f [open script1 w]
puts $f {
after 10000 exit
vwait forever
}
close $f

set f [open script2 w]
puts $f [list set tclsh $::tcltest::tcltest]
puts $f {
set auto_path [linsert $auto_path 0 [lindex [split $env(PATH) ";:"] 0]]
package require tls
}
puts $f "set f \[tls::socket -server accept -certfile $serverCert -cafile $
caCert -keyfile $serverKey 8930\]"

puts $f {
proc accept { file host port } {
global tclsh
fconfigure $file -buffering line
puts $file {test data on socket}
exec $tclsh script1 &
after 1000 exit
}
vwait forever
}
close $f

# Launch the script2 process and connect to it. See how long
# the socket stays open

exec $::tcltest::tcltest script2 &

after 2000 set ok_to_proceed 1
vwait ok_to_proceed

set f [tls::socket -certfile $clientCert -cafile $caCert -keyfile $clientKe
y 127.0.0.1 8930]
fconfigure $f -buffering full -blocking 0
# We need to put a byte into the read queue, otherwise the
# TLS handshake doesn't finish
puts $f a; flush $f
fileevent $f readable [list getdata accepted $f]

# If the socket is still open after 5 seconds, the script1 process
# must have inherited the accepted socket.

set failed 0
after 5000 set failed 1

vwait x
set x

---- Result was:
impossible case
---- Result should have been (exact matching):
accepted socket was not inherited
==== tlsIO-12.3 FAILED

Tests ended at Mon Jun 25 09:56:03 EDT 2007
all.tcl: Total 63 Passed 43 Skipped 17 Failed 3
Sourced 0 Test Files.
Files with failing tests: ciphers.test tlsIO.test
Number of tests skipped for each constraint:
12 doTestsWithRemoteServer
2 rsabsafe
1 testthread
2 unexplainedFailure
couldn't read file "script1": no such file or directory

[Jeffrey Hobbs]

Logged In: YES
user_id=72656
Originator: NO

Update to 8.5.1 - that has stacked channel fix.

[SourceForge Robot]

Logged In: YES
user_id=1312539
Originator: NO

This Tracker item was closed automatically by the system. It was
previously set to a Pending status, and the original submitter
did not respond within 14 days (the time period specified by
the administrator of this Tracker).