summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-01-11 17:27:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-01-11 17:27:38 (GMT)
commit1092d1065d97d23b48062e4390604b39ff939aca (patch)
treec5a97cfe8d7b273f36bd7a58bfdc94eee2992f05 /tests
parent0c2d5031a205445ac91209816f31a8a943b3921a (diff)
downloadtcl-1092d1065d97d23b48062e4390604b39ff939aca.zip
tcl-1092d1065d97d23b48062e4390604b39ff939aca.tar.gz
tcl-1092d1065d97d23b48062e4390604b39ff939aca.tar.bz2
Test for Bug 1884496 (not buggy on trunk).
Diffstat (limited to 'tests')
-rw-r--r--tests/parse.test9
1 files changed, 9 insertions, 0 deletions
diff --git a/tests/parse.test b/tests/parse.test
index 0f76d64..bc4107d 100644
--- a/tests/parse.test
+++ b/tests/parse.test
@@ -26,6 +26,7 @@ testConstraint testparsevarname [llength [info commands testparsevarname]]
testConstraint testparsevar [llength [info commands testparsevar]]
testConstraint testasync [llength [info commands testasync]]
testConstraint testcmdtrace [llength [info commands testcmdtrace]]
+testConstraint testevent [llength [info commands testevent]]
test parse-1.1 {Tcl_ParseCommand procedure, computing string length} testparser {
testparser [bytestring "foo\0 bar"] -1
@@ -1090,6 +1091,14 @@ test parse-20.12 {TclParseBackslash: truncated escape} testparser {
testparser {\x12X} 5
} {- {\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}
+ proc ::p {} {string first s $::script}
+ testevent queue a head $::script
+ update
+} {}
+
+
cleanupTests
}