Index: tests/parameters.test =================================================================== diff -u -r350395592496276bc98362b9dadb03f663e25f0b -r2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879 --- tests/parameters.test (.../parameters.test) (revision 350395592496276bc98362b9dadb03f663e25f0b) +++ tests/parameters.test (.../parameters.test) (revision 2cd96f38dddd3c2c2a3ab71abf68ac7f5ad7d879) @@ -1386,3 +1386,19 @@ ? [list [current] info vars :a1] "" } } + +Test case req-param { + ::nx::Class create C { + :attribute y:required + :attribute x:required + :method init args {set ::_ $args} + } + + set ::_ "" + ? {C create c2 -y 1 -x} {Argument for parameter '-x' expected} + ? {set ::_} "" + ? {c2 x} {can't read "x": no such variable} + ? {C create c3 -y 1 -x 0} "::c3" + ? {set ::_} "" + ? {c3 x} "0" +}