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 | 99ecee8cb3c06e93fea5fe747e80d77e597e20db (patch) | |
| tree | 3eedaa81dd0b7b628be86a4236e29615f3246553 | |
| parent | 00e11c3ec5f6bb3a92fc6bc01c8c011185ff6549 (diff) | |
| download | tcl-99ecee8cb3c06e93fea5fe747e80d77e597e20db.zip tcl-99ecee8cb3c06e93fea5fe747e80d77e597e20db.tar.gz tcl-99ecee8cb3c06e93fea5fe747e80d77e597e20db.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} # ### ### ### ######### ######### ######### |