Description:
echo "load libtls1.6.so; \
if {![file exists tls.tcl]} { \
file copy [file join . tls.tcl] tls.tcl \
} ;\
source [file join . tls.tcl]; \
set argv ; \
source [file join . tests all.tcl]" | TCL_LIBRARY=`echo /usr/include/library` LD_LIBRARY_PATH=".:/usr/lib:/usr/lib/libfakeroot:/usr/lib64/libfakeroot:/usr/lib32/libfakeroot" PATH=".:/usr/lib:/usr/local/bin:/usr/bin:/bin:/usr/local/sbin:/usr/sbin:/sbin:/usr/bin/core_perl" TCLLIBPATH="." /usr/bin/tclsh8.5
Tests running in interp: /usr/bin/tclsh8.5
Tests running in working dir: /build/src/tls1.6/tests
Only running tests that match: *
Skipping test files that match: l.*.test
Only sourcing test files that match: *.test
Tests began at Sun Nov 20 16:48:08 +0000 2011
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 EXP1024-DES-CBC-SHA EXP1024-RC2-CBC-MD5 EXP1024-RC4-MD5 DHE-DSS-RC4-SHA} UNEXPECTED {ECDHE-RSA-AES256-SHA ECDH-RSA-AES256-SHA ECDH-ECDSA-DES-CBC3-SHA ECDH-ECDSA-AES256-SHA ECDH-ECDSA-RC4-SHA DHE-DSS-CAMELLIA128-SHA DHE-RSA-CAMELLIA256-SHA ECDHE-ECDSA-AES256-SHA PSK-AES128-CBC-SHA CAMELLIA256-SHA ECDHE-RSA-AES128-SHA ECDH-RSA-AES128-SHA ECDH-ECDSA-AES128-SHA ECDHE-ECDSA-RC4-SHA PSK-RC4-SHA ECDHE-ECDSA-DES-CBC3-SHA ECDH-RSA-DES-CBC3-SHA PSK-3DES-EDE-CBC-SHA DHE-RSA-CAMELLIA128-SHA ECDHE-ECDSA-AES128-SHA CAMELLIA128-SHA ECDHE-RSA-DES-CBC3-SHA SEED-SHA DHE-DSS-CAMELLIA256-SHA DHE-RSA-SEED-SHA ECDH-RSA-RC4-SHA DHE-DSS-SEED-SHA ECDHE-RSA-RC4-SHA PSK-AES256-CBC-SHA}
---- 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 EXP1024-DES-CBC-SHA EXP1024-RC2-CBC-MD5 EXP1024-RC4-MD5 DHE-DSS-RC4-SHA} UNEXPECTED {ECDHE-RSA-AES256-SHA ECDH-RSA-AES256-SHA ECDH-ECDSA-DES-CBC3-SHA ECDH-ECDSA-AES256-SHA ECDH-ECDSA-RC4-SHA DHE-DSS-CAMELLIA128-SHA DHE-RSA-CAMELLIA256-SHA ECDHE-ECDSA-AES256-SHA PSK-AES128-CBC-SHA CAMELLIA256-SHA ECDHE-RSA-AES128-SHA ECDH-RSA-AES128-SHA ECDH-ECDSA-AES128-SHA ECDHE-ECDSA-RC4-SHA PSK-RC4-SHA ECDHE-ECDSA-DES-CBC3-SHA ECDH-RSA-DES-CBC3-SHA PSK-3DES-EDE-CBC-SHA DHE-RSA-CAMELLIA128-SHA ECDHE-ECDSA-AES128-SHA CAMELLIA128-SHA ECDHE-RSA-DES-CBC3-SHA SEED-SHA DHE-DSS-CAMELLIA256-SHA DHE-RSA-SEED-SHA ECDH-RSA-RC4-SHA DHE-DSS-SEED-SHA ECDHE-RSA-RC4-SHA PSK-AES256-CBC-SHA}
---- 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 $clientKey 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 Sun Nov 20 16:48:26 +0000 2011
all.tcl: Total 68 Passed 46 Skipped 19 Failed 3
Sourced 0 Test Files.
Files with failing tests: ciphers.test tlsIO.test
Number of tests skipped for each constraint:
12 doTestsWithRemoteServer
2 notRoot
2 rsabsafe
1 testthread
2 unexplainedFailure
==> ERROR: A failure occurred in build().

Additional info:
* tls 1.6-3

Steps to reproduce:
Try to build it.