diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-16 11:06:19 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-04-16 11:06:19 (GMT) |
commit | ccf3025bc37820c0ddf12cca5197f374e156324d (patch) | |
tree | 4e3298974ddb809fc61107f0012b191827be0312 /tests | |
parent | 13aaf9c46acb147461bc3f09089c575d4af087d0 (diff) | |
parent | 7f0bded35ff4e57468cb618dd14770a60d268195 (diff) | |
download | tcl-ccf3025bc37820c0ddf12cca5197f374e156324d.zip tcl-ccf3025bc37820c0ddf12cca5197f374e156324d.tar.gz tcl-ccf3025bc37820c0ddf12cca5197f374e156324d.tar.bz2 |
merge trunk.
Remove (internal) functions TclWinGetServByName(), TclWinGetSockOpt() and TclWinSetSockOpt(), which are no longer needed for any purpose.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/ioCmd.test | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index a150d59..0a61252 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -793,6 +793,25 @@ test iocmd-21.19 {chan create, init failure -> no channel, no finalize} -match g rename foo {} set res } -result {{} {initialize rc* {read write}} 1 {*all required methods*} {}} +test iocmd-21.20 {Bug 88aef05cda} -setup { + proc foo {method chan args} { + switch -- $method blocking { + chan configure $chan -blocking [lindex $args 0] + return + } initialize { + return {initialize finalize watch blocking read write + configure cget cgetall} + } finalize { + return + } + } + set ch [chan create {read write} foo] +} -body { + list [catch {chan configure $ch -blocking 0} m] $m +} -cleanup { + close $ch + rename foo {} +} -match glob -result {1 {*nested eval*}} # --- --- --- --------- --------- --------- # Helper commands to record the arguments to handler methods. |