diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-08-07 16:01:53 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-08-07 16:01:53 (GMT) |
| commit | f6f0891fffa23a7577553a42c1f2d16fbcb8170a (patch) | |
| tree | 32a70c9488bf171a775c4abcf8cc0acdf506114a /tests | |
| parent | 27c5ada57e78e8de829d5e5d7dd0070b9b5a5279 (diff) | |
| download | tcl-f6f0891fffa23a7577553a42c1f2d16fbcb8170a.zip tcl-f6f0891fffa23a7577553a42c1f2d16fbcb8170a.tar.gz tcl-f6f0891fffa23a7577553a42c1f2d16fbcb8170a.tar.bz2 | |
Test for TclContinuationsGet() usage, and simplifications.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/parse.test b/tests/parse.test index 9f2d50b..01443c9 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -1118,6 +1118,12 @@ test parse-21.0 {Bug 1884496} testevent { testevent queue a head $::script vwait done } {} +test parse-21.1 {TCL_EVAL_DIRECT coverage} testevent { + testevent queue a head {testevent delete a; \ + set ::done [dict get [info frame 0] line]} + vwait done + set ::done +} 2 cleanupTests } |