Overview
Comment: | * tests/tlsIO.test: enabled tests 2.10, 7.[1245] (there is no 3), which now pass. Added some comments to other failing tests. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | tls-1-3-io-rewrite |
Files: | files | file ages | folders |
SHA1: |
7b1825af0dd5fda14d8d84037aed20bc |
User & Date: | hobbs on 2000-07-14 04:10:22 |
Other Links: | branch diff | manifest | tags |
Context
2000-07-17
| ||
23:17 | * pkgIndex.tcl.in: * configure.in: updated version to 1.4 check-in: 1e0de94a93 user: hobbs tags: tls-1-3-io-rewrite | |
2000-07-14
| ||
04:10 | * tests/tlsIO.test: enabled tests 2.10, 7.[1245] (there is no 3), which now pass. Added some comments to other failing tests. check-in: 7b1825af0d user: hobbs tags: tls-1-3-io-rewrite | |
2000-07-12
| ||
01:54 | * tlsIO.c: changed all the channel procs to start with Tls* for better parity when comparing with Transform channel procs. Rewrote TlsWatchProc, added TlsNotifyProc according to the new channel design, which also leaves TlsChannelHandler unused. * tlsBIO.c (BioCtrl): changed BIO_CTRL_FLUSH case to use Tcl_WriteRaw instead of Tcl_Flush (to operate on correct channel in the stack instead of starting at the top again). Would otherwise cause a recursive stack bomb when implicit handshaking took effect. check-in: a27c6affe5 user: hobbs tags: tls-1-3-io-rewrite | |
Changes
Modified ChangeLog from [acd3ab6a5a] to [fac07465ee].
1 2 3 4 5 6 7 |
2000-07-11 Jeff Hobbs <[email protected]> * tlsIO.c: changed all the channel procs to start with Tls* for better parity when comparing with Transform channel procs. Rewrote TlsWatchProc, added TlsNotifyProc according to the new channel design, which also leaves TlsChannelHandler unused. |
> > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 |
2000-07-13 Jeff Hobbs <[email protected]> * tests/tlsIO.test: enabled tests 2.10, 7.[1245] (there is no 3), which now pass. Added some comments to other failing tests. 2000-07-11 Jeff Hobbs <[email protected]> * tlsIO.c: changed all the channel procs to start with Tls* for better parity when comparing with Transform channel procs. Rewrote TlsWatchProc, added TlsNotifyProc according to the new channel design, which also leaves TlsChannelHandler unused. |
Modified tests/tlsIO.test from [7d00fa23e9] to [3c2ae49926].
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 ... 601 602 603 604 605 606 607 608 609 610 611 612 613 614 ... 864 865 866 867 868 869 870 871 872 873 874 875 876 877 ... 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 ... 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 ... 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 ... 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 .... 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 .... 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 .... 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 .... 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 |
# # 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.14.2.2 2000/07/12 01:54:03 hobbs 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 ................................................................................ invoked from within "eval ::socket $sopts" (procedure "tls::socket" line 62) invoked from within "tls::socket -server accept 8828" (file "script" line 1)}} test tlsIO-2.10 {close on accept, accepted socket lives} {socket knownBug} { set done 0 set timer [after 20000 "set done timed_out"] set ss [tls::socket -server accept -certfile $serverCert -cafile $caCert \ -keyfile $serverKey 8830] proc accept {s a p} { global ss close $ss ................................................................................ vwait done after cancel $timer set done } 1 test tlsIO-2.11 {detecting new data} {socket knownBug} { proc accept {s a p} { global sock set sock $s set f [open awb.log w] puts $f [catch {tls::handshake $sock} err] puts $f "err: $err" puts $f "[tls::status $sock]" ................................................................................ set x {htons problem, should be disallowed, are you running as SU?} close $msg } set x } {couldn't open socket: not owner} 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 tls::socket 127.0.0.1 8848 } ................................................................................ close $s rename bgerror {} set x } {{divide by zero}} # 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 } puts $f "tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 8820" puts $f { ................................................................................ lappend l [string compare [lindex $p 0] 127.0.0.1] lappend l [string compare [lindex $p 2] 8820] lappend l [llength $p] } {0 0 3} # 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 } puts $f "tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 8821" puts $f { ................................................................................ close $s update llength $l } 12 # 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 8823] proc accept {s a p} { global x set x [fconfigure $s -sockname] close $s ................................................................................ close $s1 set l "" lappend l [lindex $x 2] [llength $x] } {8823 3} # 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 8829] proc accept {s a p} { global x set x [fconfigure $s -sockname] close $s ................................................................................ close $s close $s1 set l "" lappend l [lindex $x 0] [lindex $x 2] [llength $x] } {127.0.0.1 8829 3} test tlsIO-8.1 {testing -async flag on sockets} {unexplainedHang socket} { # test seems to hang -- awb 6/2/2000 # NOTE: This test may fail on some Solaris 2.4 systems. If it does, # check that you have these patches installed (using showrev -p): # # 101907-05, 101925-02, 101945-14, 101959-03, 101969-05, 101973-03, # 101977-03, 101981-02, 101985-01, 102001-03, 102003-01, 102007-01, # 102011-02, 102024-01, 102039-01, 102044-01, 102048-01, 102062-03, ................................................................................ set z [gets $s1] close $s close $s1 set z } bye test tlsIO-9.1 {testing spurious events} {unexplainedHang socket} { # locks up set len 0 set spurious 0 set done 0 proc readlittle {s} { global spurious done len set l [read $s 1] ................................................................................ vwait done after cancel $timer close $s list $spurious $len } {0 50} 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" } set l [tls::socket \ ................................................................................ incr count [string length $l] if {[eof $s]} { close $s set done 1 } } fileevent $s readable "readit $s" set timer [after 10000 "set done timed_out"] vwait done after cancel $timer close $l set count } 65566 test tlsIO-9.3 {testing EOF stickyness} {unexplainedHang socket} { # hangs proc count_to_eof {s} { global count done timer set l [gets $s] if {[eof $s]} { incr count if {$count > 9} { |
| | > > | | | | > > > > > | | > |
6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ... 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 ... 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 ... 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 ... 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 ... 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 ... 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 ... 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 .... 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 .... 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 .... 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 .... 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 |
# # 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.14.2.3 2000/07/14 04:10:23 hobbs 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 ................................................................................ invoked from within "eval ::socket $sopts" (procedure "tls::socket" line 62) invoked from within "tls::socket -server accept 8828" (file "script" line 1)}} test tlsIO-2.10 {close on accept, accepted socket lives} {socket} { set done 0 set timer [after 20000 "set done timed_out"] set ss [tls::socket -server accept -certfile $serverCert -cafile $caCert \ -keyfile $serverKey 8830] proc accept {s a p} { global ss close $ss ................................................................................ vwait done after cancel $timer set done } 1 test tlsIO-2.11 {detecting new data} {socket knownBug} { # HOBBS: hung pre-rewrite, hangs post-rewrite proc accept {s a p} { global sock set sock $s set f [open awb.log w] puts $f [catch {tls::handshake $sock} err] puts $f "err: $err" puts $f "[tls::status $sock]" ................................................................................ set x {htons problem, should be disallowed, are you running as SU?} close $msg } set x } {couldn't open socket: not owner} test tlsIO-6.1 {accept callback error} {unexplainedFailure socket stdio pcCrash} { # HOBBS: still fails post-rewrite removeFile script set f [open script w] puts $f { package require tls gets stdin tls::socket 127.0.0.1 8848 } ................................................................................ close $s rename bgerror {} set x } {{divide by zero}} # bug report #5812 fconfigure doesn't return value for '-peername' test tlsIO-7.1 {testing socket specific options} {socket stdio} { removeFile script set f [open script w] puts $f { package require tls } puts $f "tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 8820" puts $f { ................................................................................ lappend l [string compare [lindex $p 0] 127.0.0.1] lappend l [string compare [lindex $p 2] 8820] lappend l [llength $p] } {0 0 3} # bug report #5812 fconfigure doesn't return value for '-sockname' test tlsIO-7.2 {testing socket specific options} {socket stdio} { removeFile script set f [open script w] puts $f { package require tls } puts $f "tls::socket -server accept -certfile $serverCert -cafile $caCert -keyfile $serverKey 8821" puts $f { ................................................................................ close $s update llength $l } 12 # bug report #5812 fconfigure doesn't return value for '-sockname' test tlsIO-7.4 {testing socket specific options} {socket} { set s [tls::socket \ -certfile $serverCert -cafile $caCert -keyfile $serverKey \ -server accept 8823] proc accept {s a p} { global x set x [fconfigure $s -sockname] close $s ................................................................................ close $s1 set l "" lappend l [lindex $x 2] [llength $x] } {8823 3} # bug report #5812 fconfigure doesn't return value for '-sockname' test tlsIO-7.5 {testing socket specific options} {socket unixOrPc} { set s [tls::socket \ -certfile $serverCert -cafile $caCert -keyfile $serverKey \ -server accept 8829] proc accept {s a p} { global x set x [fconfigure $s -sockname] close $s ................................................................................ close $s close $s1 set l "" lappend l [lindex $x 0] [lindex $x 2] [llength $x] } {127.0.0.1 8829 3} test tlsIO-8.1 {testing -async flag on sockets} {unexplainedHang socket} { # HOBBS: still fails post-rewrite # test seems to hang -- awb 6/2/2000 # NOTE: This test may fail on some Solaris 2.4 systems. If it does, # check that you have these patches installed (using showrev -p): # # 101907-05, 101925-02, 101945-14, 101959-03, 101969-05, 101973-03, # 101977-03, 101981-02, 101985-01, 102001-03, 102003-01, 102007-01, # 102011-02, 102024-01, 102039-01, 102044-01, 102048-01, 102062-03, ................................................................................ set z [gets $s1] close $s close $s1 set z } bye test tlsIO-9.1 {testing spurious events} {unexplainedHang socket} { # HOBBS: still fails post-rewrite # locks up set len 0 set spurious 0 set done 0 proc readlittle {s} { global spurious done len set l [read $s 1] ................................................................................ vwait done after cancel $timer close $s list $spurious $len } {0 50} test tlsIO-9.2 {testing async write, fileevents, flush on close} {socket} { # HOBBS: This hangs when I turn blocking on. # 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" } set l [tls::socket \ ................................................................................ incr count [string length $l] if {[eof $s]} { close $s set done 1 } } fileevent $s readable "readit $s" set done 0 set timer [after 10000 "set done timed_out"] vwait done after cancel $timer close $l list $count $done } {65566 1} test tlsIO-9.3 {testing EOF stickyness} {unexplainedHang socket} { # HOBBS: still fails post-rewrite # hangs proc count_to_eof {s} { global count done timer set l [gets $s] if {[eof $s]} { incr count if {$count > 9} { |