Index: tests/cget.test =================================================================== diff -u -r200af46a04ef0a09e4d27b6662a5a49b82c8ba52 -r3b5d2f4e0bc018420ebea39e54ad3212ade2a5bd --- tests/cget.test (.../cget.test) (revision 200af46a04ef0a09e4d27b6662a5a49b82c8ba52) +++ tests/cget.test (.../cget.test) (revision 3b5d2f4e0bc018420ebea39e54ad3212ade2a5bd) @@ -55,7 +55,7 @@ # # configure without arguments # - ? {p1 configure} "?-sex value? -famnam value ?-age integer? ?-friends value ...? ?-volatile? ?-properties value? ?-noinit? ?-mixin mixinreg ...? ?-class class? ?-filter filterreg ...? ?__initcmd?" + ? {p1 configure} "?-sex value? -famnam value ?-age integer? ?-friends value ...? ?-volatile? ?-noinit? ?-mixin mixinreg ...? ?-class class? ?-filter filterreg ...? ?__initcmd?" } # @@ -95,7 +95,7 @@ # # configure without arguments # - ? {p1 configure} "?-bar1 value? ?-bar2 value? ?-volatile? ?-properties value? ?-noinit? ?-mixin mixinreg ...? ?-class class? ?-filter filterreg ...? ?__initcmd?" + ? {p1 configure} "?-bar1 value? ?-bar2 value? ?-volatile? ?-noinit? ?-mixin mixinreg ...? ?-class class? ?-filter filterreg ...? ?__initcmd?" # # test gettin/setting via slots @@ -121,8 +121,34 @@ } # -# The third test set checks performance of "cget" and "configure". +# The third test set checks method binding to parameter # +Test case cget-parameter-methods { + nx::Class create C { + :create c1 + } + + # : ::nsf::methods::object::info::objectparameter syntax + #? {C configure} "-volatile -noinit -mixin -class -filter __initcmd" + ? {C info lookup parameter list} \ + "-superclass -object-mixin -mixin -object-filter -filter -volatile -noinit -class __initcmd" + ? {C cget -superclass} "::nx::Object" + ? {C cget -object-mixin} "" + ? {C cget -mixin} "" + ? {C cget -filter} "" + ? {C cget -volatile} 0 + ? {C cget -noinit} "" + ? {C cget -class} "::nx::Class" + + ? {c1 info lookup parameter list} \ + "-volatile -noinit -mixin -class -filter __initcmd" + +} + + +# +# The fourth test set checks performance of "cget" and "configure". +# nx::Test parameter count 10000 Test case cget-performance {