diff options
Diffstat (limited to 'tests/event.test')
| -rw-r--r-- | tests/event.test | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/tests/event.test b/tests/event.test index 3f9735a..16cbc24 100644 --- a/tests/event.test +++ b/tests/event.test @@ -509,12 +509,9 @@ test event-10.1 {Tcl_Exit procedure} {stdio} { [lindex $::errorCode 2] } {1 {child process exited abnormally} CHILDSTATUS 3} -test event-11.1 {Tcl_VwaitCmd procedure} -returnCodes error -body { +test event-11.1 {Tcl_VwaitCmd procedure} -body { vwait -} -result {wrong # args: should be "vwait name"} -test event-11.2 {Tcl_VwaitCmd procedure} -returnCodes error -body { - vwait a b -} -result {wrong # args: should be "vwait name"} +} -result {} test event-11.3 {Tcl_VwaitCmd procedure} -setup { catch {unset x} } -body { |