diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-31 04:07:11 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-31 04:07:11 (GMT) |
| commit | 44190ea60f6a7868121b707af0146d2f83a4eb55 (patch) | |
| tree | 6695395a2f875d5c646a7d05804b961cd7262974 /tests/parse.test | |
| parent | dda76da2402a616960ec07094b574d333415366f (diff) | |
| download | tcl-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.test | 5 |
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 |