diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-17 14:12:31 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-17 14:12:31 (GMT) |
| commit | d602e66103d1f659836379fa3669ad97e3d2f310 (patch) | |
| tree | aea585ac64e29663faac8bc607d5b2a1bf36bb44 /tests | |
| parent | c830752ac8861db9a7f418c259b8d07025282a9b (diff) | |
| download | tcl-d602e66103d1f659836379fa3669ad97e3d2f310.zip tcl-d602e66103d1f659836379fa3669ad97e3d2f310.tar.gz tcl-d602e66103d1f659836379fa3669ad97e3d2f310.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.test | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/tests/util.test b/tests/util.test index 8c1ef26..20a062f 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.18.8.1 2008/08/17 14:12:36 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 |