Overview
| Comment: | turned off remote server tests that hang |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
1228a8f7ea531ef8bebddc8229f60e2a |
| User & Date: | aborr on 2000-06-06 00:48:41 |
| Other Links: | manifest | tags |
Context
|
2000-06-06
| ||
| 01:04 | * tlsInt.h: * tls.c: Cleaned up declarations of Tls_Clean to avoid errors on Windows (lint). check-in: 5ab4c35956 user: stanton tags: trunk | |
| 00:48 | turned off remote server tests that hang check-in: 1228a8f7ea user: aborr tags: trunk | |
|
2000-06-05
| ||
| 23:31 | changed list of skipped tests check-in: f57040cb97 user: aborr tags: trunk | |
Changes
Modified tests/tlsIO.test
from [d89e7e40f3]
to [874a13908a].
1 2 3 4 5 6 7 8 9 10 11 12 | # Commands tested in this file: socket. # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright (c) 1994-1996 Sun Microsystems, Inc. # 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. # | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | # Commands tested in this file: socket. # # This file contains a collection of tests for one or more of the Tcl # built-in commands. Sourcing this file into Tcl runs the tests and # generates output for errors. No output means no errors were found. # # Copyright (c) 1994-1996 Sun Microsystems, Inc. # 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.7 2000/06/06 00:48:41 aborr Exp $ # Running socket tests with a remote server: # ------------------------------------------ # # Some tests in socket.test depend on the existence of a remote server to # which they connect. The remote server must be an instance of tcltest and it # must run the script found in the file "remote.tcl" in this directory. You |
| ︙ | ︙ | |||
1428 1429 1430 1431 1432 1433 1434 |
close $s1
close $s2
close $s3
sendCommand {close $socket10_9_test_server}
set i
} 100
| | | 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 |
close $s1
close $s2
close $s3
sendCommand {close $socket10_9_test_server}
set i
} 100
test tlsIO-11.8 {client with several servers} {unexplainedHang 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] \
-keyfile [file join [pwd] certs skey.pem] \
-server "accept 4003" 4003]
|
| ︙ | ︙ | |||
1535 1536 1537 1538 1539 1540 1541 |
set l ""
lappend l [lindex $p 2] [llength $p] [llength $p]
close $s
sendCommand {close $socket10_12_test_server}
set l
} {2836 3 3}
| | | 1535 1536 1537 1538 1539 1540 1541 1542 1543 1544 1545 1546 1547 1548 1549 |
set l ""
lappend l [lindex $p 2] [llength $p] [llength $p]
close $s
sendCommand {close $socket10_12_test_server}
set l
} {2836 3 3}
test tlsIO-11.11 {testing spurious events} {unexplainedHang socket doTestsWithRemoteServer} {
# hangs
sendCommand "set caCert $caCert"
sendCommand "set serverCert $serverCert"
sendCommand "set clientCert $clientCert"
sendCommand "set serverKey $serverKey"
sendCommand "set clientKey $clientKey"
sendCommand {
|
| ︙ | ︙ |