summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-08-17 14:15:24 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-08-17 14:15:24 (GMT)
commitd49908850f4747e397786cba1c88d3aca348eb36 (patch)
treebb2b51fe89b8a3295adbd6dbf7f01e53f4b89469 /tests
parent146f94987b85cac730a1bde68d0e16d6907f79c0 (diff)
downloadtcl-d49908850f4747e397786cba1c88d3aca348eb36.zip
tcl-d49908850f4747e397786cba1c88d3aca348eb36.tar.gz
tcl-d49908850f4747e397786cba1c88d3aca348eb36.tar.bz2
* generic/tclTest.c (TestconcatobjCmd):
* generic/tclUtil.c (Tcl_ConcatObj): * tests/util.test (util-4.7): fix [Bug 1447328]; the original "fix" turned Tcl_ConcatObj() into a hairy monster. This was exposed by [Bug 2055782]. Additionally, Tcl_ConcatObj could corrupt its input under certain conditions! *** NASTY BUG FIXED ***
Diffstat (limited to 'tests')
-rw-r--r--tests/util.test7
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test
index 8c1ef26..61e0fff 100644
--- a/tests/util.test
+++ b/tests/util.test
@@ -7,7 +7,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: util.test,v 1.18 2006/03/21 11:12:29 dkf Exp $
+# RCS: @(#) $Id: util.test,v 1.19 2008/08/17 14:15:26 msofer Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -163,6 +163,11 @@ test util-4.6 {Tcl_ConcatObj - utf-8 sequence with "whitespace" char} {
# Check for Bug #227512. If this violates C isspace, then it returns \xc3.
concat \xe0
} \xe0
+test util-4.7 {Tcl_ConcatObj - refCount safety} {
+ # Check for Bug #1447328 (actually, bugs in its original "fix"). One of the
+ # symptoms was Bug #2055782.
+ testconcatobj
+} {}
proc Wrapper_Tcl_StringMatch {pattern string} {
# Forces use of Tcl_StringMatch, not Tcl_UniCharCaseMatch