1 files changed, 2 insertions, 38 deletions
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 7f27266..dfa7d06 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -971,17 +971,6 @@ proc onfinal {} {
     if {[lindex $hargs 0] ne "finalize"} {return}
     return -code return ""
 }
-
-proc onwatch {} {
-    upvar args hargs
-    lassign $hargs watch chan eventspec
-    if {$watch ne "watch"} return
-    foreach spec $eventspec {
-	chan postevent $chan $spec
-    }
-    return
-}
-
 }
 
 # Set everything up in the main thread.
@@ -2063,7 +2052,7 @@ test iocmd-31.6 {chan postevent, posted events do happen} -match glob -body {
     close $c
     rename foo {}
     set res
-} -result {{watch rc* read} {} {} TOCK {watch rc* {}}}
+} -result {{watch rc* read} {} TOCK {} {watch rc* {}}}
 test iocmd-31.7 {chan postevent, posted events do happen} -match glob -body {
     set res {}
     proc foo {args} {oninit; onfinal; track; return}
@@ -2076,7 +2065,7 @@ test iocmd-31.7 {chan postevent, posted events do happen} -match glob -body {
     close $c
     rename foo {}
     set res
-} -result {{watch rc* write} {} {} TOCK {watch rc* {}}}
+} -result {{watch rc* write} {} TOCK {} {watch rc* {}}}
 test iocmd-31.8 {chan postevent after close throws error} -match glob -setup {
     proc foo {args} {oninit; onfinal; track; return}
     proc dummy args { return }
@@ -2089,31 +2078,6 @@ test iocmd-31.8 {chan postevent after close throws error} -match glob -setup {
     rename foo   {}
     rename dummy {}
 } -returnCodes error -result {can not find reflected channel named "rc*"}
-test iocmd-31.9 {
-    chan postevent
-
-    call to current coroutine
-
-    see 67a5eabbd3d1
-} -match glob -body {
-    set res {}
-    proc foo {args} {oninit; onwatch; onfinal; track; return}
-    set c [chan create {r w} foo]
-    after 0 [list ::apply [list c {
-	coroutine c1 ::apply [list c {
-	    chan event $c readable [list [info coroutine]]
-	    yield
-	    set ::done READING
-	} [namespace current]] $c
-    } [namespace current]] $c]
-    set stop [after 10000 {set done TIMEOUT}]
-    vwait ::done
-    catch {after cancel $stop}
-    lappend res $done
-    close $c
-    rename foo {}
-    set res
-} -result {{watch rc* read} READING {watch rc* {}}}
 
 # --- === *** ###########################
 # 'Pull the rug' tests. Create channel in a interpreter A, move to