diff options
author | hobbs <hobbs@noemail.net> | 2001-11-14 23:16:35 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2001-11-14 23:16:35 (GMT) |
commit | 64916862c32081813b93fc1e088a37a8323b972a (patch) | |
tree | 968eacc51e217eb1f7ff1c8b8693e3d2b0b2a39b /tests/string.test | |
parent | 14d4b7717fdb95a87e4f7a03fa38ff3b20adb24e (diff) | |
download | tcl-64916862c32081813b93fc1e088a37a8323b972a.zip tcl-64916862c32081813b93fc1e088a37a8323b972a.tar.gz tcl-64916862c32081813b93fc1e088a37a8323b972a.tar.bz2 |
added lset tests and updated lindex tests for TIPs#22,33,45 by Kenny
FossilOrigin-Name: 5325c5bfa82db942a7c0384f0119ad6b2a62a69a
Diffstat (limited to 'tests/string.test')
-rw-r--r-- | tests/string.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/string.test b/tests/string.test index b869206..15b88d7 100644 --- a/tests/string.test +++ b/tests/string.test @@ -7,11 +7,12 @@ # Copyright (c) 1991-1993 The Regents of the University of California. # Copyright (c) 1994 Sun Microsystems, Inc. # Copyright (c) 1998-1999 by Scriptics 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: string.test,v 1.29 2001/05/14 08:57:26 dkf Exp $ +# RCS: @(#) $Id: string.test,v 1.30 2001/11/14 23:16:36 hobbs Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -259,7 +260,7 @@ test string-5.17 {string index, bad integer} { } {1 {bad index "08": must be integer or end?-integer? (looks like invalid octal number)}} test string-5.18 {string index, bad integer} { list [catch {string index "abc" end-00289} 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} { string index [binary format I* {0x50515253 0x52}] -1 } {} |