Overview
Comment: | changed list of skipped tests |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f57040cb97c4a0e0bde5e4327b7eaa71 |
User & Date: | aborr on 2000-06-05 23:31:17 |
Other Links: | manifest | tags |
Context
2000-06-06
| ||
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 | |
23:11 | restored normal opration for multiple tests check-in: adb6a2840a user: aborr tags: trunk | |
Changes
Modified tests/tlsIO.test
from [1dc1216bd3]
to [d89e7e40f3].
1 2 3 4 5 6 7 8 9 10 11 12 | 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. # |
︙ | |||
1010 1011 1012 1013 1014 1015 1016 | 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 | - + | after cancel $timer close $s close $s1 set l "" lappend l [lindex $x 0] [lindex $x 2] [llength $x] } {127.0.0.1 2829 3} |
︙ | |||
1045 1046 1047 1048 1049 1050 1051 | 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 | - + | vwait x set z [gets $s1] close $s close $s1 set z } bye |
︙ | |||
1090 1091 1092 1093 1094 1095 1096 | 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 | - - | test tlsIO-9.2 {testing async write, fileevents, flush on close} {socket} { set firstblock "" 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" } |
︙ | |||
1138 1139 1140 1141 1142 1143 1144 | 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 | - + | set timer [after 10000 "set done timed_out"] vwait done after cancel $timer close $l set count } 65566 |
︙ | |||
1430 1431 1432 1433 1434 1435 1436 | 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 |
︙ | |||
1537 1538 1539 1540 1541 1542 1543 | 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} |
︙ | |||
1857 1858 1859 1860 1861 1862 1863 | 1855 1856 1857 1858 1859 1860 1861 1862 1863 1864 1865 1866 1867 1868 1869 | - + | } removeFile script1 removeFile script2 set x } {client socket was not inherited} test tlsIO-12.3 {testing inheritance of accepted sockets} \ |
︙ |