diff options
| author | mlafon <mlafon@gmail.com> | 2017-05-23 22:36:27 (GMT) |
|---|---|---|
| committer | mlafon <mlafon@gmail.com> | 2017-05-23 22:36:27 (GMT) |
| commit | 54868765b61d327129b4bf27a19342f1448a2ffd (patch) | |
| tree | 9dc18283b0daea206a6782be65d3aa79b367f061 /tests | |
| parent | 3cf85c6f708ffbb7aa84f1a5d91f8dd5a1f45c9a (diff) | |
| download | tcl-tip_457.zip tcl-tip_457.tar.gz tcl-tip_457.tar.bz2 | |
TIP#457: Update named group endingtip_457
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/proc-enh.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/proc-enh.test b/tests/proc-enh.test index b6cc7a4..20e59af 100644 --- a/tests/proc-enh.test +++ b/tests/proc-enh.test @@ -180,13 +180,13 @@ test proc-enh-2.14 {correct usage: named arg without required is optionnal} { }; list [p] [p -A 2] } {unset 2} -test proc-enh-2.15 {correct usage: multi-elems list must not be handled as a named name} { - proc p {{a -name A -default 0} b} { - list $a $b +test proc-enh-2.15 {correct usage: fixed number of arguments after named group, automatically ended} { + proc p {{a -name A -default 0} {b -name B -default 0} c} { + list $a $b $c }; set l [list -Z 1] - p $l -} {0 {-Z 1}} + list [p -2] [p -A 1 -5] [p -- -3] [p --] +} {{0 0 -2} {1 0 -5} {0 0 -3} {0 0 --}} # proc-enh-3.x: wrong # args test proc-enh-3.1 {wrong # args: -name arg without value} { |