Subject: Better testevent cleanup and event loop management

From: dgp <[email-masked]>
Date: Thu, 31 Jan 2013 04:07:11 +0000

---
 tests/parse.test | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/tests/parse.test b/tests/parse.test
index 6d344d2..b9cfe80 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -1092,11 +1092,10 @@ test parse-20.12 {TclParseBackslash: truncated escape} testparser {
 } {- {\x12X} 1 word {\x12X} 2 backslash {\x12} 0 text X 0 {}}
 
 test parse-21.0 {Bug 1884496} testevent {
-    set ::script {set a [p]; return -level 0 $a}
+    set ::script {testevent delete a; set a [p]; set ::done $a}
     proc ::p {} {string first s $::script}
     testevent queue a head $::script
-    update
-    testevent delete a
+    vwait done
 } {}
 
 cleanupTests
-- 
cgit v0.12