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 | 215645597f4f94533ab6a566d7ed694e8cc355cb (patch) | |
| tree | 3eedaa81dd0b7b628be86a4236e29615f3246553 | |
| parent | a8c69c7efa259c4dd5b5f15dbfa08361e9bb8d3b (diff) | |
| download | tcl-215645597f4f94533ab6a566d7ed694e8cc355cb.zip tcl-215645597f4f94533ab6a566d7ed694e8cc355cb.tar.gz tcl-215645597f4f94533ab6a566d7ed694e8cc355cb.tar.bz2 | |
test: clean timeout timer
| -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} # ### ### ### ######### ######### ######### |