diff options
| -rw-r--r-- | tests/string.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test index 4a32e42..45bb587 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.44 2005/04/22 16:18:30 dgp Exp $ +# RCS: @(#) $Id: string.test,v 1.45 2005/04/22 16:26:04 dgp Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -1391,7 +1391,7 @@ test string-22.13 {string wordstart, unicode} { test string-23.0 {string is boolean, Bug 1187123} testindexobj { set x 5 - catch {testindexobj $x foo} + catch {testindexobj $x foo bar soom} string is boolean $x } 0 |