diff options
| author | dgp@users.sourceforge.net <dgp> | 2011-07-19 19:31:31 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2011-07-19 19:31:31 (GMT) |
| commit | bb7f6a8674ca66b329d49198764efe19cdb1c61e (patch) | |
| tree | 94cd602dcf7621440e6a3ecbe365cb755ee368d3 /tests/util.test | |
| parent | db1ca791c185d9508e8964dd6ea7cf0c0283648b (diff) | |
| parent | 9eab705b3e253d233b0f5ca10e0f38770e65d471 (diff) | |
| download | tcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.zip tcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.tar.gz tcl-bb7f6a8674ca66b329d49198764efe19cdb1c61e.tar.bz2 | |
3371644 Repair failure to properly handle (length == -1) in TclConvertElement().
Diffstat (limited to 'tests/util.test')
| -rw-r--r-- | tests/util.test | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test index d06925b..15457da 100644 --- a/tests/util.test +++ b/tests/util.test @@ -175,6 +175,12 @@ test util-3.5.1 {Tcl_ConverCountedElement procedure - quote leading '#'} { rename #\{ {} set result } {#} +test util-3.6 {Tcl_ConvertElement, Bug 3371644} { + interp create #\\ + interp alias {} x #\\ concat + interp target {} x ;# Crash if bug not fixed + interp delete #\\ +} {} test util-4.1 {Tcl_ConcatObj - backslash-space at end of argument} { concat a {b\ } c @@ -3895,4 +3901,4 @@ return # Local Variables: # mode: tcl -# End: +# End:
\ No newline at end of file |