From cf38de7fcce457f63bdf1debaad415279a9b250a Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Fri, 22 Apr 2005 16:18:26 +0000
Subject:         * tests/string.test:    Test string-23.0 for Bug 1187123.

---
 ChangeLog         | 1 +
 tests/string.test | 9 ++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12