Index: tests/object-system.test =================================================================== diff -u -re884c2b0d63fa1b5a691e866ccff8d4094a2a8e4 -r5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2 --- tests/object-system.test (.../object-system.test) (revision e884c2b0d63fa1b5a691e866ccff8d4094a2a8e4) +++ tests/object-system.test (.../object-system.test) (revision 5d1617640ad71fd52b069f81cfcadbe4cbb6f2a2) @@ -191,6 +191,11 @@ ? {::nsf::object::exists C::slot} 1 ? {C info children} ::C::slot +#? {C::slot info vars} __parameter +#? {C info attributes} {{x 1} {y 2}} +? {C info parameter definitions x} {{-x 1}} +? {C info parameter definitions y} {{-y 2}} + ? {C copy X} ::X ? {::nsf::object::exists X} 1 ? {X info vars} "" @@ -205,15 +210,11 @@ ? {set C [C copy]} ::nsf::__#6 ? {::nsf::object::exists ${C}::slot} 1 -#? {C::slot info vars} __parameter -#? {C info attributes} {{x 1} {y 2}} -? {C info parameter definition x} {{-x 1}} -? {C info parameter definition y} {{-y 2}} #? {X::slot info vars} __parameter #? {X info attributes} {{x 1} {y 2}} -? {X info parameter definition x} {{-x 1}} -? {X info parameter definition y} {{-y 2}} +? {X info parameter definitions x} {{-x 1}} +? {X info parameter definitions y} {{-y 2}} ? {X info properties} {{x 1} {y 2}} ? {X info properties -closure *a*} {volatile:alias,noarg class:class,alias,method=::nsf::methods::object::class}