summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-04-22 16:18:26 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-04-22 16:18:26 (GMT)
commitcf38de7fcce457f63bdf1debaad415279a9b250a (patch)
treee279c572db1d53994827ee7b4742ddf526362680
parenteea5a1d7018e33f7fa50a613d6a5b912e7bb6707 (diff)
downloadtcl-cf38de7fcce457f63bdf1debaad415279a9b250a.zip
tcl-cf38de7fcce457f63bdf1debaad415279a9b250a.tar.gz
tcl-cf38de7fcce457f63bdf1debaad415279a9b250a.tar.bz2
* tests/string.test: Test string-23.0 for Bug 1187123.
-rw-r--r--ChangeLog1
-rw-r--r--tests/string.test9
2 files changed, 9 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index fd0448c..a0903eb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -16,6 +16,7 @@
that was added yesterday. Revisions so that only
Tcl_GetBoolean-approved values get the "boolean" Tcl_ObjType.
This retains the fix for [Bug 1187123].
+ * tests/string.test: Test string-23.0 for Bug 1187123.
* generic/tclInt.h: Revert most recent change.
* generic/tclBasic.c:
diff --git a/tests/string.test b/tests/string.test
index c715603..4a32e42 100644
--- a/tests/string.test
+++ b/tests/string.test
@@ -12,7 +12,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: string.test,v 1.43 2004/10/28 00:04:39 dgp Exp $
+# RCS: @(#) $Id: string.test,v 1.44 2005/04/22 16:18:30 dgp Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -22,6 +22,7 @@ if {[lsearch [namespace children] ::tcltest] == -1} {
# Some tests require the testobj command
testConstraint testobj [expr {[info commands testobj] != {}}]
+testConstraint testindexobj [expr {[info commands testindexobj] != {}}]
test string-1.1 {error conditions} {
list [catch {string gorp a b} msg] $msg
@@ -1388,6 +1389,12 @@ test string-22.13 {string wordstart, unicode} {
string wordstart "\uc700\uc700 abc" 8
} 3
+test string-23.0 {string is boolean, Bug 1187123} testindexobj {
+ set x 5
+ catch {testindexobj $x foo}
+ string is boolean $x
+} 0
+
# cleanup
::tcltest::cleanupTests
return