event.test: Fix spurious stderr output

Expect output to stderr when an error happens inside bgerror,
so catch it.

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 13 insertions, 6 deletions

diff --git a/tests/event.test b/tests/event.test
index 4f0b3c7..bda47b0 100644
--- a/tests/event.test
+++ b/tests/event.test
@@ -78,18 +78,24 @@ test event-7.4 {bgerror throws an error} -constraints jim -body {
         }
         after 0 {error err1}
         update
-    }
+    } 2>gorp.err
+    set f [open gorp.err]
+    set err [read $f]
+    close $f
+    set err
 } -result {stdin:3: Error: inside bgerror
 Traceback (most recent call last):
   File "stdin", line 6
     bgerror err1
   File "stdin", line 3, in bgerror
-    error {inside bgerror}}
+    error {inside bgerror}
+} -cleanup {
+    file delete gorp.err
+}
 
 # end of bgerror tests
 catch {rename bgerror {}}
 
-
 test event-10.1 {Tcl_Exit procedure} exec {
     set cmd [list exec [info nameofexecutable] "<<exit 3"]
     list [catch $cmd msg] [lindex $errorCode 0] \
@@ -170,9 +176,10 @@ test event-11.6 {Tcl_VwaitCmd procedure: round robin scheduling, same source} {s
     list $x $y $z
 } {3 3 done}
 
-test event-12.1 {Tcl_UpdateCmd procedure} {
-    list [catch {update a b} msg] $msg
-} {1 {wrong # args: should be "update ?idletasks?"}}
+test event-12.1 {Tcl_UpdateCmd procedure - usage} -body {
+    update a b
+} -returnCodes error -result {wrong # args: should be "update ?idletasks?"}
+
 test event-12.3 {Tcl_UpdateCmd procedure} {
     foreach i [after info] {
 	after cancel $i