Index: tests/methods.test =================================================================== diff -u -r24c2302b26cc3d8e608103a269ab3c82392501ff -r75383021cb9f2f2db883583779a02eef6f1801f5 --- tests/methods.test (.../methods.test) (revision 24c2302b26cc3d8e608103a269ab3c82392501ff) +++ tests/methods.test (.../methods.test) (revision 75383021cb9f2f2db883583779a02eef6f1801f5) @@ -837,6 +837,7 @@ package req XOTcl 2.0 ? {::nsf::object::exists ::X} 0 + xotcl::Class ::X -instproc p1 {v} { [self class] incr [self proc] $v } -proc unknown args { @@ -846,19 +847,21 @@ my incr [self proc] next } -set recreate 0 - + ? {::nsf::object::exists ::X} 1 ? {::X exists p1} 0 ? {::X set unknown} 0 - xotcl::Object ::p + ? {xotcl::Object ::p} ::p ? {::nsf::object::exists ::p::child} 0 - ::X ::p::child -p1 2 + ? {::X ::p::child -p1 2} ::p::child + ? {::nsf::object::exists ::p::child} 1 ? {::X set p1} 2 ? {::X set unknown} 1 ? {::X set recreate} 0 - ::X ::p::child -p1 1 + + ? {::X ::p::child -p1 1} ::p::child ? {::X set p1} 3 ? {::X set unknown} 2 ? {::X set recreate} 1