diff options
| -rw-r--r-- | jim.c | 4 | ||||
| -rw-r--r-- | tests/misc.test | 5 | ||||
| -rw-r--r-- | tests/proc-new.test | 9 |
3 files changed, 16 insertions, 2 deletions
@@ -11095,7 +11095,7 @@ static void JimSetProcWrongArgs(Jim_Interp *interp, Jim_Obj *procNameObj, Jim_Cm } else { /* We have plain args */ - Jim_AppendString(interp, argmsg, "?arg...?", -1); + Jim_AppendString(interp, argmsg, "?arg ...?", -1); } } else { @@ -12905,7 +12905,7 @@ static int Jim_LreplaceCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const static int Jim_LsetCoreCommand(Jim_Interp *interp, int argc, Jim_Obj *const *argv) { if (argc < 3) { - Jim_WrongNumArgs(interp, 1, argv, "listVar ?index...? newVal"); + Jim_WrongNumArgs(interp, 1, argv, "listVar ?index ...? newVal"); return JIM_ERR; } else if (argc == 3) { diff --git a/tests/misc.test b/tests/misc.test index d99de4a..b69d133 100644 --- a/tests/misc.test +++ b/tests/misc.test @@ -541,6 +541,11 @@ test lset-1.1 "lset with bad var" { catch {lset badvar 1 x} } 1 +test lset-1.2 "lset error message" { + catch lset msg + set msg +} {wrong # args: should be "lset listVar ?index ...? newVal"} + test dict-1.1 "dict to string" { set a [dict create abc \\ def \"] set x x$a diff --git a/tests/proc-new.test b/tests/proc-new.test index 8703748..377eed7 100644 --- a/tests/proc-new.test +++ b/tests/proc-new.test @@ -124,4 +124,13 @@ test proc-3.4 "invalid upref in rightargs" { catch {a B} } 1 +test proc-3.5 "error message with optional args" { + proc a {b args} { + return $args + } + catch a msg + set msg +} {wrong # args: should be "a b ?arg ...?"} + + testreport |