summaryrefslogtreecommitdiffstats
path: root/tests/util.test
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-07-19 19:26:32 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-07-19 19:26:32 (GMT)
commit66bf88283d33ff4538e807214de979b630e80158 (patch)
treed74bdd8ad542645ce1e26868e9057de02e70b176 /tests/util.test
parentc4e6823834ff315ac0cbc1dab5f3749482696aab (diff)
downloadtcl-66bf88283d33ff4538e807214de979b630e80158.zip
tcl-66bf88283d33ff4538e807214de979b630e80158.tar.gz
tcl-66bf88283d33ff4538e807214de979b630e80158.tar.bz2
3371644 Repair failure to properly handle (length == -1) in TclConvertElement().
Diffstat (limited to 'tests/util.test')
-rw-r--r--tests/util.test8
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test
index 6a0785e..c910b43 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -174,6 +174,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
@@ -3889,4 +3895,4 @@ return
# Local Variables:
# mode: tcl
-# End: \ No newline at end of file
+# End: