summaryrefslogtreecommitdiffstats
path: root/tests/parse.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-01-31 04:07:11 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-01-31 04:07:11 (GMT)
commit44190ea60f6a7868121b707af0146d2f83a4eb55 (patch)
tree6695395a2f875d5c646a7d05804b961cd7262974 /tests/parse.test
parentdda76da2402a616960ec07094b574d333415366f (diff)
downloadtcl-44190ea60f6a7868121b707af0146d2f83a4eb55.zip
tcl-44190ea60f6a7868121b707af0146d2f83a4eb55.tar.gz
tcl-44190ea60f6a7868121b707af0146d2f83a4eb55.tar.bz2
Better testevent cleanup and event loop management
Diffstat (limited to 'tests/parse.test')
-rw-r--r--tests/parse.test5
1 files 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