summaryrefslogtreecommitdiffstats
path: root/tests/parse.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-08-07 16:01:53 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-08-07 16:01:53 (GMT)
commitfd31090a583e76ccb81747a37f56e865669aebae (patch)
tree32a70c9488bf171a775c4abcf8cc0acdf506114a /tests/parse.test
parent9923dc2908c517db587b6cbb398398ab3e45ec16 (diff)
downloadtcl-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.test6
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
}