summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2003-03-12 18:04:35 (GMT)
committerdgp <dgp@users.sourceforge.net>2003-03-12 18:04:35 (GMT)
commit9a3b9da36ed9bc8d57ff9fff59bd316b54d97b66 (patch)
treefbaf7e14fa5c7f3dbfbd28b81d0e319ff2dfed7b /tests
parent8402e006eb6a2c17309cec126851bf9e3a8adeda (diff)
downloadtcl-9a3b9da36ed9bc8d57ff9fff59bd316b54d97b66.zip
tcl-9a3b9da36ed9bc8d57ff9fff59bd316b54d97b66.tar.gz
tcl-9a3b9da36ed9bc8d57ff9fff59bd316b54d97b66.tar.bz2
* generic/tclCmdMZ.c (Tcl_SubstObj): Corrected and added test for
* tests/subst.test (subst-2.4): Tcl_SubstObj's incorrect halting of substitution at the first \x00 byte. [Bug 685106]
Diffstat (limited to 'tests')
-rw-r--r--tests/subst.test10
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/subst.test b/tests/subst.test
index c91145d..792420a 100644
--- a/tests/subst.test
+++ b/tests/subst.test
@@ -11,7 +11,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: subst.test,v 1.13.2.1 2003/03/08 21:43:49 dgp Exp $
+# RCS: @(#) $Id: subst.test,v 1.13.2.2 2003/03/12 18:04:41 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -34,6 +34,10 @@ test subst-2.2 {simple strings} {
test subst-2.3 {simple strings} {
subst abcdefg
} abcdefg
+test subst-2.4 {simple strings} {
+ # Tcl Bug 685106
+ subst [bytestring bar\x00soom]
+} [bytestring bar\x00soom]
test subst-3.1 {backslash substitutions} {
subst {\x\$x\[foo bar]\\}
@@ -216,10 +220,6 @@ test subst-11.6 {continue in a variable subst} {
subst {foo $var([continue]) bar}
} {foo bar}
-test subst-bug-685106 {Tcl_SubstObj halts on NULL} {
- subst [bytestring bar\x00soom]
-} [bytestring bar\x00soom]
-
# cleanup
::tcltest::cleanupTests
return