Index: tests/info-method.test =================================================================== diff -u -rf858f142f5fab4f88996b3eb709c3afa55114be9 -rb531a50ecc43d0c13e2432b099a436c3260c7a49 --- tests/info-method.test (.../info-method.test) (revision f858f142f5fab4f88996b3eb709c3afa55114be9) +++ tests/info-method.test (.../info-method.test) (revision b531a50ecc43d0c13e2432b099a436c3260c7a49) @@ -128,7 +128,7 @@ ? {::nx::Object info lookup methods -source application} "" ? {::nx::Class info lookup methods -source application} "" - set object_methods "cget configure contains copy delete destroy eval info move object private property protected public require variable volatile" + set object_methods "cget configure contains copy delete destroy eval info move object private protected public require volatile" set class_methods "alias cget configure contains copy create delete destroy eval filter forward info method mixin move new object private property protected public require variable volatile" ? {lsort [::nx::Object info lookup methods -source baseclasses]} $class_methods @@ -375,13 +375,13 @@ ? {o object method foo {} {return o.foo}} "::o::foo" ? {o object alias is ::nsf::is} "::o::is" #? {o object property x} {variable definition for 'x' (without value and accessor) is useless} - ? {o property x} "::o::x" - ? {o property -accessor public x} "::o::x" + ? {o object property x} "::o::x" + ? {o object property -accessor public x} "::o::x" ? {lsort [o info object methods]} "foo is x" - #? {o property A} {variable definition for 'A' (without value and accessor) is useless} - ? {o property A} ::o::A - ? {o property -accessor public A} ::o::A + #? {o object property A} {variable definition for 'A' (without value and accessor) is useless} + ? {o object property A} ::o::A + ? {o object property -accessor public A} ::o::A ? {o object forward fwd ::set} ::o::fwd ? {lsort [o info object methods]} "A foo fwd is x" @@ -471,7 +471,7 @@ :object property -accessor public {a2 ""} :method "sub foo" args {;} :create d1 { - :property -accessor public {a3 ""} + :object property -accessor public {a3 ""} } }