From 2325ddede0d49a1700d83457e8e36da87e548ccf Mon Sep 17 00:00:00 2001
From: sebres <sebres@users.sourceforge.net>
Date: Thu, 7 Nov 2019 18:36:57 +0000
Subject: added removal of timeout-event in cleanup of io-44.6 (can bother
 followed tests), removed unneeded constraint

---
 tests/io.test | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/io.test b/tests/io.test
index 9bd87ef..519191f 100644
--- a/tests/io.test
+++ b/tests/io.test
@@ -5965,8 +5965,8 @@ test io-44.5 {FileEventProc procedure: end of file} {stdio unixExecs openpipe fi
 
 close $f
 
-test chan-io-44.6 {FileEventProc procedure: write-only non-blocking channel} -setup {
-} -constraints {stdio unixExecs fileevent openpipe} -body {
+test io-44.6 {FileEventProc procedure: write-only non-blocking channel} -setup {
+} -constraints {stdio fileevent openpipe} -body {
 
     namespace eval refchan {
 	namespace ensemble create
@@ -6017,12 +6017,13 @@ test chan-io-44.6 {FileEventProc procedure: write-only non-blocking channel} -se
 	    set x done
 	}
     }]
-    after 10000 [namespace code {
+    set token [after 10000 [namespace code {
 	set x timeout
-    }]
+    }]]
     vwait [namespace which -variable x]
     return $x
 } -cleanup {
+    after cancel $token
     catch {chan close $f}
 } -result done
 
-- 
cgit v0.12