diff options
| author | sebres <sebres@users.sourceforge.net> | 2024-05-16 08:49:27 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2024-05-16 08:49:27 (GMT) |
| commit | 51dc3f20b034af043d0a14d6d79a60c6431baa0d (patch) | |
| tree | 3eedaa81dd0b7b628be86a4236e29615f3246553 /tests/ioCmd.test | |
| parent | 629a54ead590bd0ba6024743ae3d424183e095dc (diff) | |
| download | tcl-51dc3f20b034af043d0a14d6d79a60c6431baa0d.zip tcl-51dc3f20b034af043d0a14d6d79a60c6431baa0d.tar.gz tcl-51dc3f20b034af043d0a14d6d79a60c6431baa0d.tar.bz2 | |
test: clean timeout timer
Diffstat (limited to 'tests/ioCmd.test')
| -rw-r--r-- | tests/ioCmd.test | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test index 2f13904..b341aa8 100644 --- a/tests/ioCmd.test +++ b/tests/ioCmd.test @@ -2128,6 +2128,7 @@ test iocmd-32.3 {prevent copy-state against segfault by finalize, bug [79474c588 } } set clchlst {} + set toev {} } -body { set ::ret {} set ch [chan create "read write" test_chan] @@ -2168,14 +2169,15 @@ test iocmd-32.3 {prevent copy-state against segfault by finalize, bug [79474c588 } }} $ch $out1] - after 5000 {set ::done tout} + set toev [after 5000 {set ::done tout}] vwait ::done list {*}$::ret $::done } -cleanup { foreach ch $clchlst { catch {close $ch} } - unset -nocomplain ::done ::ret ch in1 in2 in3 out1 out2 out3 + if {$toev ne ""} { after cancel $toev } + unset -nocomplain ::done ::ret ch in1 in2 in3 out1 out2 out3 toev } -result {initialize read write finalize done} # ### ### ### ######### ######### ######### |