diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-12 22:23:29 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-12 22:23:29 (GMT) |
| commit | 2eb2362fbf11bf4747a0e1b3e1d75d55c83ba1a9 (patch) | |
| tree | 62ad7f6aef771789dcbd53f0de65dc646ca1586d /tests | |
| parent | 9c8f288cd88461a952b3310b899cb40a1e81b194 (diff) | |
| parent | 84b9c7728c8f168edce68d529ddac68a5056e766 (diff) | |
| download | tcl-2eb2362fbf11bf4747a0e1b3e1d75d55c83ba1a9.zip tcl-2eb2362fbf11bf4747a0e1b3e1d75d55c83ba1a9.tar.gz tcl-2eb2362fbf11bf4747a0e1b3e1d75d55c83ba1a9.tar.bz2 | |
merge trunk
Remove various double-defined (both in public and private stub tables) functions from private stub table
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.test | 9 |
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 } |