diff options
| author | hobbs <hobbs> | 2001-11-14 23:16:35 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-11-14 23:16:35 (GMT) |
| commit | 6b5ff76e865f488dd08efe0bd2a280b7ceda4543 (patch) | |
| tree | 968eacc51e217eb1f7ff1c8b8693e3d2b0b2a39b /tests/stringComp.test | |
| parent | c4f80ca2b57a0c80444e363fcb0aff8d3ff410dd (diff) | |
| download | tcl-6b5ff76e865f488dd08efe0bd2a280b7ceda4543.zip tcl-6b5ff76e865f488dd08efe0bd2a280b7ceda4543.tar.gz tcl-6b5ff76e865f488dd08efe0bd2a280b7ceda4543.tar.bz2 | |
added lset tests and updated lindex tests for TIPs#22,33,45 by Kenny
Diffstat (limited to 'tests/stringComp.test')
| -rw-r--r-- | tests/stringComp.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/stringComp.test b/tests/stringComp.test index fc2214c..a867a19 100644 --- a/tests/stringComp.test +++ b/tests/stringComp.test @@ -10,11 +10,12 @@ # their equivalent number in string.test. # # Copyright (c) 2001 by ActiveState Corporation. +# Copyright (c) 2001 by Kevin B. Kenny. All rights reserved. # # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: stringComp.test,v 1.3 2001/08/25 00:08:46 hobbs Exp $ +# RCS: @(#) $Id: stringComp.test,v 1.4 2001/11/14 23:16:36 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -344,7 +345,7 @@ test string-5.17 {string index, bad integer} { test string-5.18 {string index, bad integer} { proc foo {} {string index "abc" end-00289} list [catch {foo} msg] $msg -} {1 {expected integer but got "-00289" (looks like invalid octal number)}} +} {1 {bad index "end-00289": must be integer or end?-integer? (looks like invalid octal number)}} test string-5.19 {string index, bytearray object out of bounds} { proc foo {} {string index [binary format I* {0x50515253 0x52}] -1} foo |