diff options
| author | dgp@users.sourceforge.net <dgp> | 2013-01-31 04:07:11 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2013-01-31 04:07:11 (GMT) |
| commit | 1f41f36c4341d8f1eec1287c65e89c379e7e0acc (patch) | |
| tree | 6695395a2f875d5c646a7d05804b961cd7262974 | |
| parent | 915692c38207cb70f5da649c563aab3d85e25fb6 (diff) | |
| download | tcl-1f41f36c4341d8f1eec1287c65e89c379e7e0acc.zip tcl-1f41f36c4341d8f1eec1287c65e89c379e7e0acc.tar.gz tcl-1f41f36c4341d8f1eec1287c65e89c379e7e0acc.tar.bz2 | |
Better testevent cleanup and event loop management
| -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 |