diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-22 12:12:47 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2010-06-22 12:12:47 (GMT) |
| commit | 6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5 (patch) | |
| tree | e2d01b3935ec618895c763e67c06a8416073a844 /tests/lset.test | |
| parent | 37fc04cb2ee528291f83f44ad5c460c538a46f08 (diff) | |
| download | tcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.zip tcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.tar.gz tcl-6fb25e0cf0404d19da3ae7a4a7a6bfe81d0d35c5.tar.bz2 | |
* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong
args message.
Diffstat (limited to 'tests/lset.test')
| -rw-r--r-- | tests/lset.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/lset.test b/tests/lset.test index 872047b..ba6ad1f 100644 --- a/tests/lset.test +++ b/tests/lset.test @@ -31,7 +31,7 @@ trace add variable noWrite write failTrace test lset-1.1 {lset, not compiled, arg count} testevalex { list [catch {testevalex lset} msg] $msg -} "1 {wrong \# args: should be \"lset listVar index ?index...? value\"}" +} "1 {wrong \# args: should be \"lset listVar ?index? ?index...? value\"}" test lset-1.2 {lset, not compiled, no such var} testevalex { list [catch {testevalex {lset noSuchVar 0 {}}} msg] $msg } "1 {can't read \"noSuchVar\": no such variable}" |