summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-06-22 12:25:16 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-06-22 12:25:16 (GMT)
commitbc400d47c756b4e8b1d78a243199b8f5fbdbd4f0 (patch)
tree0fd22bba4593016400ff45b91b31d7d392db0f88 /tests
parente90ef1de476ad650bf675de7dafabe11a399e22f (diff)
downloadtcl-bc400d47c756b4e8b1d78a243199b8f5fbdbd4f0.zip
tcl-bc400d47c756b4e8b1d78a243199b8f5fbdbd4f0.tar.gz
tcl-bc400d47c756b4e8b1d78a243199b8f5fbdbd4f0.tar.bz2
* generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong
args message.
Diffstat (limited to 'tests')
-rw-r--r--tests/lset.test2
-rwxr-xr-xtests/lsetComp.test2
2 files changed, 2 insertions, 2 deletions
diff --git a/tests/lset.test b/tests/lset.test
index 63c0975..c10f433 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}"
diff --git a/tests/lsetComp.test b/tests/lsetComp.test
index 4d0ad2c..bc08d78 100755
--- a/tests/lsetComp.test
+++ b/tests/lsetComp.test
@@ -36,7 +36,7 @@ test lsetComp-1.1 {lset, compiled, wrong \# args} {
evalInProc {
lset
}
-} "1 {wrong \# args: should be \"lset listVar index ?index ...? value\"}"
+} "1 {wrong \# args: should be \"lset listVar ?index? ?index ...? value\"}"
test lsetComp-2.1 {lset, compiled, list of args, not a simple var name} {
evalInProc {