Index: tests/object-system.test =================================================================== diff -u -r562cc31a003aac134390dd343849f428994186f1 -ra24e1f836c3126d0a0e9467bde3a9fa8da901711 --- tests/object-system.test (.../object-system.test) (revision 562cc31a003aac134390dd343849f428994186f1) +++ tests/object-system.test (.../object-system.test) (revision a24e1f836c3126d0a0e9467bde3a9fa8da901711) @@ -112,7 +112,10 @@ # basic attributes tests -Class create C -attributes {{x 1} {y 2}} +Class create C { + :property {x 1} + :property {y 2} +} ? {::nsf::object::exists C} 1 ? {::nsf::object::exists C::slot} 1 ? {C info children} ::C::slot @@ -132,10 +135,14 @@ ? {::nsf::object::exists ${C}::slot} 1 #? {C::slot info vars} __parameter -? {C info attributes} {{x 1} {y 2}} +#? {C info attributes} {{x 1} {y 2}} +? {C info parameter spec x} {{-x 1}} +? {C info parameter spec y} {{-y 2}} #? {X::slot info vars} __parameter -? {X info attributes} {{x 1} {y 2}} +#? {X info attributes} {{x 1} {y 2}} +? {X info parameter spec x} {{-x 1}} +? {X info parameter spec y} {{-y 2}} # actually, we want c1 to test below the recreation of c1 in another # object system