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 | fd31090a583e76ccb81747a37f56e865669aebae (patch) | |
| tree | 32a70c9488bf171a775c4abcf8cc0acdf506114a /tests/parse.test | |
| parent | 9923dc2908c517db587b6cbb398398ab3e45ec16 (diff) | |
| download | tcl-fd31090a583e76ccb81747a37f56e865669aebae.zip tcl-fd31090a583e76ccb81747a37f56e865669aebae.tar.gz tcl-fd31090a583e76ccb81747a37f56e865669aebae.tar.bz2 | |
Test for TclContinuationsGet() usage, and simplifications.
Diffstat (limited to 'tests/parse.test')
| -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 } |