Index: tests/disposition.test =================================================================== diff -u -N -rc4f449cb353be812ba6502ef8e9587e87881f59b -rdc94a1f141b1c6a106d0ee142c9df2743ac82e67 --- tests/disposition.test (.../disposition.test) (revision c4f449cb353be812ba6502ef8e9587e87881f59b) +++ tests/disposition.test (.../disposition.test) (revision dc94a1f141b1c6a106d0ee142c9df2743ac82e67) @@ -47,7 +47,7 @@ # # Not applicable in parametercheck # - ? [list ::nsf::is $paramType $msg] "invalid value constraints \"$paramType\"" + ? [list ::nsf::is $paramType $msg] "invalid value constraints \"$paramType\": parameter option '$paramType' not allowed" } @@ -141,16 +141,10 @@ # # Without the sketched extension, one could use eval in a forwarder. # -puts stderr ===1 C setObjectParams {{{-multi-2:forward,method=eval %self %method}}} -puts stderr ===2a -set x [C new -multi-2 {X Y}] -puts stderr [$x eval {set :multi-2}] -puts stderr ===2b ? {[C new -multi-2 {X Y}] eval {set :multi-2}} \ "X Y" -puts stderr ===3 # # In the positional case, why is FOO not passed on as arg value to @@ -406,7 +400,8 @@ initcmd } { ::nsf::method::property R $methods(raz) returns $dispoSpec - ? {R raz} "invalid value constraints \"$dispoSpec\"" + set trueSpec [lindex $dispoSpec 0] + ? {R raz} "invalid value constraints \"$dispoSpec\": parameter option '$trueSpec' not allowed" }